[Za-pm] Script

[Bartho Saaiman]

You got to love the power of the Internet :)

This works more than less for me for now, and I understand exactly why 
this might brake, so I will be careful.

I am also playing with Oskar's one liner, which is not pure perl anymore 
so suggestions for improvement is welcome. Note that it might apper wrapped:

[bartho at bartho]# perl -p -e '$_ =~ /^\[(.+)\] SMS .*\<(.+)\> \
	sent   (.+) characters to (.+)$/; $_ = "$1 $2 $3 $4\n";' < \
  	smslog |grep May|grep 2003  |awk '{if ($7=="bartho at cae.co.za") \
	{user=user+1; print $7 " " user}}'

bartho at cae.co.za 1
bartho at cae.co.za 2
bartho at cae.co.za 3
bartho at cae.co.za 4
bartho at cae.co.za 5
bartho at cae.co.za 6
bartho at cae.co.za 7
bartho at cae.co.za 8
bartho at cae.co.za 9
bartho at cae.co.za 10

Nick Cleaton wrote:
> 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

-- 
# Bartho Saaiman
# Stellenbosch Automotive Engineering
# Tel :: 27 21 882 8820 x 215
# Cell :: 27 82 551 2703
# Email :: bartho @ cae.co.za
# GnuPG Key is available at http://www.cae.co.za/people/bartho