Проблема при получении вывода STDERR (+)

[Nickola]

Мне нужно получить то, что выводит в STDERR запускаемое через system() приложение.
Делаю так:

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


local *OLD;
open OLD, \'>&STDERR\';
close(STDERR);
if (!open (STDERR, \'>err.txt\')) { die "Unable to open STDERR"; }

my $c ="perl -e \\" print STDERR \'ERR\';\\"";
my $res = system($c);

open(STDERR,\'>&OLD\');

После выполнения скрипта в файле \'err.txt\' вижу \'ERR\' - т.е. все работает как надо.

Но мне надо этот вывод получить в переменную, делаю так:

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


local *OLD;
open OLD, \'>&STDERR\';
close(STDERR);

open (STDERR, \'>\', \\$output) || &die_error("Unable to open STDERR");

my $c ="perl -e \\" print STDERR \'ERR\';\\"";
my $res = system($c);

open(STDERR,\'>&OLD\');

print "OUT: ".$output;

После выполнения скрипта вижу: "OUT: ", т.е. STDERR не попал в переменную $output.

Подскажите, в чем проблема?

Thanx!

[arto]

perldoc -f open

[Nickola]

arto:
perldoc -f open

Что-то я не нашел там решения, пробовал сделать:

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


$| = 1; # make unbuffered


Но это не решило проблему...

[arto]

# perl -de0
...
  DB<1> open F,"date 12121212 2>&1 |"

  DB<2> @a =

  DB<3> p @a
date: cannot set date: Operation not permitted
Tue Dec 12 12:12:00 EET 2006

  DB<4>

[Nickola]

arto:
# perl -de0
...
DB<1> open F,"date 12121212 2>&1 |"

DB<2> @a =

DB<3> p @a
date: cannot set date: Operation not permitted
Tue Dec 12 12:12:00 EET 2006

DB<4>

Я думал что "2>&1" в Windows рабоать не будет, оказалось рабоает.
Спасибо.

[Nickola]

arto:
# perl -de0
...
DB<1> open F,"date 12121212 2>&1 |"

DB<2> @a =

DB<3> p @a
date: cannot set date: Operation not permitted
Tue Dec 12 12:12:00 EET 2006

DB<4>

Не подскажите, а можно ли при этом получить "error code", который вернула запускаемая программа?

[Nickola]

Nickola:
Не подскажите, а можно ли при этом получить "error code", который вернула запускаемая программа?

Нашел - "$?".