SPUG: Inspired, broken.

[jlb]

On Wed, 9 Feb 2005, jlb wrote:

> On Wed, 9 Feb 2005, Atom Powers wrote:
>> I toyed with the idea of something like this:
>> /usr/bin/perl5 -wnl -e 'm/\w+\@\w+\.\w{3}/ and 
>> open(DATA,">","recipients.txt") and print DATA "\L$&\E OK";' 
>> /usr/home/mailman/address_list.txt
>
> It most likely wouldn't brek <snip>

Actually, I didn't read through that all the way, I don't think the way 
you had it would work.  I assumed you opened and closed the file each time 
through the loop, which would certainly work but would be a bit ugly, as I 
mentioned.