VPF::Проблема с регуляркой и символом °

tishaishii

Дата 6.3.2009, 13:00 (ссылка)

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

Загрузка ...

Создатель

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

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

Пытаюсь найти технические характеристики в строке.

Пишу:

Код

use locale;

my@units=sort{length($b)<=>length $a}(
    'М2', 'М3', 'ММ', 'СМ', 'М', 'ВТ', 'КВТ', 'В', 'А', 'Т', 'Л', 'МЛ', 'КГ', 'КГС', 'УПАКОВОК', 'ОБ', 'ЧАС', 'МИН', 'КВ', '1КВ', '°С', '°C', 'ГРАДУСОВ', '°', 'КГС', 'СМ2'
);

my$units='(?:'.join(' | ', @units).')';
my$str='ТЕРМОМЕТР МАНОМЕТРИЧЕСКИЙ ТБ 0-150° 10КГС/СМ2 АССОРТ. [ 0-150]';
my$len=length $str;

while($str=~m{
        \s+\d+(?:\.\d+)?\s*
        (?:    
            [XХ\-]?\d+(?:\.\d+)?
            (?:
                \s*${units} (?:\s*/\s*${units})*
            )?
        )+\b
    }gcxis) {
        print $&, "\n";
}

Выводит:

Код


 0-150
 10КГС/СМ2
 0-150

Почему-то 0-150° не выводит.
Хотя, если

Код


$s='ТЕРМОМЕТР МАНОМЕТРИЧЕСКИЙ ТБ 0-150°C 10КГС/СМ2 АССОРТ. [ 0-150]';

То всё получется. И на другие единицы измерения реагирует адыкватно.

Как бы эту проблему решить?

tishaishii

Дата 6.3.2009, 15:34 (ссылка)

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

Загрузка ...

Создатель

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

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

Вопрос решён:

Код

        \s+\d+(?:\.\d+)?\s*
        (?:    
            [XХ\-]?\d+(?:\.\d+)?
            (?:
                \s*${units} (?:\s*/\s*${units})*
            )?
        )+

Это сообщение отредактировал(а) tishaishii - 6.3.2009, 15:34

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