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


by Falkkin (Chaplain)
on Aug 18, 2004 at 20:45 UTC ( #384100=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; my$f= $[;my $ch=0;sub l{length} sub r{join"", reverse split ("",$_[$[])}sub ss{substr($_[0] ,$_[1],$_[2])}sub be{$_=$_[0];p (ss($_,$f,1));$f+=l()/2;$f%=l ();$f++if$ch%2;$ch++}my$q=r ("\ntfgpfdfal,thg?bngbj". "naxfcixz");$_=$q; $q=~ tr/f[a-z]/ [l-za-k] /;my@ever=1..&l ;my$mine=$q ;sub p{ print @_; } be $mine for @ever

Update: I'm elated by Vortacist's favorable response, of course. :)

Replies are listed 'Best First'.
Re: Propose.
by Vortacist (Pilgrim) on Aug 18, 2004 at 20:58 UTC

    Yes! :)

      Gives me a time out exception LOL,,
Re: Propose.
by jacques (Priest) on Aug 19, 2004 at 02:34 UTC
    Further proof that Perl is the ultimate glue language.
Re: Propose.
by cLive ;-) (Prior) on Aug 19, 2004 at 06:45 UTC
Re: Propose.
by thor (Priest) on Aug 18, 2004 at 22:43 UTC
    You're a lucky man to be in such a position. Congratulations!


    Feel the white light, the light within
    Be your own disciple, fan the sparks of will
    With all of us waiting, your kingdom will come

Re: Propose.
by antirice (Priest) on Aug 18, 2004 at 21:00 UTC

    Congrats guys! :)

    The first rule of Perl club is - use Perl
    ith rule of Perl club is - follow rule i - 1 for i > 1

      TMTOWTDI :-)
Re: Propose.
by TStanley (Canon) on Aug 19, 2004 at 09:48 UTC
    Congrats to the both of you. May you find peace and happiness together.

    The only thing necessary for the triumph of evil is for good men to do nothing -- Edmund Burke
Re: Propose.
by giulienk (Curate) on Aug 20, 2004 at 07:51 UTC
Re: Propose.
by csuhockey3 (Curate) on Aug 19, 2004 at 16:22 UTC
    Greatest obfu of all time! Congratulations!
Re: Propose.
by paranoidDandroid (Initiate) on Aug 19, 2004 at 18:20 UTC
    What a gift. Thank you. Best of luck.
Re: Propose.
by pikus (Hermit) on Aug 24, 2004 at 13:42 UTC
    That's the most romantic thing I've ever seen! <sniff>

    Congratulations! :)
         - pikus
    You know it's love when you memorize her IP number to skip DNS overhead.
Re: Propose.
by BioGeek (Hermit) on Aug 21, 2004 at 00:53 UTC
    Congratulations to the both of you.

    This is actually the second online proposal I see in a week. Must be something in the air ;-)

    It also reminded me of a very romantic proposal by another geek.
Re: Propose.
by teamster_jr (Curate) on Aug 25, 2004 at 14:21 UTC
    congrats guys, one thing, shouldn't this be in CUFP? :-)
Re: Propose.
by PhilHibbs (Hermit) on Sep 03, 2004 at 12:15 UTC
Re: Propose.
by ambrus (Abbot) on Nov 17, 2008 at 19:08 UTC

    I assume this code is what this PHD comics strip refers to some two and a half year later.

      Indeed, he changed my name to "William" (or most likely, forgot it) but he wrote the comic after meeting us at a book signing at Carnegie Mellon University.
        Hey all... I don't have so much idea about perl.. I love a girl name is aditi.. Can anyone please edit this script and update so that I can show her that also and may be she will accept it. Plz anyone

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2023-12-07 17:38 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (33 votes). Check out past polls.