p5pRT
commented
22 years ago From abe@ztreet.demon.nl
Created by abe@ztreet.demon.nl
write() on a tie()d filehandle complains about an unopened filehandle.
The printf() on the that same tie()d filehandle works ok.
I looked at the documentation but couldn't find any mention of write() not beeing supported.
This program demonstrates it (confirmed for ActivePerl 5.6.1 build 628).
#!perl
use warnings FATAL => 'all';
use strict;
{
package FakeOut;
sub TIEHANDLE { bless \( my $scalar ), shift; }
sub PRINT { my $self = shift; $$self .= shift; }
sub PRINTF {
my $self = shift;
my $fmt = shift;
$$self .= sprintf $fmt, @_;
}
}
my( $text, $numb );
format FAKEOUT =
@<<<<<<<<<< @>>>>>
$text, $numb
.
my $fake = tie *FAKEOUT, 'FakeOut';
foreach $text ( qw( one two three four five ) ) {
$numb = length $text;
# printf FAKEOUT "%-10s %5s\n", $text, $numb;
write FAKEOUT;
}
print $$fake;
__END__write() on unopened filehandle FAKEOUT at tiedwrite.pl line 27.
toddr
Migrated from rt.perl.org#8149 (status was 'open')
Searchable as RT8149$