open(mail,$source_file_name) or die "file not found";
open (temp,$temp_file_name) or die "file not create";
while(<mail>)
{ # begin while
if ($_=~/Subject:/)
{
if ($_=~/\d*\.\d*/)
{
print temp "$&";
}
}
} # end while
close(mail);
close(temp);
Есть строка в почтовом файле, она содержит информацию о дате события в subject'e файла.
Строка в файле выглядит так:
--cut--
Subject: =?ISO-8859-1?Q?=D7=D2=DD=D63: =C3=F0=E0=F4=E8=EA =ED=E0?= 12.04
--cut--
Интересует только дата в конце строки.
Сделал пока через два if.
Не подскажете, как подсократить условие проверки.