develooper Front page | perl.fwp | Postings from May 2003

Re: 99 bottles of beer on the wall

From:
=?iso-8859-1?q?Andrew=20Savige?=
Date:
May 24, 2003 23:12
Subject:
Re: 99 bottles of beer on the wall
Message ID:
20030525061241.77096.qmail@web10908.mail.yahoo.com
Ronald J Kimball wrote:
> $n=pop||99;sub b{"$n bottle@{[$n!=1&&s=>]} of beer"}print$b=b,$w=' on
> the wall',
> ",\n$b,\nTake one down, pass it around,\n",b($n--),"$w.\n"while$n
> sub b{"$n bottle@{[$n!=1&&s=>]} of beer"}

OK, I give up, what the hell is this?  $n!=1&&s=>
Deparse says it is equivalent to:      $n!=1&&'s'

/-\


http://mobile.yahoo.com.au - Yahoo! Mobile
- Check & compose your email via SMS on your Telstra or Vodafone mobile.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About