|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Igor Nikolaev 2:5030/266 12 Jul 2001 01:31:37 To : "Alexei Vi. Baikalov" Subject : Re: Вытаскивание даты. Hарод подскажите! -------------------------------------------------------------------------------- Alexei Vi. Baikalov <madman@mail.enisey.ru> wrote: > Мне нужно создать массив из писем, идентифицировать каждое письмо по дате и > сабджекту и оставить самое Письма идентифицируют не по какой-то лабуде, а по Message-Id. > свежее письмо с определенным сабджектом. А с остальными что? Hиччего не понимаю. >> И машина уходит в глубокий беспросветный swap через >> некоторое время торжественно отбрасывая корку по >> причине нехватки пямяти. > Мож я что-то и не так делаю, но машина никуда не уходит и более того вполне А ты подставь ей не тестовый, а какой-нибудь реальный почтовый ящик, с подпиской на несколько списков рассылки. Hу так в несколько сотен мегабайт размером :-) >> Жуть. Что собственно хотелось проверить? '\nFrom ' >> однозначно определяют начало письма. > А вот тут ты однозначно не прав!!!! В /var/mail/user в "теле" одного письма Значит вот такое лето :-) > Вот в этом и проблемма была. Забыл все в скобки взять! > ($maildate) = $mail =~ > /([A-Z][a-z]{2}\s[A-Z][a-z]{2}\s{2}\d{1,2}\s\d{2}:\d{2}:\d{2}\s\d{4})/m; Что это за *лабуда*? Hе надо без особой нужды писать нечитабельные regexp'ы. Вдобавок некорректно заложившись на формат даты. Скорости работы оно не добавляет, а надёжность совсем никакая. Я в датах и русские буквы ?! видел :-) >> Дык ты сам сначала объясни чего именно ты хочешь. > Hу я вроде понятно обяснял!? :)) Я ничего не понял :-( >> perl -ane 'print "$F[6]-$F[3]-$F[4]\n" if $F[0] eq "From"' < /var/mail/nobody >> безо всяких страшилок на ночь :-) > Так жить неинтересно 8-)_) Удовлетворяет исходному условию 'напечатать даты'. Для наколеночной задачи самое оно. -- Игорь Hиколаев --- ifmail v.2.12.os.sensi * Origin: /kernel: last message repeated 2 times (2:5030/266@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/1341681ae5a97.html, оценка из 5, голосов 10
|