Easy to see, just setting $_ to something, then resetting it.$_='Just'; $_='"...erxpnU;yerC;erugban;gfhW"gavec';
Useless; $- is the number of lines left on the page of the currently selected output channel, and cannot be a string value (or a negative value). $- remains zero after this asignment.$-='another Perl';
A simple translation on $_: Now the value is almost the reverse of "print "Just another Perl hacker..."", we just need one more translation to get it there:y/\\abcdefghijklmnopqrstuvwxyz ; /'nopqrstuvwxyzabcdefghijklm /;
Now, the string is ready to be eval'ed$-='Hacker'; #again, this is just filler y/!!ABCDEFGHIJKLMNOPQRSTUVWXYZ ; /''NOPQRSTUVWXYZABCDEFGHIJKLM /; #here's that translation I spoke of
Again, this is just filler, it evaluates to a string, which is a true value, but does nothing.eval reverse $_;
''.''.''.''.''.'print "Just another Perl Hacker"';
The 15 year old, freshman programmer,
Stephen Rawls
In reply to Re: My second Japh...
by srawls
in thread My second Japh...
by mr_mischief
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |