Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

ShaBANG!!!

by crazyinsomniac (Prior)
on May 22, 2001 at 14:29 UTC ( #82200=obfuscated: print w/ replies, xml ) Need Help??

I'm still whacking...
#!/usr/bin/perl $|++;$,=qq'#!crazyinsomniac \n'; print,qq,\\n,if $,=qq~ $^X -e $,~; print(@,)x10,qq,\n,if@,=#$$;'q#' map(chr hex $_ , qw _ 4a 75 73 74 20 41 6e 6f 74 68 65 72 20 50 65 72 6c 20 48 61 63 6b 65 72 0a _);#> #### ## print`$,`,qq,\n(^%|%^)->($_\n,,`shift`if$_=join q,,,@,;
update:
Hmmkay, some folks have had this thing crash perl, so what follows is what i get with ActivePerl and IndigoPerl, both latest builds.
F:\dev\japh>perl shabang.pl oy! J F:\indigoperl\bin\perl.exe -e #!crazyinsomniac u F:\indigoperl\bin\perl.exe -e #!crazyinsomniac s F:\indigoperl\bin\perl.exe -e #!crazyinsomniac t F:\indigoperl\bin\perl.exe -e #!crazyinsomniac F:\indigoperl\bin\perl.exe -e #!crazyinsomniac A F:\indigoperl\bin\perl.exe -e #!crazyinsomniac n F:\indigoperl\bin\perl.exe -e #!crazyinsomniac o F:\indigoperl\bin\perl.exe -e #!crazyinsomniac t F:\indigoperl\bin\perl.exe -e #!crazyinsomniac h F:\indigoperl\bin\perl.exe -e #!crazyinsomniac e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac F:\indigoperl\bin\perl.exe -e #!crazyinsomniac P F:\indigoperl\bin\perl.exe -e #!crazyinsomniac e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac l F:\indigoperl\bin\perl.exe -e #!crazyinsomniac F:\indigoperl\bin\perl.exe -e #!crazyinsomniac H F:\indigoperl\bin\perl.exe -e #!crazyinsomniac a F:\indigoperl\bin\perl.exe -e #!crazyinsomniac c F:\indigoperl\bin\perl.exe -e #!crazyinsomniac k F:\indigoperl\bin\perl.exe -e #!crazyinsomniac e F:\indigoperl\bin\perl.exe -e #!crazyinsomniac r F:\indigoperl\bin\perl.exe -e #!crazyinsomniac Can't exec crazyinsomniac at -e line 1. (^%|%^)->(Just Another Perl Hacker F:\dev\japh>

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void

perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

Comment on ShaBANG!!!
Select or Download Code
Re: ShaBANG!!!
by alfie (Pilgrim) on May 23, 2001 at 11:32 UTC
    Is it just me or do other also get an error message on this one? It's coming up right before the last print:
    [.........] e perl -e #!crazyinsomniac r perl -e #!crazyinsomniac Can't exec crazyinsomniac at -e line 1. (^%|%^)->(Just Another Perl Hacker
    I'm using v5.6.1 built for i386-linux, bash. If that matters. If that's happening on purpose, ignore it :)
    --
    use signature; signature(" So long\nAlfie");

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://82200]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (10)
As of 2014-10-23 17:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (126 votes), past polls