Wynik:
$ tail -F /var/log/mail.log | ./pmail.corp
Lp. Data Temat Od Do
====== =================== ======================================= ==================================== ===================================
1. 2023-01-04 00:57:12 Re: Obowiązek wprowadzenia standardów poczta@dydaktyka.corp serwis@bogus.home
ochrony małoletnich w szkołach i
przedszkolach – informacja
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
[...]
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
1163. 2023-01-04 17:11:30 Funkcjonowanie arc? hiwum kontakt@eibweb.corp ele123@bogus.home
zakładowego/? składnicy akt dla?
początkujących
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
1164. 2023-01-04 17:17:08 [ESP] Urzędowe Poświadczenie Odbioru ceidg-noreply@ceidg.gov.corp elzbieta.golka@bogus.home
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
1165. 2023-01-04 17:21:45 ZALANIE - PODTOPIENIE - POŻAR - info@eforumb2b.corp agnieszka.wakosz@bogus.home
Dodatkowe środki na remont
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
1166. 2023-01-04 17:31:15 👤 Kalina Elżbie? ta Bilda to now? a friendsuggestion@facebookmail.com ireneusz.grzebinski@bogus.home
propozycja zn? ajomości dla Ci? ebie
Skrypt:
#!/usr/bin/perl
#
# tail -F /var/log/mail.log | ./pmail.corp
#
# cd /var/log/syslogs/2023/02
# find ./{01..15} -iname '*mail*' -exec zgrep <PATTERN> {} \; | ~/pmail.corp
#
use utf8;
use open ':std', ':encoding(UTF-8)';
use Time::Piece;
use Encode;
my $time = localtime;
#$: = " @.";
sub trim { return $_[0] =~ s/^\s+|\s+$//rg; }
format =
^>>>>> ^<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$i, $dt, $subject, $from, $to
------ ------------------- --------------------------------------- ------------------------------------ -----------------------------------
.
#format STDOUT_TOP =
#Mail Report (page @#)
# $%
$= = 9999;
format STDOUT_TOP =
Lp. Data Temat Od Do
====== =================== ======================================= ==================================== ===================================
.
$idx = 0;
while (<>) {
if (/^(... .. ........) .*warning: header Subject: (.*) from .*; from=<([^>]+)>.*to=<([^>]+)>/) {
$i = ++$idx . '.';
$d = Time::Piece->strptime("$1", "%b %d %H:%M:%S");
#$dt = $d->strftime("%m-%d %T");
$dt = $time->year . '-' . $d->strftime("%m-%d %T");
#$subject = $2;
$subject = decode("MIME-Header",$2);
$from = $3;
$to = $4;
#printf("%-14s %-42s %-30s %s
",$dt,$subject,$from,$to);
write();
}
}