Thread Perl-Update ein Problem
(29 answers)
Opened by bianca at 2010-02-07 18:37
Hab dem blöden Ding sogar STDOUT versucht wegzunehmen, interessiert es aber nicht.
Was mache ich falsch? Bitte um Hilfe! test14.pl Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 #!/usr/bin/perl use strict; use warnings; use ExtUtils::Installed; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; print "test1\n"; my ($inst) = ExtUtils::Installed -> new (); open STDOUT,">&",$oldout or die "Can't dup \$oldout: $!"; print "test2\n"; Gibt noch immer aus: Code: (dl
)
1 D:\Arbeit\perltest>perl test14.pl Datei foo.out beweist, dass STDOUT zu diesem Zeitpunkt umgeleitet ist: Code: (dl
)
test1 10 print "Hallo"
20 goto 10 |