[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