1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
package TieOut; sub TIEHANDLE { my $scalar = ''; bless( \$scalar, $_[0]); } sub PRINT { my $self = shift; $$self .= join('', @_); } sub PRINTF { my $self = shift; my $fmt = shift; $$self .= sprintf $fmt, @_; } sub FILENO {} sub read { my $self = shift; my $data = $$self; $$self = ''; return $data; } 1;