https://www.opennet.ru/openforum/vsluhforumID9/7582.html Здравствуйте коллеги.<br>Сижу, ломаю голову над регулярными выражениями по кириллице в perl.<br>Я правильно понимаю, что регулярные выражения по кириллице в perl не работают как надо?<br>Или нашелся метод обойти это?<br>Насчет locale - не думаю, что дело в ней порылось.<br>Простой пример.<br><br>my $text = "Vъешь";<br>if ($text=~/[[:alnum:]]/)<br>{<br> print "Yes\n";<br>}<br><br>Если первую букву слова сменить на русскую - все, привет, не сработает.<br>Locale стоит как ru_RU.KOI8. Не думаю, что если поставлю cp1251 все заработает.<br> https://www.opennet.ru/openforum/vsluhforumID9/7582.html#3 Mon, 08 Sep 2008 11:02:41 GMT ну так man perlre и является основным по регексам. Могу даже нужный кусок процитировать<br>A "\w" matches a single alphanumeric character (an alphabetic character, or a decimal digit) or "_", not a whole word. Use "\w+" to match a string of Perl-identifier characters (which isn't the same as matching an English word). If "use locale" is in effect, the list of alphabetic characters generated by "\w" is taken from the current locale. See perllocale.<br>Чуть дальше и про [:alpha:] есть. <br> https://www.opennet.ru/openforum/vsluhforumID9/7582.html#2 Sun, 07 Sep 2008 15:21:58 GMT &gt;Читайте маны(в данном случае man perlre), они рулят: <br>&gt;$ perl -le '$_="фыва"; print /\w/;' <br>&gt;<br>&gt;$ perl -le 'use locale;$_="фыва"; print /\w/;' <br>&gt;1 <br>&gt;$ perl -le 'use locale;$_="фыва"; print /[[:alpha:]]/;' <br>&gt;1 <br><br>Вот спасибо. А я перечитал все по regexp. Видимо не там рыл.<br>Еще раз спасибо.<br> https://www.opennet.ru/openforum/vsluhforumID9/7582.html#1 Sun, 07 Sep 2008 13:43:57 GMT Читайте маны(в данном случае man perlre), они рулят:<br>$ perl -le '$_="фыва"; print /\w/;'<br><br>$ perl -le 'use locale;$_="фыва"; print /\w/;'<br>1<br>$ perl -le 'use locale;$_="фыва"; print /[[:alpha:]]/;'<br>1<br>