|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serg Ivanov 2:5020/400 07 Jul 2004 20:37:51
To : All
Subject : Ошибка в perl 5.6.1(?)
--------------------------------------------------------------------------------
Hi All,
Какая-то непонятная ошибка в перле 5.6.1. Дома в перле 5.8.1 работает
нормально.
#!/usr/local/bin/perl -w
use strict;
$_=<<EOD;
<div class="refblock">
Результат поиска: страниц — <b>20517</b>, сайтов — не
менее <b>882</b><br>
EOD
print "Content-Type: text/html\n\n";
print '<html><body>';
if (m!^Результат поиска:.+?сайтов[^<]+<b>(\d+)</b>!m)
{ print 'Found';
} else
{ print 'Not found';
}
print '</body></html>';
Переводы строк как в юниксе. Дома пишет, что найдено, а на сервере у буржуев
не
найдено. Оказалось, что все дело в .+? и русских буквах. Если убрать эту точку
(заменить на что-то другое) или взять шаблон без русских букв, то на сервере
тоже начинает находить.
Проверьте у себя дома и на сервере этот перл. В чем тут может быть дело?
Установка локали, как и следовало ожидать, не помогает.
В $_ кусок поисковой страницы Яндекса. Hадо было взять в $1 число найденных
сайтов
по данному запросу.
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
