допустим делаю
system("perl test.pl");

содержимое test.pl
print "hello world";

как можно получить эту строку?

1.
my $out=join "",`test.pl`;
2.
open(Exe,'|test.pl');
while (<Exe>){
$out.=$_;
}
close(Exe);
Про пайпу нужно по точнее прочитать, есть разница где она стоит в конце или в начале

Цитата(dimes @ 10.1.2005, 16:16)

1. my $out=join "",`test.pl`; 2. open(Exe,'|test.pl'); while (<Exe>){ $out.=$_; } close(Exe); Про пайпу нужно по точнее прочитать, есть разница где она стоит в конце или в начале

ты наверное так хотел написать:

Код

open(Exe,'<test.pl'); while (<Exe>){ $out.=$_; } close(Exe);

Объясни что ты хочеш получить, результат выполнения скрипта или содержимое скрипта.
Если 1 то я тебе показал как.

если выполняеться именно перл скрипт, тогда вроде можно так:

system "perl test.pl >> temp.txt";

а потом читать темп.тхт....

Как я понял, нужно сохранить результат выполнения системной команды в переменную, для дальнейшей обработки. Если да, то system('dir') просто выполнит команду dir, тебе же нужны обратные кавычки.
Просто напиши так:

Код

#!/usr/bin/perl my $result = `dir`; # Теперь переменна $result содержит результат # выполнения команды dir print $result;

Теперь давай подумаем как получить строку из файла test.pl
Допустим файл test.pl выглядит так:

Код

#!/usr/bin/perl print "Hello, world!\n";

Нам нужно получить результат работы этого файла и сохранить его в переменную.
Для того, что бы пример был более интересным, давай запросим во втором файле имя пользователя, затем получим строку "Hello, world!" из файла test.pl, после добавим к этой строке такую строку " and имя_пользователя!" и результат выведем на экран.
Пишем такой код:

Код

#!/usr/bin/perl my $name = ""; # Запрашиваем имя пользователя while (1) { last if length( $name ) > 2; print "Please enter your name: "; chomp( $name = <STDIN> ); } # Получаем результат работы файла test.pl my $res_test = `perl test.pl`; # Отсекаем символ перевода строки chomp( $res_test ); # Отсекаем восклицательный знак chop( $res_test ); # Добавляем к строке полученной из файла test.pl строку " and имя_пользователя!\n" $res_test .= " and ${name}!\n"; # Выводим на экран содержимое переменной $res_test print $res_test;

Сохраним его в файле hello.pl, в тот же каталог где лежит файл test.pl. Теперь запустим файл hello.pl на выполнение. В командной строке вводим:
C:\>perl hello.pl
После программа запросит имя пользователя, введём своё имя и жмём Enter.
В ответ получим такую строку:
Hello, world and ваше_имя!
Думаю понятно изложил. ;)))))))))

Удачи.