[oak perl] perl can bite me

David Wheeler david at wheeler.net
Tue Nov 26 10:01:10 CST 2002


On Monday, November 25, 2002, at 05:52  PM, cajun at cajuninc.com wrote:

> my @beer= qw (good cold more);
> foreach (@beer){
>   print "$_ beer\n";
> }

my @beer = qw(good cold more);
while (1) { map { print "$_ free beer\n" } @beer }

:-)

David

-- 
David Wheeler                                     AIM: dwTheory
david at wheeler.net                                 ICQ: 15726394
http://david.wheeler.net/                      Yahoo!: dew7e
                                                Jabber: Theory at jabber.org




More information about the Oakland mailing list