To avoid relying on the presence of echo...
perl -pe "BEGIN{@ARGV='perl -le print+q~Just\ another\ Perl\ Hacker,~| +'}"
Yours is nicely obfuscated, but I guess that's not really what I was going for. I like those japhs that you look at and think, "huh?" because they are almost obvious but not quite. I especially like the ones that highlight a peculiarity or two of perl's. Ones that look too messy, usually discourage closer inspection, at least for me. Things like s((??{"\044"}));"...";e; increase the tedium factor but that's about it.
On the other hand, I liked your use of $^I and I really should have placed the pipe first and just used open too... good catch. How about:
perl -i'|echo\040Just\040another\040Perl\040hacker,' -e's//qq("$^I")/e +e;open _;'
-sauoq "My two cents aren't worth a dime.";
In reply to Re: Re: My First Good(?) Original(?) JaPh,s
by sauoq
in thread My First Good(?) Original(?) JaPh,s
by sauoq
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |