Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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 );

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

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... :)
      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.
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 .......
    Sorry :)
      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.
      Oh noooo....are we singing ol' Marc Almond ditties now? :)


      "The doktor is in."

You know you're a writer-geek when...
by merlyn (Sage) on Feb 18, 2002 at 18:49 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.
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.
      *chuckle* or what if she had typed:
      "Sorry, I just accepted another proposal yesterday..."

      But seriously, congratulations.


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.
      Or better yet....obfu'd it.

      perl -e 'print reverse qw/o b n a e s/;'
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); }

    Congratulations. :)

      Yes it is possible :)

      what about the infamous

      sub react2RejectionResponse { die "Kernel Failure"; }

      -- Yes, I am a criminal. My crime is that of defyance.
Re: You know your a geek when...
by higle (Chaplain) on Feb 18, 2002 at 18:46 UTC
    Good shot, def. And congratulations!

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


      She did say yes.. :) August 10th 2002

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

        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!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://146192]
Approved by root
[Corion]: Hmm. I think overnight I decided on simplifying some code. I have plugin classes that do data import (.csv, .yml, .json) and for that create objects on which then ->load() is called. But YAML::XS doesn't have an object, so I wrote my own wrapper.
[Corion]: This evening, I'll kill that wrapper again, and just call LoadFile() in the plugin class directly instead of creating a go-between object for no real gain.
[Corion]: Writing these import plugins was really nice though - in about 2 hours, I had imports for CSV, YAML and JSON, and adding XLS(X), SQLite (or DBI) data sources is also trivial. I'm idly wondering about separating the plugin into transport+parser, so ...
[Corion]: ... http:// URLs could be retrieved and then parsed, but I think that that would be overkill for a toy static site generator ;)

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2018-05-22 11:01 GMT
Find Nodes?
    Voting Booth?