Решено: Помогите с потоками (Немогу выбрать инфу из потока...)

[Vem]

Заранее извенясь!!! Вопрос наверное глупы.
Я в коде скрипта запускаю прогу вот теким образом

Код: Выделить всё

system("tdbdump /var/run/pppd2.tdb");

Она сробатывает. А как забрать то что она выдаёт на экран?
Не ругайте сильно. Я впервые работаю с Perl. Киньие в меня ссылкой хотябы.

[Sleeping Daemon]

Заранее извенясь!!! Вопрос наверное глупы.
Я в коде скрипта запускаю прогу вот теким образом

Код: Выделить всё

system("tdbdump /var/run/pppd2.tdb");

Она сробатывает. А как забрать то что она выдаёт на экран?
Не ругайте сильно. Я впервые работаю с Perl. Киньие в меня ссылкой хотябы.

$result=system("tdbdump /var/run/pppd2.tdb");

[Sleeping Daemon]

Заранее извенясь!!! Вопрос наверное глупы.
Я в коде скрипта запускаю прогу вот теким образом

Код: Выделить всё

system("tdbdump /var/run/pppd2.tdb");

Она сробатывает. А как забрать то что она выдаёт на экран?
Не ругайте сильно. Я впервые работаю с Perl. Киньие в меня ссылкой хотябы.

$result=system("tdbdump /var/run/pppd2.tdb");

Сорри, немнгого не так.
$result=`dbdump /var/run/pppd2.tdb`;

[Vem]

$result=`dbdump /var/run/pppd2.tdb`;

Не помогло переменная пустая.
Дело в том что dbdump это линуксовый пакет для работы с файлами типа *.tdb и работает из под консоли.
После того как запускаеш dbdump /var/run/pppd2.tdb он выдает несколько строк с данными. Мне нужно схавать их построчно. чтобы потом можно было с ними работать.

[Uncle_Theodore]

То есть, скрипт у тебя на Перле? Эх, давненько не брал я в руки перла...
Читай тут:
http://perl.active-venture.com/pod/perlope...-openshell.html

А вот примерчик с командой "ls -l"

Код: Выделить всё

#!/usr/bin/perl

$i=0;
open(LS, "ls -l |") || die "can't run ls -l $!";
while (<LS>)
{
    print "Line $i:   ";
    print $_;
    $i++;
    print "\n";
};
close(LS);

[Sleeping Daemon]

$result=`dbdump /var/run/pppd2.tdb`;

Не помогло переменная пустая.
Дело в том что dbdump это линуксовый пакет для работы с файлами типа *.tdb и работает из под консоли.
После того как запускаеш dbdump /var/run/pppd2.tdb он выдает несколько строк с данными. Мне нужно схавать их построчно. чтобы потом можно было с ними работать.

Возможно информация выдаётся на stderr. Тогда нужно так:
$result=`dbdump /var/run/pppd2.tdb 2>&1`

[Vem]

Возможно информация выдаётся на stderr. Тогда нужно так:$result=`dbdump /var/run/pppd2.tdb 2>&1`;

вот что сохраняется в переменную

dbdump /var/run/pppd2.tdb 2>&1

[vadiml]

вот кусочек из мой программы:

Код: Выделить всё

#!/usr/bin/perl -w

open F,"xwininfo -root -children |";

my %l;
while(<F>){
    if( /\"(\w+)\"\)/ ){
        $l{$1}=0
    }
}
close F;
for(sort keys %l){
    print "$_\n"
}

т.е.
получает резутьтат из "xwininfo -root -children"
выбирает что надо в хеш
сортирует
отправляет далее

perl может открывать каналы как обычные файлы, если | сзади, то на чтение, если спереди -- на запись

[Vem]

вот кусочек из мой программы:

Код: Выделить всё

#!/usr/bin/perl -w

open F,"xwininfo -root -children |";

my %l;
while(<F>){
    if( /\"(\w+)\"\)/ ){
        $l{$1}=0
    }
}
close F;
for(sort keys %l){
    print "$_\n"
}

т.е.
получает резутьтат из "xwininfo -root -children"
выбирает что надо в хеш
сортирует
отправляет далее

perl может открывать каналы как обычные файлы, если | сзади, то на чтение, если спереди -- на запись

Огромнейшее спасибо!!!