[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] perl5 is 5



> @v=('Happy birthday to you')x4;$v[2]=~s/to.*/dear perl5/;$"=";\n";print"@v.\n"

I got it down to 73:
$a="Happy birthday";print join",\n",$b="$a to you",$b,"$a dear Perl5",$b;

Oooh, wait, save a character by setting $,
$,=",\n";$a="Happy birthday";print $b="$a to you",$b,"$a dear Perl5",$b;

xoxo,
Andy


-- 
Andy Lester: andy@petdance.com  http://www.petdance.com/
<CF_BOOK_AUTHOR TITLE="Practical ColdFusion">



==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe