![[community profile]](https://www.dreamwidth.org/img/silk/identity/community.png){kind=small}
(no subject)
Jun. 22nd, 2009 04:19 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
sophieThis comm needs more posts. :D
Has anyone here made a JAPH? I made one way back in 2002 and it isn't really that great (hey, it was 6-7 years ago, give me some slack :D), but I thought I'd share it anyway:
There are a few Easter eggs in the source. :)
Has anyone here made a JAPH? I made one way back in 2002 and it isn't really that great (hey, it was 6-7 years ago, give me some slack :D), but I thought I'd share it anyway:
#!/usr/bin/perl
$smilies="jolly- fun-resilient-
mirthful--adorable- enticing-sloping
-ecstatic-happy- delightful-enrapt-
-rhapsodic- earless-grinning
-!melancholy-
-mighty-
appropriate-
accepted
-joking-cheerful -!rare";$smilies=~
s/[\n \!]//g; $smilies=~s/--/-=/g;
@joyful=split( '-',$smilies);my
$smile=":-D"; my $elation=-1;
while($smile ne "rare"){$elation+=1;
$smile=$joyful[$elation];if($smile
=~/^=^?/){($smile)=$smile=~
/.(.*)/;print" ";}@pleasing=
split('',$smile);print
$pleasing[($elation
%4)];}There are a few Easter eggs in the source. :)
