Perl: запустить програмку из скрипта и дать STDIN и STDOUT

[theukrainian]

Добрый день, я в Perl даже не ноль, а минус

Ворпос: как зазвать програмку из perl. Трюк в том что програмка берет command-line arguments, читает input из stdin, и пишет output в stdout.

Один вариант: написать input в file, а потом зазвать $out = `hello < $infile`;

A mozhno li bez темпорары fajlov?

spasibo,

denis

[f_evgeny]

Добрый день, я в Perl даже не ноль, а минус

Ворпос: как зазвать програмку из perl. Трюк в том что програмка берет command-line arguments, читает input из stdin, и пишет output в stdout.

Один вариант: написать input в file, а потом зазвать $out = `hello < $infile`;

A mozhno li bez темпорары fajlov?

spasibo,

denis

$pid = open(WRITEME, "| program args");
print WRITEME "hello\n"; # program will get hello\n on STDIN
close(WRITEME); # program will get EOF on STDIN

[f_evgeny]

Добрый день, я в Perl даже не ноль, а минус

Ворпос: как зазвать програмку из perl. Трюк в том что програмка берет command-line arguments, читает input из stdin, и пишет output в stdout.

Один вариант: написать input в file, а потом зазвать $out = `hello < $infile`;

A mozhno li bez темпорары fajlov?

spasibo,

denis

Если надо оба, вход и выход:

use IPC::Open2;

open2(*README, *WRITEME, $program);
print WRITEME "here's your input\n";
$output = <README>;
close(WRITEME);
close(README);

[theukrainian]

Добрый день, я в Perl даже не ноль, а минус

Ворпос: как зазвать програмку из perl. Трюк в том что програмка берет command-line arguments, читает input из stdin, и пишет output в stdout.

Один вариант: написать input в file, а потом зазвать $out = `hello < $infile`;

A mozhno li bez темпорары fajlov?

spasibo,

denis

Если надо оба, вход и выход:

use IPC::Open2;

open2(*README, *WRITEME, $program);
print WRITEME "here's your input\n";
$output = <README>;
close(WRITEME);
close(README);

Спасибо. Это то что нужно, помоему.

денис

[theukrainian]

Если надо оба, вход и выход:

use IPC::Open2;

open2(*README, *WRITEME, $program);
print WRITEME "here's your input\n";
$output = <README>;
close(WRITEME);
close(README);

Спасибо. Это то что нужно, помоему.

денис

Маленькая поправка: работает только когда я закрываю handle WRITEME перед тем как читать из README. Иначе, скрипт ждет input. Я пытался посылать ^D, добавляя его к моей input string, но такое не канает

Все равно, спасибо Вроде как заработало.

денис