Результат работы другого скрипта в переменную

[Maxim]

Здравствуйте!
Как можно в строковую переменную занести результаты работы другого скрипта. Например, в переменную $news занести результаты работы скрипта news.pl, чтобы в $news были новости, которые выводит на news.pl.

[Chs]

perldoc LWP::Simple
perldoc lwpcook

[SteelRat]

Maxim какого типа скриптв?
На твоём сайте или с других?

[Maxim]

Все скрипты на моем сайте.

[Green Kakadu]

http://forums.webscript.ru/showthread.php?s=&threadid=3365
(запуск скрипта скриптом)

[Maxim]

Если я все правильно понял, то это не совсем то, что мне нужно.
Допустим второй скрипт:
#####################
print "Script №2";
#####################

Мне нужно, чтобы в первом скрипте, после определенных дейтсвий $tmp содержала "Script №2".
Желателно пример.

[Green Kakadu]

ну через LWP (как Chs сказал ) это как-то очень свобразно будет..

[Chs]

perldoc perlipc
в части Using open() for IPC

[Chs]

ну через LWP (как Chs сказал ) это как-то очень свобразно будет..

Зато самый простой вариант по написанию.
Две строки всего.

[Green Kakadu]

Зато самый простой вариант по написанию.)
Две строки всего.)

угу, это понятно, просто своеобразно.
а вообще, как лучше (не быстрее, а лучше/грамотней)?

[Chs]

а вообще, как лучше (не быстрее, а лучше/грамотней)?

open(PRC,"script2.pl |");
$str = join(\'\',);
close PRC;

Если сервер так даст сделать.

[NeoNox]

Скрипт №1
#!/usr/bin/perl
require \'data.pl\';

print "Content-type:text/html\\n\\n";
$temp=$temp_data;
print " Сейчас переменная temp содержит:$temp";

Скрипт №2 (data.pl)
#!usr/bin/perl
$temp_data="Script №2";

[Maxim]

Chs
Попробовал. $str после выполнения почему-то ничего не содержит.

NeoNox
Такой вариант работает, но мне он не подходит.

[Chs]

Попробовал. $str после выполнения почему-то ничего не содержит.

Если на виндах, то надо вызывать перл с параметром имя скрипта.

Есть еше менее красивый вариант:

Код: [Выделить]


#!/usr/bin/perl
eval \'system("/usr/bin/perl script2.pl >out.txt"); \';
open(OUT,"< out.txt");
@strs = ;
close OUT;
unlink "out.txt";
$str = join(\'\',@strs);


[Maxim]

Спасибо всем за ответы!
Chs
Первый вариант тоже работает, просто надо было указать полный путь ко второму скрипту. Но плохо, что "Content-type:text/html\\n\\n" тоже попадает в $str.