Leser: 26
1
2
3
4
5
6
7
8
9
10
11
12
sub pprint;
pprint # ...
sub pprint {
# ...
print FILEHANDLE @_;
print @_;
}
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/perl use strict; use warnings; my $REDIR; sub print; sub tee; sub tee { $REDIR = shift; } sub print { CORE::print $REDIR @_; CORE::print @_; } tee(*STDERR); ::print 123;
mein_testscript.pl >./out.txt 2>/err.txt
script.pl 1>out.txt 2>err.txt
2009-07-28T14:47:00 GwenDragonLeitest du auch zum frühestmöglich Zeitpunkt um? In einem BEGIN? Vielleicht leigt es daran.
2009-07-28T14:47:00 GwenDragonWohin gibst du denn bei Test:… aus? Verwendest du die Methode output() des Test-Moduls?
2009-07-28T14:47:00 GwenDragonLeitest du auch zum frühestmöglich Zeitpunkt um? In einem BEGIN? Vielleicht leigt es daran.