ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 26 Dec 2004 02:30:00
To : Serg Ivanov
Subject : Re: RE и 8-битные символы
--------------------------------------------------------------------------------
Serg Ivanov -> Artem Chuprina @ Sat, 25 Dec 2004 12:44:52 +0000 (UTC):
SI>>> Вопрос: как сделать, чтобы юниксовый Перл понимал символы внутри
SI>>> RE как однобайтовые?
AC>> use bytes;
SI> Почему-то это не помогает. Под виндовс 4 раза пишет found, а под юникс
SI> (perl5.6) - 4 раза not found. Вот скрипт:
Для начала - у тебя переменная $_ заполняется до начала действия прагмы
bytes. Попробуй ее совсем в начало поставить.
SI> #!/usr/bin/perl -w
SI> use strict;
SI> print "Content-Type: text/html\n\n";
SI> print "<html><body>\n";
SI> $_='Результат поиска: найдено сайтов';
SI> if (/^Результат поиска.+?сайтов/m)
SI> { print "1. Found<br>\n";
SI> } else
SI> { print "1. Not found<br>\n";
SI> }
SI> if (/^Результат поиска.+?\xF1айтов/m)
SI> { print "2. Found<br>\n";
SI> } else
SI> { print "2. Not found<br>\n";
SI> }
SI> use bytes;
SI> if (/^Результат поиска.+?сайтов/m)
SI> { print "1. Found<br>\n";
SI> } else
SI> { print "1. Not found<br>\n";
SI> }
SI> if (/^Результат поиска.+?\xF1айтов/m)
SI> { print "2. Found\n";
SI> } else
SI> { print "2. Not found\n";
SI> }
SI> print '</body></html>';
--
Artem Chuprina <ran{}ran.pp.ru>
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
