Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Как обработать варнинг.

Автор: Logo 15.12.2009, 19:16

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

Код


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

Автор: Pfailed 15.12.2009, 22:11

Например так

Код


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

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

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

Автор: Logo 15.12.2009, 22:48

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