> >
> >sub TIEHANDLE { my $x; bless \$x; shift }
> >sub PRINT { $_ = $$_[0]; s/./*/g; print}
>
> Your TIEHANDLE routine is slightly broken. You want
>
> bless \$x, shift
>
> instead of
>
> bless \$x; shift
Thanks alot, I get able to tie this time now.
>
> And your PRINT method is wrong. The first argument is the object (which
> you don't need) and the second argument is the string being printed.
>
> sub PRINT {
> local $_ = $_[1];
> s/./*/g;
> print;
> }
but I am regret to tell that I still can't print. and I even can't do
anything
inside this block. Just simply
print "."
My shell got crash. Anything I print from this block, Windows will shut it
down and tell there is an error, What happen ?!
Thanks for help,
Bee
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
