|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 12 Feb 2002 15:36:39
To : "Nekipelov Alex"
Subject : Re: пара вопросов от начинающего
--------------------------------------------------------------------------------
Здравствуй, Nekipelov Alex.
NA> Hello, All!
NA> 1: Есть небольшой скриптик:
NA> #!/usr/bin/perl
NA> while ( <STDIN> ) {
NA> if ( $_ !~ m/\w*\.[(ru|org|com|net|su)]/i) {
NA> print $_; } }
NA> Как сделать так, чтобы он сравнивал только конец строки? Причем конец может
NA> быть как 0D0A, так и 0A.
...\r?$/ А квадратные скобки убрать нафиг.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.Mail.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
