Opened by bianca at 2010-02-08 16:39
User since
2009-09-13
6978 Artikel
BenutzerIn
2009-09-13
6978 Artikel
BenutzerIn
Hatte ich natürlich auch getestet und brachte garnichts aber wie gesagt, ich kann nicht alles schreiben, was ich probiert hab, da wäre ich nur noch am schreiben. Manchmal wäre es hilfreich, Ihr würdet mir solche Kleinigkeiten zutrauen und als "schon versucht" voraussetzen.
Aber was soll ich verlangen, wenn ich mich schon bei -> und = so doof anstelle.
Es ist zum heulen.
Das hier bringt die Meldung nach wie vor. Und zwar bei Ausführung und auch beim Check mit perl -c test.pl
Wäre für mich jetzt auch nicht logisch gewesen, dass es damit lösbar ist, seit ich weiß, dass die Meldung auch bei -c kommt.
Aber was soll ich verlangen, wenn ich mich schon bei -> und = so doof anstelle.
Es ist zum heulen.
Das hier bringt die Meldung nach wie vor. Und zwar bei Ausführung und auch beim Check mit perl -c test.pl
Wäre für mich jetzt auch nicht logisch gewesen, dass es damit lösbar ist, seit ich weiß, dass die Meldung auch bei -c kommt.
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl -w use strict; use warnings; open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!"; open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!"; print "test1\n"; use ExtUtils::Installed; my ($inst) = ExtUtils::Installed -> new (); open STDOUT,">&",$oldout or die "Can't dup \$oldout: $!"; print "test2\n";
10 print "Hallo"
20 goto 10
20 goto 10