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

Re: 99 bottles of beer on the wall

May 24, 2003 23:12
Re: 99 bottles of beer on the wall
Message ID:
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'

/-\ - Yahoo! Mobile
- Check & compose your email via SMS on your Telstra or Vodafone mobile. Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About