You know you're a geek when...

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

Replies are listed 'Best First'.
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]
Re: Re: You know you're a geek when... by defyance (Curate) on Feb 18, 2002 at 19:17 UTC
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]
Re: No taint by defyance (Curate) on Feb 18, 2002 at 19:49 UTC
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]
Re: No taint by metadoktor (Hermit) on Feb 19, 2002 at 04:30 UTC
Oh noooo....are we singing ol' Marc Almond ditties now? :) metadoktor "The doktor is in."	[reply]
You know you're a writer-geek when... by merlyn (Sage) on Feb 18, 2002 at 18:49 UTC
... you point out that "your" should have been "you're". {grin} -- Randal L. Schwartz, Perl hacker	[reply]
Re: You know you're a writer-geek when... by defyance (Curate) on Feb 18, 2002 at 18:54 UTC
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 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]
Re2: You know you're a geek when... by blakem (Monsignor) on Feb 19, 2002 at 19:08 UTC
chuckle or what if she had typed: "Sorry, I just accepted another proposal *yes*terday..." ;-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]
Re: A real geek... by seanbo (Chaplain) on Feb 19, 2002 at 15:52 UTC
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]
Re: Re: You know you're a geek when... by defyance (Curate) on Feb 19, 2002 at 17:41 UTC
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 your a geek when... by higle (Chaplain) on Feb 18, 2002 at 18:46 UTC
Good shot, def. And congratulations! higle	[reply]
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]
Re: Re: You know you're a geek when... by defyance (Curate) on Feb 21, 2002 at 17:43 UTC
She did say yes.. :) August 10th 2002 -- Yes, I am a criminal. My crime is that of defyance.	[reply]
Re: Re: Re: You know you're a geek when... by tjh (Curate) on Feb 21, 2002 at 20:01 UTC
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]