使模块警告致命的最简单方法是什么？

Question

通过“掌握perl”我已经覆盖了“编码”模块的“编码”功能。有没有更简单的方法来使编码 - utf8 - 警告致命？

#!/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; 
} 

subquestion：s ///之后的$ error_message中的换行符来自哪里？

Answer 1

我不确定我是否按照您的主要问题... use warnings FATAL => 'utf8';已经很短了;我认为你不可能找到更短的东西。

对于subquestion，.在一个正则表达式将默认，匹配任何字符换行符以外，使替代不排除最终换行符：

$ 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 ---