我写了小包装子程序产生的HTML表格与HTML::Table
,同时我使用utf8::all
和他们一起产生怪异的警告:为什么utf8 :: all和HTML :: Table一起产生奇怪的警告?
utf8 "\xE4" does not map to Unicode at /usr/share/perl5/HTML/Table.pm line 756.
756线深中间POD,所以我想不通,那里可能是错的。
示例脚本来重现问题:
use 5.012;
use utf8::all;
use HTML::Table;
my @head = qw(col1 col2 col3);
my @table = (
[ qw(yks kaks kolm) ],
[ qw(neli viis kuus) ],
);
say table_draw(table => \@table, header => \@head);
sub table_draw {
my (%args) = @_;
$args{border} ||= 0;
$args{padding} ||= 1;
$args{width} ||= '95%';
my $table = new HTML::Table(
-head=> $args{header},
-data=> $args{table},
-width=> $args{width},
-border=> $args{border},
-padding=> $args{padding},
);
return $table;
}
编辑:改分Perl版本,因为5.10下,我没有得到任何警告,
我无法重现该问题。 – daxim
@daxim:我在5.10.1下试过了,没有得到警告,但是我在5.12和5.14下做了 –