use Data::Dumper; my $tmpcnt=0; open TWO, ">", "./two.out"; print STDERR Dumper [PerlIO::get_layers(\*STDOUT)]; print STDERR Dumper [PerlIO::get_layers(\*TWO)]; foreach (@rawout) { print "$tmpcnt: ". $_; print TWO "$tmpcnt: ". $_; $tmpcnt++; }
In reply to Re^4: Net::OpenSSH loosing lines ins reply
by salva
in thread Net::OpenSSH loosing lines ins reply
by Andy16
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |