[Za-pm] Script

[Nick Cleaton]

On Wed, Jun 04, 2003 at 03:05:50PM +0200, Oskar Pearson wrote:
>
> So you basically want to discard the date and length and stuff,
> and simply get the addresses?
> 
> while (<STDIN>) {
>         my ($email_address) = $_ =~ /([^\s<]+\@[^\s>]+)/;
>         print "email_address: $email_address\n";
> }

That will go wrong on pathalogical cases like this:

[Sat May 24 12:51:37 SAST 2003] SMS "Mr Br@@i Dude" <braaidude at hotmail.com> sent 151 characters to 271234567891

--
Nick