On Wed, Dec 31, 2008 at 21:40, Steven Rodriguez <optionshi...@gmail.com> wrote: > Well, as a beginner with per I have been fascinated with the "Just another > perl hacker" program or signature. So, I decided to make my own. Granted, I > am just a beginner so my version is fairly simple. All I did was make each > letter of the phrase and independent variable. Still, it is fun to see > people's reaction when I use it on my email signature. > > Here it is: > > #!/usr/bin/perl > $J ="J" ; > $U ="u" ; > $S ="s" ; > $T ="t" ; > > $A ="a" ; > $N ="n" ; > $O ="o" ; > $T ="t" ; > $H ="h" ; > $E ="e" ; > $R ="r" ; > > $P ="P" ; > $E ="e" ; > $R ="r" ; > $L ="l" ; > > $H ="h" ; > $A ="a" ; > $C ="c" ; > $K ="k" ; > $E ="e" ; > $R ="r" ; > $, ="," ; > print "$J$U$S$T $A$N$O$T$H$E$R $P$E$R$L $H$A$C$K$E$R $,\n" ;
Nifty. One of the goals of a JAPH is to demonstrate one or more of Perl's advantages/quirks. Yours shows variable interpolation and the fact that $, can be a variable. Here is one based on yours that (ab)uses the quote-like operators*, uc** (using the default variable), string eval***, the list separator****, and the input record separator*****. eval q.$..(uc).qq.='$_'.for split//, "JustanotherPerlhacker"; print qq'$J$U$S$T$"$A$N$O$T$H$E$R$"$P$E$R$L$"$H$A$C$K$E$R$/'; * http://perldoc.perl.org/perlop.html#Quote-and-Quote-like-Operators ** http://perldoc.perl.org/functions/uc.html *** http://perldoc.perl.org/functions/eval.html **** http://perldoc.perl.org/perlvar.html#$"; ***** http://perldoc.perl.org/perlvar.html#$/ -- Chas. Owens wonkden.net The most important skill a programmer can have is the ability to read. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
