Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
P is for Practical
 
PerlMonks  

You know you're a geek when...

by defyance (Curate)
on Feb 18, 2002 at 18:16 UTC ( #146192=CUFP: print w/ replies, xml ) Need Help??

You propose to your girlfriend with a script!! I know its corny, but she loved it! She's learning Linux, and some programming stuff, so I thought it would be cute. I had her run it in front of our friends. I'm a new daddy and now I'm getting married in August! Wooo Hooo!!

BTW: I didn't use strict cause I was in a hurry and left it out. Bad Practice, I know I know.. 
#!/usr/bin/perl -wT
sub love {
    local ( $first, $last ) = @_;

    print "\nWill You Marry Me, $first $last ??\n";
    chomp( $love = <STDIN> );
    if ( $love =~ /yes/ ) { &yes }
    else { print "Error no 1 Kernel Failure Shutting Down\n" }
}

sub yes {

    print "\nGood!!  I couldn't live without you!!\n\n";
    print "
      ****     ****
     ******* *******
     ***************
      *************
        *********
          *****
            *
\n";

}

my $a = Danyeal;
my $b = Waddell;

&love( $a, $b );

[download]


-- Yes, I am a criminal. My crime is that of defyance.

Comment on You know you're a geek when...
Download Code
Re: You know your a geek when...
by higle (Chaplain) on Feb 18, 2002 at 18:46 UTC
    Good shot, def. And congratulations!

      higle
[reply]
You know you're a writer-geek when...
by merlyn (Sage) on Feb 18, 2002 at 18:49 UTC
[reply]
      *embarassing smirk* and a good laugh :)

      Thanks, its corrected!
      And thanks hig You will get an invitation!

      -- Yes, I am a criminal. My crime is that of defyance.
[reply]
Re: You know your a geek when...
by tjh (Curate) on Feb 18, 2002 at 18:58 UTC
    o'course, with no "use strict", you could have a second child unexpectedly... :)
[reply]
      You are so right!
      Perl Contraceptives make life easier, thats for sure!

      I think next time we will consider using the BirthControl::Depo::Prevara module for added security.

      -- Yes, I am a criminal. My crime is that of defyance.
[reply]
No taint
by simon.proctor (Vicar) on Feb 18, 2002 at 19:44 UTC
    Congrats :)

    I couldn't resist, you had warnings but no taint! All together now: 
    Sometimes I feel I've got to
Run away I've got to
Get away
From the pain that you drive into the heart of me
The love we share
Seems to go nowhere
I've lost my lights
I toss and turn I can't sleep at night

Once I ran to you (I ran)
Now I'll run from you
This tainted love you've given
I give you all a boy could give you
Take my tears and that's not nearly all
Tainted love
Tainted love
.......

    [download]
    Sorry :)
[reply]
[d/l]
      HE HE HE HE!
      Don't appologize, thats great I always welcome constructive critisism!!
      Tainted love is no fun!

      -- Yes, I am a criminal. My crime is that of defyance.
[reply]
      Oh noooo....are we singing ol' Marc Almond ditties now? :)

      metadoktor

      "The doktor is in."

[reply]
Re: You know you're a geek when...
by jonknee (Monk) on Feb 19, 2002 at 02:16 UTC
    Good thing she didn't type: Yes. That would have been awkward :). Good geeks always use lower case though, you have yourself a keeper.
[reply]
      *chuckle* or what if she had typed:
      "Sorry, I just accepted another proposal yesterday..."
      ;-P

      But seriously, congratulations.

      -Blake

[reply]
A *real* geek...
by clintp (Curate) on Feb 19, 2002 at 03:38 UTC
    A *true* Perl geek would have golfed that script first. :) Congrats.
[reply]
      Or better yet....obfu'd it.

      perl -e 'print reverse qw/o b n a e s/;'
[reply]
Re: You know you're a geek when...
by zakzebrowski (Curate) on Feb 19, 2002 at 12:21 UTC
    Guess it is possible for a geek to hear something other than: 
    sub getDateResponce
{
  return(0);
}

    [download]

    Congratulations. :)

    ----
    Zak
[reply]
[d/l]
      Yes it is possible :)

      what about the infamous 

      sub react2RejectionResponse
{
  die "Kernel Failure";
}

      [download]


      -- Yes, I am a criminal. My crime is that of defyance.
[reply]
[d/l]
Re: You know you're a geek when...
by buckaduck (Chaplain) on Feb 21, 2002 at 13:33 UTC
    Awfully cocky, using a "my" declaration on her name, when she hadn't even said "yes" yet...

    buckaduck

[reply]
      She did say yes.. :) August 10th 2002

      -- Yes, I am a criminal. My crime is that of defyance.
[reply]
        Congrats!

        Guess you better start cleaning out your browser bookmark files eh? :) And maybe scope the session management / persistence needs for the marriage.

        (And buy her her own library of Perl books so she'll leave yours where you piled 'em.)

        Well done defyance!

[reply]

Back to Cool Uses for Perl

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2013-05-19 03:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best material for plates (tableware) is:









    Results (396 votes), past polls