> >
> > 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. an
> >
> >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. Th
On Oct 22, Bee said:
>I am just about to study about tie, and I've made a very simple test, but
>don't know what's wrong, would anyone please to point out ?
>
># Mask
>package Mask;
>
>sub TIEHANDLE { my $x; bless \$x; shift }
>sub PRINT { $_ = $$_[0]; s/./*/g; print}
Your TIEHANDLE routine is sl
