[ale] Code/logic collection question

[dcorbin at imperitek.com (David Corbin)]

greg at turnstep.com wrote:
> 
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Quick and dirty: you'll probably want to manually pick out
> some addresses, but it works:
> 
> perl -ne 'print "$1\n" if /(\w+@\w+\.\w+)/' pinefile | sort -u

Of course, this assumes that there is never more than one mail address
per line....

I haven't test it, but I'd try this variation...


---cut---
#!/usr/bin/perl

while (<>)
{
	push @addrs, /(\w+@\w+\.\w+)/;
}
print join("\n", at addrs)
---eof---

then you could pipe THAT through sort -u
--
To unsubscribe: mail majordomo at ale.org with "unsubscribe ale" in message body.