Opened by frodus at 2006-03-31 17:24
User since
2006-03-31
2 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-03-31
2 Artikel
BenutzerIn
Ja, das geht auch eleganter. Falls dir POE fuer diese Aufgabe etwas zu ueberladen scheint, dann kannst du etwas aehnliches auch mit select() machen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $code = 'print "hallo welt\n"; print "test\n\n"';
open(my $fh, ">", \my $out); # 'in memory' filehandle
my $old = select($fh); # default filehandle ist jetzt $fh
eval $code; # sollte klar sein
select($old); # default filehandle ist jetzt wieder STDOUT
close($fh); # der schoenheit halber
print "Das hier befindet sich in out:\n$out"