#! /usr/local/bin/perl
используйте только;
используйте предупреждения;
используйте sendmail;
используйте POSIX;
мое $html;
мо $cnt = 0;
мо $dte = strftime «%A, %B %d, %Y - %T», localtime;
раскройте ВНУТРИ, «tix_file» или умрите «не smogл раскрыть tix_file: $! »;
$html. = «\ n
\ n ";
$html. = «Отчет о билета\ n ";
пока ()
{
chomp;
$cnt++;
мо $url = «https://ibjira.uk.mmm.com/jira/browse/$_»;
$html. = «билет $_
\ n ";
}
$html. = «
\ n ";
$html. = «нашл показатели $cnt
\ n ";
$html. = «\ n\ n ";
закройте ВНУТРИ;
# установите варианты электронная почта
мо $sendto = «[email protected], [email protected]»;
мо $from = «автоматизированное электронная почта»;
мо $subject = «отчет о билета для $dte»;
sendmail ($sendto, $from, $subject, $html);
выход;
|
