VPF::Как обработать варнинг. - Форум программистов

Logo

Дата 15.12.2009, 19:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 694
Регистрация: 22.7.2008

Репутация: 3
Всего: 10

Как проверить, возник ли warning, и в зависимости от этого сделать ветвление кода.
Хочу собрать массив всех unicode символов:

Код


for(0..0xFFFF) {
  push @chars, chr($_);
}

Pfailed

Дата 15.12.2009, 22:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

Например так

Код


use warnings FATAL => qw(all);
use strict;

my @chars;
my $char;
for(0..0xFFFF)
{
    eval
    {
        $char = chr($_);
    };
    unless($@)
    {
        push @chars, $char;
    }
}

Вместо all думаю можно указать как-то более конкретно на тип предупреждения.

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

I'm on CPAN
I'm on github

Logo

Дата 15.12.2009, 22:48 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 694
Регистрация: 22.7.2008

Репутация: 3
Всего: 10

Спасибо, то что надо.

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