Slashdot Mirror

← Back to Stories (view on slashdot.org)

Happy Birthday Perl!

Posted by chrisd on from the theres-more-than-one-way-to-blow-out-the-candles dept.

Puppet Master writes: "Just remembered that Perl was created on this day (12/18) in 1987 by Larry Wall..." Check out the Time Line and the discussion on use.perl.org and I'll take this chance as a reminder to donate to the Damian Conway/Dan Sugalski slavery fund.

3 of 168 comments (clear)

  1. Re:This post... by Frothy+Walrus · · Score: 5, Funny

    what part of

    $_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142 ;$ t=255;@t=map{$_%16or$t^=$c^=(
    $m=(11,10,116,100,11,122,20,100)[$_/16%8])&110 ;$t^=(72,@z=(64,72,$a^=12*($_%16
    -2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271 );if((@a=unx"C*",$_)[20]&48){$h
    =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[- -$ h+84])}@ARGV;s/...$/1$&/;$
    d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3] ;$d=$d>>8^($f=$t&($d>>12^$d>&gt ;4^
    $d^$d/8))<<17,$e=$e>>8^($t&($g=($q =$e>>14&7^$e)^$q*8^$q<<6))<< 9,$_=$t[$_]^
    (($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}p rint+x"C*",@a}';s/x/pack+/g;eval

    don't you understand??

  2. It's about that time... by MicroBerto · · Score: 5, Funny
    Ahhh, 14 years old. Perl is now going to become (even more) rebellious, may stop talking to its parents, and will insist on being called a man, or more mature.

    Don't be surprised if you begin seeing Perl tend to lean towards more pornography and opposite-sex modules. Excitement will soon begin for the car and driving modules as well!

    Larry, although Perl doesn't want to talk with you as much during these rebellious years, please make sure that it takes care of itself during its bodily changes, including washing its face, as acne outbreaks are rampant during these years and can ruin its complexion forever.

    --
    Berto
  3. Re:wow! by plover · · Score: 5, Funny
    And on the second day, Larry rested.

    (It didn't start out big enough to take seven days!)

    John

    --
    John