|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 12 Feb 2002 18:54:28
To : Artem Chuprina
Subject : Re: пара вопросов от начина ющего
--------------------------------------------------------------------------------
Artem Chuprina wrote:
> Здравствуй, 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?$/ А квадратные скобки убрать нафиг.
И исправить регексп. Конструкция [(ru|org|com|net|su)] будет
работать совсем не так, как предполагал автор. Квадратные скобки
здесь лишние.
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
