From: kevin lyda (kevin+dated+1032110091.ba1347 at domain ie.suberic.net)
Date: Tue 10 Sep 2002 - 18:14:56 IST
On Tue, Sep 10, 2002 at 04:17:12PM +0100, Paul Jakma wrote:
> On Tue, 10 Sep 2002, kevin lyda wrote:
> > in case anyone is curious, paul refuses to learn perl.
> sigh.. no i dont, just for general sysadminy type stuff awk does the
> job just as well, and chances are good with awk that it'll
> decipherable if it's ever revisited. :)
what a lame excuse [ :) ]:
kevin at domain owsla( 5:57)% perl -ne '$m.=$_; [~]
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;
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
) {
$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
-- kevin at domain suberic.net that a believer is happier than a skeptic is no more to fork()'ed on 37058400 the point than the fact that a drunken man is happier meatspace place: home than a sober one. the happiness of credulity is a http://ie.suberic.net/~kevin cheap & dangerous quality -- g.b. shaw
This archive was generated by hypermail 2.1.6 : Thu 06 Feb 2003 - 13:18:46 GMT