[oak perl] perl can bite me

Belden Lyman blyman at iii.com
Tue Nov 26 10:37:23 CST 2002


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 }
> 


my @beer = qw(good cold more);
while (my $uid = getpwnam ...

doh!





More information about the Oakland mailing list