From: Paul Jakma (paulj at domain alphyra.ie)
Date: Tue 10 Sep 2002 - 18:30:35 IST
On Tue, 10 Sep 2002, kevin lyda wrote:
> what a lame excuse [ :) ]:
:)
and look at the below! perl is just such a damn ugly language! awk is
much nicer on the eye, and there's nothing that perl has that awk
doesnt that a few years of polishing and developing a library of
modules wouldnt fix.
> kevin at domain owsla( 5:57)% perl -ne '$m.=$_; [~]
what on eath is "$m.=$_" and why on earth would anyone love syntax
like that? :)
> END {
> at domain m=split(/(^From .*?^$)/ms, $m);
> while(pop( at domain m)) {
> $m=pop( at domain m);
> $m=~/^From: (.*?)$/m;
> $s{$s=$1}=1;
urg.... that is just sick. :)
> if($m=~/^Content-Type.*charset=.*[wW]indows/m or
> $m=~/^X-(MSMail-Priority|Originating-IP|MimeOLE):/m or
> $m=~
> /(Mailer|User-Agent).*(Microsoft|QUALCOMM|DMailWeb|WebMail)/m
> ) {
You've missed "Internet Mail".
> $m{$s}=1
> } else {
> $l{$s}=1
> }
> }
> ($l,$m,$s)=(scalar(keys(%l)),scalar(keys(%m)),scalar(keys(%s)));
> printf("linux users %%: %2.2f\nms users %%: %2.2f\ncounts (linux/ms/senders): %d/%d/%d\n",$l/$s*100,$m/$s*100,$l,$m,$s)}' < Mail/Linux/ILUG/*
> linux users %: 83.05
> ms users %: 17.92
> counts (linux/ms/senders): 686/148/826
> kevin
:)
regards,
-- Paul Jakma Sys Admin Alphyra paulj at domain alphyra.ie Warning: /never/ send email to spam at domain dishone.st or trap at domain dishone.st
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:18:46 GMT