|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nekipelov Alex 2:5020/400 12 Feb 2002 05:51:32
To : All
Subject : пара вопросов от начинающего
--------------------------------------------------------------------------------
Hello, All!
1: Есть небольшой скриптик:
#!/usr/bin/perl
while ( <STDIN> ) {
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>
With best regards,
Nekipelov Alex.
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
