Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Propose.

by Falkkin (Chaplain)
on Aug 18, 2004 at 20:45 UTC ( [id://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
    $propose++;

    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!

    thor

    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! :)

    antirice    
    The first rule of Perl club is - use Perl
    The
    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.

    TStanley
    --------
    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.
      Congrats!!
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? :-)
    al
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?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (3)
As of 2025-03-27 04:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When you first encountered Perl, which feature amazed you the most?










    Results (70 votes). Check out past polls.

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.