Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer


by arhuman (Vicar)
on Feb 02, 2001 at 17:04 UTC ( #55990=obfuscated: print w/replies, xml ) Need Help??

Ok ! Here's my first JAPH...

Not so complicated, but I think the idea could be enhanced...

Any comments/ideas/enhancement are WELCOME !!!

if (!$c) { # let's have fun ! $c='FOO'; # bar?? open($c,$0) or die "can't open $0"; # So, now we do it clean? @c=sort {length($b)<=>length($a)}<$c>; # here is the key ! $c=join"",@c;chomp $c; # quite classical. $c=~s/sort.*?(<\$.*)/$1$2/g; # bit of magic ? eval "$c"; # Abracadabra !!! }#It's over... die unless ($you=="understood???"); $why = 'try it for I can Justify my rant' ; $seeker=='Arhuman' and $Fools=='others'; $Perl = 'my way to Hack, my way to think'; $_ =substr($c,381,1+2+1+15+15+50+43+50+19+25+100+6+10); if (length()<30){s/(.*)/\n\n$1\n\n/;print} s,^(.{12}).{05}(....).....{10}(....).*,$1 $2 $3er,s; s,^(....).{31}(..)..............{4}(....*),$1 $2$3,s;

In case of it doesn't work : The layout is VERY important.
Some Netscape users reported a problem after copying/pasting, if you get a weird message, please check that you don't have an extra blank line (there are only 3 blank lines)

UPDATE : Doesn't seems to work on Windows...
I'm working on it..

Replies are listed 'Best First'.
Re: Morph
by BooK (Curate) on Feb 18, 2001 at 22:46 UTC

    Well done! The idea is very interesting. I wonder why it wouldn't work on Windows, though.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://55990]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2017-02-28 02:09 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (394 votes). Check out past polls.