|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 12 Feb 2002 11:14:29
To : Nekipelov Alex
Subject : Re: пара вопросов от начинающего
--------------------------------------------------------------------------------
Nekipelov Alex <linuxoid@xak.ru> wrote:
> Hello, All!
>
> 1: Есть небольшой скриптик:
> #!/usr/bin/perl
> while ( <STDIN> ) {
+ s/[\r\n]//g;
> if ( $_ !~ m/\w*\.[(ru|org|com|net|su)]/i) {
> print $_; } }
> Как сделать так, чтобы он сравнивал только конец строки? Причем конец может
> быть как 0D0A, так и 0A.
>
> 2. Есть файл, в котором храняться письма. Как вытащить всех отправителей и
> получателей из этого файла?
> Вот пример заголовка:
>
> Message-ID: <5640.020115@mtu-net.ru>
> From: "Igor Mylnikov" <x1@mail.ru>
> To: =?koi8-r?B?68/N0MHOydEg68nS?= <x2@mailru.com>
>
perldoc Mail::Address;
>
> With best regards,
> Nekipelov Alex.
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: пара вопросов от начинающего 
