[oak perl] perl can bite me

George Woolley george at metaart.org
Tue Nov 26 11:16:16 CST 2002


On Tuesday 26 November 2002 8:01 am, David Wheeler wrote:
> 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

For those who like to savor their imaginary beers,
I suggest:

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

:-)ing George



More information about the Oakland mailing list