Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Birthday Obfu

by joecamel (Hermit)
on Jul 23, 2001 at 09:06 UTC ( [id://98914]=obfuscated: print w/replies, xml ) Need Help??

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://98914]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (7)
As of 2024-04-17 11:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found