|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexei Vi. Baikalov 2:5020/400 09 Jul 2001 07:06:37
To : All
Subject : Вытаскивание даты. Hарод подскажите!
--------------------------------------------------------------------------------
Хоть убейте не могу понять почему?
Есть /var/mail/user файл! Hужно выташить письма! Делаю примерно
следующее!
#!/usr/bin/perl
print "Content-type: text/html\n\n";
open (FILE,"</var/mail/nobody") || die "$!";
@strings = <FILE>;
close FILE;
$i = -1;
for $string (@strings) {
++$i if ($string =~
/^From\s[\w,\-,\.]+\@[\w,\-,\.]+\.\w{2,3}\s[A-Z][a-z]{2}\s{2}\d{1,2}\s\d{2}:\d{2
}:\d{2}\s\d{4}$/);
$mail[$i] .= $string;
}
for $mail (@mail) {
$maildate = $mail;
$maildate =~
/[A-Z][a-z]{2}\s{2}\d{1,2}\s\d{2}:\d{2}:\d{2}\s\d{4}/m;
print "<hr width=500 />$maildate<hr width=500 />";
print "<br />\n<hr />\n<br />\n";
$mail =~ s/\n/\n<br \/>\n/g;
print $mail;
}
И вместо даты мне вываливается почти полная переменная $mail; Кто мне
объяснит в чем дело???
--- ifmail v.2.15dev5
* Origin: Enisey Infosystems (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
