in reply to Re^3: howto strip the first char of a string?
in thread howto strip the first char of a string?
And, amazingly... it completely works!
and then:package Tie::ReverseScalar; sub TIESCALAR { my $class = shift; return bless \$_[0] => $class; } sub FETCH { return reverse ${$_[0]}; } sub STORE { ${$_[0]} = reverse $_[1]; } sub DESTROY { undef ${$_[0]}; } 1;
Now, of course, that's not the way that reverse actually works... but isn't that fun?use Tie::ReverseScalar; sub Reverse :lvalue { my $x = @_ ? \$_[0] : \$_; tie $x, 'Tie::ReverseScalar', $$x; $x } $_ = 'foo'; chop Reverse; print; __END__ oo
Update: oops, I had written that this output "fo" (which wouldn't have been interesting at all), but it actually outputs "oo" (which is what makes it cool). Thanks, BrowserUK, for pointing out the typo.
------------ :Wq Not an editor command: Wq
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: howto strip the first char of a string?
by BrowserUk (Patriarch) on Sep 08, 2004 at 20:32 UTC |
In Section
Seekers of Perl Wisdom