VPF::Регулярные выражения - Форум программистов

marlen

Дата 11.8.2003, 20:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблема вот в чём, у меня есть файл, в котором встречаются следующие выражения Мама, мама и МАМА. Мне нужно их все
оттуда вытащить, это не помогает:
##############################
print if /мама/i;
##############################
Спасибо.

MuToGeN

Дата 11.8.2003, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Лесник

Профиль
Группа: Модератор
Сообщений: 4379
Регистрация: 15.8.2002
Где: Москва

Репутация: нет
Всего: 32

/[Мм][Аа][Мм][Аа]/
но, чувствую, это не лучший вариант...

--------------------

Three pings for the token rings,
Five pings for the UNIX machines,
Hundred pings for the broken links,
One special ping to check them all
Through Simple Network Management Protocol!

HalkaR

Дата 11.8.2003, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42

Скорее всего проблема в руской кодировке.

marlen

Дата 11.8.2003, 21:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Снова я, извини я не правильно обьяснил, имеется в виду разный регистр букв, и не обязательно это слово например: print if /$var/i;

HalkaR

Дата 12.8.2003, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42

Странно, что не работает, должно работать, может полностью исходник дашь, чтобы мы посмотрели?

marlen

Дата 14.8.2003, 06:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

#!C:/Perl/bin/perl
use CGI qw(param);
my $gg=param("query");
print"Content-Type: text/html; charset: windows-1251\n\n";
open(HJ,"<../site/Price.htm")|| die "ERORR!!!\n";
open(JK,">>../cgi-bin/test.htm")|| die "ERORR!!!\n";
while(<HJ>){
print JK if /$gg/i;
}
close(HJ);
close(JK);
open(JK,"<../cgi-bin/test.htm")|| die "ERORR!!!\n";
while(<JK>){
print"&nbsp&nbsp&nbsp&nbsp";
print;
print" ";
}
close(JK);
unlink("../cgi-bin/test.htm");

Wowa

Дата 14.8.2003, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

Репутация: нет
Всего: 290

попробуй перевести все в нижний регистр

marlen

Дата 17.8.2003, 16:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Сложный пока для меня процесс, в полутора тысячном(строк) прайсе поменять регистр некоторых слов, пока не получается, но нашел другой
выход посоветуйте будет-ли работать.
###############################################
<a href="http://localhost/cgi-bin/env.pl?query=Водка|ВОДКА|водка">
<li>Водка
</a>
###############################################
Спасибо.

HalkaR

Дата 18.8.2003, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42

Твоя проблема не в поиске, а втом, что при передаче строки поиска скрипту русский текст перкодируется и в перменной $gg лежит уже не русски теск, а его коды. Поэтому ессно ничего не находится.

Хотя параметр i действительно не работает для русского теста - это факт.

Но неработающий i можно исправить. Под Вынь надо добавть строки

Код

use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, "Russian_Russia.1251");

Под Юникс

Код

use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, 'ru_RU.KOI8-R');

marlen

Дата 18.8.2003, 21:12 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Серьёзный ответ, спасибо, а то уже ещё назрел вопрос, а ты опередил,

всё равно спрошу, про локали читал, но что в Винде его надо
использовать,

автор меня подвёл. Вопрос:
Если потом грузить скрипт на сервак, то чо надо потом менять на код под
Unix?

HalkaR

Дата 18.8.2003, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Пуфыстый назгул

Профиль
Группа: Экс. модератор
Сообщений: 2132
Регистрация: 8.12.2002
Где: В Москве

Репутация: нет
Всего: 42

Я проверял только под Вынь - там действительно с добавлением этих строк все заработало. Вероятнее всего изменять строки всетаки надо. Хотя коль скоро данные скрипту пердаются, а не считываются из файла утыерждать этого со всей уверенностью не могу.

marlen

Дата 22.8.2003, 22:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Пашет всё.
Thanks:)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »