🚀 go-pugleaf

OK jakos tam sobie poradzilem jak na moje umiejetenosci
moze sie komusc przyda chodzi przyzwoicie i ladnie zczytuje logi z postfixa

#!/usr/bin/perl

$dir = '/usr/skrypty/maillog/boborowa/logi';

#`/bin/rm -f $dir/wynik/*`;
#31 maillog
my %skrzynki = (
                     'biuro@xxx.pl' => 1,
                     'marketing@xxx.pl'        => 1,
                 );

foreach my $sprawdz (keys %skrzynki)
{
open ZAPISZ, "+>>$dir/wynik/$sprawdz";

for ($i=309;$i>=31;$i--)
{
open(UCHWYT, "$dir/maillog.$i");
open(UCHWYT_copy, "$dir/maillog.$i");
@UCHWYT = <UCHWYT_copy>;

my %Q;
my %line;

while (<UCHWYT>)
{
#sprawdzam czy wpis jest emailem jesli tak to wchodzi dalej i sprawdza w 
haszu czy jest email jesli tak obrabia go dalej i tworzy linie
     if 
(/([\w\.-]*[a-zA-Z0-9_]@[\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z])/)
     {
         if ($skrzynki{$1} && $sprawdz eq $1)
         {
             if (/([0-9A-Z]{10})/)
             {
                 $Q{$1} = 1;
             }
             if (/([0-9:]{3}[0-9:]{3}[0-9]{2})/)
             {
                  $line{$_} = $1;
             }
             $queue_id = "";
         }
     }
}
close UCHWYT;

# tu robie grep jeszcze raz dla maillog z konkretym ID queue i dopisuje 
do lini
foreach (keys %Q)
{
     $id = $_;
     foreach (grep (/$id/, @UCHWYT))
     {
         print $_;
         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 $line (sort keys %line)
{
     print ZAPISZ $line;
}
close UCHWYT_copy;
}
close ZAPISZ;
}