On Sam, 18 Mär 2000, Stefan `Sec` Zehl wrote:
> #!/usr/local/bin/perl -n
>
> BEGIN{
> use Date::Parse;
> use POSIX;
use MIME::QuotedPrint;
> };
>
> chomp;
>
> if ($hdr){
> /^Date:\s+(.*)/ && do {$date=$1;};
> /^From:\s+(.*)/ && do {$from=$1;};
> /^$/ && do{$hdr=0;$HoH{int(str2time($date)/3600/24)}{$from}++;};
> }else{
> /^From / && do {$hdr=1; undef $from,$date;};
> }
>
> END{
> foreach $family ( sort {$a <=> $b} keys %HoH ) {
> print strftime("%d.%m.%Y: {\n",gmtime($family*60*60*24));
> for $role ( sort {$HoH{$family}{$a} <=> $HoH{$family}{$b} }
> keys %{ $HoH{$family} } ) {
$mail = decode_qp($role);
$mail =~ s/=\?(?:ISO|iso).+?Q\?(.+)\?=/$1/;
> printf "%3d %s\n",$HoH{$family}{$role},$role;
$mail;
> }
> print "}\n";
> }
> }
to decode email-adresses like
"Harry =?iso-8859-1?Q?R=FCter?= <[EMAIL PROTECTED]>"
CU
Jens
--
registered linux user #130250
