Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

fishing japh

by Len (Friar)
on Jul 29, 2002 at 09:21 UTC ( [id://185919]=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w $sea = q < _ _ _ ,="`/ / /'=. O / / / / / / /\, O /_/_/_/_/ / /,^' _.=// o .-' - _ - _ -`"-,/-/\ /`_,=.' o / -_ - _ -,_ - _ -\/.\|/_,=`^' o / @ _'"`} _- _- ,\.='_. ^", / -'_-'} - _ - _ -=--_'=; \-, "=._} ;._--_-_; % `-._ .~ /;' \ `"=.; sea `"\`;-.}_ _ _.;\ \/ \'=._\ =('`' \ =.}\ \ \ \ \' '._=_.\ ,10,'=' \_}`=._\_\.'` '=.\ ,5,'\\\'x4,4 ,_,3,' ".',2,'/}',1,' -',-1,' |',-2,';',-4,'~',-9);map{$sea=ord'a';map{$.=$_;map{$ sea+=$sea{$_}if$.=~/[$_]/}keys%sea;$,.=$"if/\^/}spli t//;$,.=chr$sea;die"$,$/"if/~/;}split/[,']/,$sea>;$_ =$sea;s;[^%]+%;%;s;s;\s+[`\\].*|\s+;;g;eval;print$@;
Credits go to jgs for the original drawing of the fish were this code is based on.

update: Changed $; into $, which is undefined by default.
As John M. Dlugosz mentioned on W2K $; is displayed as ascii 192.

Replies are listed 'Best First'.
Re: fishing japh
by John M. Dlugosz (Monsignor) on Jul 30, 2002 at 18:37 UTC
    What is the "\x1C" for at the beginning of the output?

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2024-03-29 08:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found