Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Morph

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..

Comment on Morph
Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2014-04-24 10:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (565 votes), past polls