Добрый день.
Не так давно начал изучать Perl (2 недели), до этого кроме #!/bin/sh ни на чем не программировал.
Поставил себе такую задачку - написать скрипт на Perl-е, который из журнала maillog (почтовый сервер Postfix 2.2.8) выбирает следующие данные: Месяц, число, время, ip-адрес отправителя, поля from и to и размер письма.
Все хорошо, но на некоторых письмах происходит затык - некоторые строки не разбиваются функцией split на элементы - бьюсь второй день, но причину не вижу.
Вот сама программа:
#!/usr/local/bin/perl
# Открыли файл, загнали все в массив @a
open(MAIL, "/home/admin/perl/maillog.0");
@a=<MAIL>;
close(MAIL);
$j=0;
for ($i=0;$i<$#a+1;$i++) {
$#b=0;
@b=split(/\s+/,$a[$i]); # Строку дробим на элементы
if (($b[6] =~ m/client=(.+)/) and ($b[6] ne 'client=localhost.domen.ru[127.0.0.1]'))
{
$c1[$j]=$b[5]; # получаем массив @c1, содержащий Message-ID писем, поступивших на обработку
$j++;
}
}
$j=0;
for ($i=0;$i<$#a+1;$i++) {
$#b=0;
@b=split(/\s+/,$a[$i]);
if ($b[6] eq 'removed')
{
$c2[$j]=$b[5]; # получили массив @c2, содержащий Message-ID писем, успешно обработанных и удаленных из очереди задач
$j++;
}
}
$k=0;
for ($i=0;$i<$#c1+1;$i++)
{ for ($j=0;$j<$#c2+1;$j++) {
if ($c1[$i] eq $c2[$j]) { $c[$k]=$c1[$i]; $k++; }}}
# Получили массив @c, содержащий пересечение массивов @c1 и @c2
$j=0;
for ($i=0;$i<$#a+1;$i++) {
$#b=0;
@b=split(/\s+/,$a[$i]);
if (($b[6] =~ m/client=(.+)/) and ($b[6] ne 'client=localhost.domen.ru[127.0.0.1]') and ($b[5] eq $c[$j]))
{
$d[$j]=$b[0]."\t".$b[1]."\t".$b[2]."\t";
$b[6] =~ s/client=(.+)\[(.+)\]/$2/g;
$d[$j].=$b[6].="\t\t";
$j++;
}
}
# Формируем массив @d, который будем заполнять нужными данными.
# До этого момента все работает нормально, а вот с полями from, to и size - беда - на некоторых строках не работает функция split.
$j=0;
for ($i=0;$i<$#a+1;$i++) {
$#b=0;
@b=split(/\s+/,$a[$i]);
if (($b[5] eq $c[$j]) and ($b[7] =~ m/size=(.+?),/))
{
$b[7] =~ s/size=(.+?),/$1/g;
$d[$j] .= $b[7];
$d[$j] .= "\t";
$j++;
}
}
Привожу кусок maillog-а, именно в этом месте скрипт затыкается:
Apr 6 02:10:33 newgateway postfix/smtpd[63214]: 61F8561C0E: client=unknown[68.56.22.107]
Apr 6 02:10:35 newgateway postfix/cleanup[63215]: 61F8561C0E: message-id=<20060405201033.61F8561C0E@newgateway.domen.ru>
Apr 6 02:10:35 newgateway postfix/qmgr[70203]: 61F8561C0E: from=<bj21@com2com.ru>, size=1335, nrcpt=1 (queue active)
Apr 6 02:10:36 newgateway postfix/lmtp[63170]: 61F8561C0E: to=<egor@domen.ru>, relay=127.0.0.1[127.0.0.1], delay=4, status=sent (250 2.0.0 Ok (2.0.0 <igor@domen.ru> OK ))
Apr 6 02:10:36 newgateway postfix/qmgr[70203]: 61F8561C0E: removed
Вариант для распечатки
Программирование под UNIX (Public)
(??) on 10-Апр-06, 13:08 
