09/02/19 01:33:04
>>78
親切な僕が変態 ReplacePrint.pm をそれっぽく書いたげたお。
die のほうはせっかく例外投げてんだから catch してあげて。
使い方:
use ReplacePrint;
print "string\n";
# ここから ReplacePrint.pm
package ReplacePrint;
use strict;
sub TIEHANDLE { bless [], $_[0] };
sub PRINT {
my $self = shift;
my @str = @_;
for (@str) {
s/$/ is replaced/;
print STDOUT;
}
}
my $out;
open *OUT, ">", \$out;
my $stdout = select(OUT);
tie *OUT, "ReplacePrint";
1;