🚀 go-pugleaf

Witam

Napisalem skrypt wyciagajacy z mailloga informacje o danym koncie email

tzn. kiedy sie logowal
i jaka byla sciezka mail queue (tzn. skad i dokad byl wysylany mejl)

#!/usr/bin/perl
$REGEXP = shift || die "nie podano adresu email / domeny";
$dir = '/usr/skrypty/maillog/boborowa';
@data = `/bin/cat $dir/maillog`;

my %Q;
my %line;

for (@data)
{
         if (/$REGEXP/i)
         {
             if (/([0-9A-Z]{10})/)
             {
                 $queue_id = $1;
             }
             if ($queue_id)
             {
                 $Q{$queue_id} = 1;
             }
             if (/([0-9:]{3}[0-9:]{3}[0-9]{2})/)
             {
                  $line{$_} = $1;
             }
             $queue_id = "";
     }
}

# tu robie grep jeszcze raz dla maillog z konkretym ID queue i dopisuje 
do lini
foreach (keys %Q)
{
     @data = `/bin/cat $dir/maillog | grep $_`;
     foreach  (@data)
     {
         if (/([0-9:]{3}[0-9:]{3}[0-9]{2})/)
         {
             $line{$_} = $1;
         }
     }
}


# wyswietlam posortowane wpisy na podstawie godziny
# tu pojawia sie problem bo jak sortuje po godzinach to
# gubi sie kolejnosc wpisow

foreach my $id (sort keys %line)
{
     print $id;
}

no i pytanko jak to rozwiazac inaczej, moze ktos pisal skrypt na tego 
typu potrzeby

dzieki
gregor