I just thought about what it would be like if everybody went round talking as if they were speaking/writing Perl ALL the time... know what i mean? it would be well surreal... i probly sound real weird! ;-)

for example, what i've just written would be: 
my $everybody_spoke_perl = 1;
if($everybody_spoke_perl) {
  for($ALLTIME) {
    my $action = getAction();
    speakPerl if $action=="speak";
    writePerl if $action=="write";
  }
}
my $know_what_i_mean = getResponce();
i_sound_surreal() while(you're reading);

[download]
Ignore me if you will! but it will be the future!! MWA HA HA HAAA!!

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i would slit my wrists for you

Replies are listed 'Best First'.
(shockme) Re: Speaking & Writing In Perl code
by shockme (Chaplain) on Jan 14, 2002 at 07:38 UTC
    I do this to my wife every now and then. I can't recommend it to everyone, but it does make for some interesting mornings. 

    Wife: Do you have a busy day today?
Me: Response = 1;
Wife: What?
Me: Goto PreviousResponse;
Wife: Oh, jeez...not this again....
Me: While response = 1 { print "yes"}
Wife: Nevermind.  (sound of hair dryer.....)

    [download]

    The looks the kids give me during dinner are priceless.

    Update: Changed line 4 to correct metadoktor's response. Original read "Me: Goto to PreviousResponse;" So, ++ to metadoktor.

    If things get any worse, I'll have to ask you to stop helping me.

[reply]
[d/l]
      Wife: Run-time error detected on line 4. Core dump.

      [download]

      metadoktor

      "The doktor is in."

[reply]
[d/l]

      Compared to mine, your wife sounds almost amused. My wife won't even stay in the same room when I'm discussing code on the phone with someone.

      My revenge is, of course, teaching the kids to code.

[reply]
Re: Speaking & Writing In Perl code
by robot_tourist (Hermit) on Jan 23, 2002 at 13:36 UTC
    If everybody spoke Perl, who would be the lexer? If you use diagnostics, will a voice from the air say:

    Argument "speak" isn't numeric in eq line 5 (#1)

    (W) The indicated string was fed as an argument to an operator that
    expected a numeric value instead.  If you're fortunate the message
    will identify which operator was so unfortunate.
    I have a wiry brain/each eye a camera Robot Tourist by Ten Benson
[reply]
[d/l]
Re: Speaking & Writing In Perl code
by Anonymous Monk on Jan 31, 2002 at 17:16 UTC
    Awesome Poem brother! I know what you mean
[reply]
Re: Speaking & Writing In Perl code
by xtype (Deacon) on Feb 04, 2002 at 20:14 UTC
    Hah! A friend and I, who worked tech support together, did this for a while one even. Pretty funny. Actually, I didn't know perl so well then, so I might have been speaking C-ish. But it worked out. 
    while(<>) {
  if(&listen($_) eq "phone ring") {
    &ignore_stupid_people("on phone");
 }
}

    [download]
[reply]
[d/l]

Back to Perl Poetry