This was originally written for my brother (a Java programmer) because I couldn't think of anything to buy him for his birthday.

#!/usr/bin/perl my $happyBirthday # presents to you! =sub {my $bdp = shift ;print pack #### ### "c18" ,72 , 97,112,112, #### # ##### 121, 32, 66 ,105 , 114, ###### #### 116 , 104 , 100, 97,121 , 32 ; if ( $bdp=~m/you #appyBirthd HappyBirthd #ppyBirthda appyBirthda /ix) {print pack "c3", #pyBirthday ppyBirthday 116, 111 , 32;} else { #yBirthdayH pyBirthdayH print pack "c5", 100 , 101 , 97 , 114, 32 ; } #irthdayHap BirthdayHap print $bdp, "\n" ; } ; #rthdayHapp irthdayHapp #thdayHappy rthdayHappy #hdayHappyB thdayHappyB #dayHappyBi hdayHappyBi $happyBirthday->('you,'); $happyBirthday->('you,'); $happyBirthday->('__NAME__'); $happyBirthday->('you!');


BTW, is anyone familiar with the JAPH list on CPAN? I just stumbled on it from an article on perl.com, and was pleasantly suprised to see one of mine listed at the top. There were some other familiar japh's on the list, including camel code, genetic code, Valentines Day!, and Apologies to Joyce Kilmer.

joecamel

Replies are listed 'Best First'.
Re: Birthday Obfu
by Rydor (Scribe) on Jul 25, 2001 at 00:54 UTC
    Yeah. what that JAPH list really does is point out merlyn has waaaay too much time on his hands (scroll to the bottom to see what i mean)

    @:::::::((==========Rydor====>