Какой самый простой способ сделать предупреждения модулей фатальными? - PullRequest
0 голосов
/ 02 марта 2011

С помощью «mastering perl» я перезаписал функцию «encode» модуля «Encode».Есть ли более короткий способ сделать кодирование-utf8-warnings фатальным?

#!/usr/bin/env perl
use warnings;
use 5.012;
binmode STDOUT, ':encoding(utf-8)';
BEGIN {
    use Encode;
    no warnings 'redefine';
    *Encode::encode = sub ($$;$) {
        my ( $name, $string, $check ) = @_;
        return undef unless defined $string;
        $string .= '' if ref $string;
        $check ||= 0;
        unless ( defined $name ) {
            require Carp;
            Carp::croak("Encoding name should not be undef");
        }
        my $enc = find_encoding($name);
        unless ( defined $enc ) {
            require Carp;
            Carp::croak("Unknown encoding '$name'");
        }
        use warnings FATAL => 'utf8'; ###
        my $octets = $enc->encode( $string, $check );
        $_[1] = $string if $check and !ref $check and !( $check & LEAVE_SRC() );
        return $octets;
    }
}

use Encode qw(encode);
use warnings FATAL => 'utf8';

my $character;
{
    no warnings 'utf8';
    $character = "\x{ffff}";
#   $character = "\x{263a}";
}

my $utf32;
eval { $utf32 = encode( 'utf-32', $character ) };
if ( $@ ) { 
    ( my $error_message = $@ ) =~ s/\K\sin\ssubroutine.*$//;
    chomp $error_message; # where does the newline come from?
    say $error_message;
}
else {
    my @a = unpack( '(B8)*', $utf32 );
    printf "utf-32 encoded:\t%8s %8s %8s %8s  %8s %8s %8s %8s\n", @a;
}

подзапрос: откуда берется символ новой строки в $ error_message после s ///?

1 Ответ

3 голосов
/ 02 марта 2011

Я не уверен, что следую вашему главному вопросу ... use warnings FATAL => 'utf8'; уже довольно короткий;Я не думаю, что вы найдете что-то более короткое.

Что касается подзапроса, . в регулярном выражении будет по умолчанию соответствовать любому символу , кроме новой строки , поэтомуэта подстановка не удаляет последний символ новой строки:

$ perl -e '$foo = "foo bar baz\n"; $foo =~ s/bar.*$//; print $foo . "---\n";'

печатает

foo
---

Чтобы . соответствовал символам новой строки, добавьте модификатор /s в свое регулярное выражение:

perl -e '$foo = "foo bar baz\n"; $foo =~ s/bar.*$//s; print $foo . "---\n";'

печать

foo ---
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...