STDOUT in einen eigenen Puffer (gelöst) - #164249 (Allgemeines zu Perl)

topeg

2012-12-16 13:43

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Benutze IO::String und Ersetze STDOUT:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use IO::String;

my $io=tie( *STDOUT, 'IO::String' );
print "test\n";
print "LINE $_\n" for(0..9);

my $txt=$io->string_ref();
warn $$txt;

Das habe ich schon für alte Scripte gemacht, ist aber nicht sonderlich schnell.