Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Xmas Msg (just for linux)

by smokemachine (Hermit)
on Dec 23, 2009 at 19:40 UTC ( [id://814145]=obfuscated: print w/replies, xml ) Need Help??

perl -e'*MERRY=*\;*XMAS=*/;' -F: -nae'$,=join q,,,map{chr$_+@{[(1)x un +pack q C\CC,q q \q \q q]}}q 1007769828289001 =~/.{2}/g;BEGIN{*SANTA = + *ARGV}$MERRY=$XMAS;print$F[0],join q,,,map{chr}q;0991041141051151161 +09097115;=~/(.{3})/g;BEGIN{push@SANTA,join q,,,map{chr}q 304710111609 +90471120971151151191003 =~/(.{3})/g}'

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2024-04-19 00:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found