VPF::модификатор i - Форум программистов

Bulat

Дата 10.2.2008, 13:46 (ссылка)

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

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

в целом все просто, обычная регулярка, проверяю кириллицу, кодировка cp1251

Код


#!/usr/bin/perl

use strict;
use warnings;

my $line = 'СТРОКА т. файла';
my $word = 'Строка т.';

if ($line =~ /^\Q$word\E/i) {
    print "yes\n";
} else {
    print "no\n";
}

Но регулярка не срабатывает. Или может я чего-то не доделываю, на латинице это срабатывало smile

Это сообщение отредактировал(а) Bulat - 10.2.2008, 13:48

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

менеджер по кодеврайтингу smile

nitr

Дата 10.2.2008, 14:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

Поиск на форуме...

Код

use locale;

Под Windows сработает и так, а если *nix, то ещё POSIX, в общем поиск "вам поможет"

Код

#!/usr/bin/perl
use strict;
use warnings;

use locale;

my $line = 'СТРОКА т. файла';
my $word = 'Строка т.';
if ($line =~ /^\Q$word\E/i) {
    print "yes\n";
} else {
    print "no\n";
}

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

I love ArchLinux

Bulat

Дата 10.2.2008, 15:30 (ссылка)

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

Загрузка ...

татарский Нео

Профиль
Группа: Завсегдатай
Сообщений: 1701
Регистрация: 22.3.2006
Где: Альметьевск

Репутация: 5
Всего: 57

nitr, сенкс smile

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

менеджер по кодеврайтингу smile

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