Try :: Tiny: проблема с перехватом предупреждений - PullRequest
Новая
       19

Try :: Tiny: проблема с перехватом предупреждений

3 голосов
/ 26 февраля 2011

Почему во втором примере строка "$ encoded = encode ($ encoding, $ символ, Encode :: FB_WARN | Encode :: LEAVE_SRC);" - строка не перехватывает предупреждения кодирования? 

#!/usr/bin/env perl
use warnings;
use 5.012;
use utf8;
binmode STDOUT, ':encoding(utf-8)';
use Encode qw(encode);
use Try::Tiny;

my $character = '€';
my @leer = ( ' ' ) x 4;
my $t = 11;

for my $encoding ( 'iso-8859-1', 'iso-8859-15', 'cp1252', 'cp850' ) {
    my $temp = $character;
    my $encoded;
    my $warning = 'error';
    try {
        $encoded = encode( $encoding, $temp, Encode::FB_CROAK );
    } catch {
        $warning = $1 if m|^\s*(.*\S)\s*at\s/|;
    } finally {
        if ( @_ ) {
            printf "%-${t}s %s:\t%-63s %s\n", $encoding, "encoded", $warning, '--------';
        } else {
            my @a = unpack '(B8)*', $encoded;
            unshift @a, ' ' x 8 while @a < 4;
            printf "%-${t}s %s:\t%8s %8s %8s %8s  %8s %8s %8s %8s\n", $encoding, "encoded", @leer, @a;
        }
    }
}

say "°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°";

for my $encoding ( 'iso-8859-1', 'iso-8859-15', 'cp1252', 'cp850' ) {
    my $encoded;
    my $warning = 'error';
    try {
        $encoded = encode( $encoding, $character, Encode::FB_WARN | Encode::LEAVE_SRC);
    } catch {
        $warning = $1 if m|^\s*(.*\S)\s*at\s/|;
    } finally {
        if ( @_ ) {
            printf "%-${t}s %s:\t%-63s %s\n", $encoding, "encoded", $warning, '--------';
        } else {
            my @a = unpack '(B8)*', $encoded;
            unshift @a, ' ' x 8 while @a < 4;
            printf "%-${t}s %s:\t%8s %8s %8s %8s  %8s %8s %8s %8s\n", $encoding, "encoded", @leer, @a;
        }
    }
}

1 Ответ

8 голосов
/ 26 февраля 2011

Это потому, что предупреждение не является исключением. Но вы можете сделать предупреждение выбросить исключение на 

use warnings FATAL => 'all';
...