0

HTMLテーブルを生成するための小さなラッパーサブルーチンを作成しましたがHTML::Table、同時に使用するutf8::allと、奇妙な警告が生成されます。

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;
}

編集：5.10では警告も表示されなかったため、Perlの最小バージョンを変更しました。

4

1 に答える 1

3

行番号は正しくありませんが、PODの次の紳士/女性の名前にエラーがあるようです。

VilleSkyttä、ville.skytta @ iki.fi

実際にはutf8ではないのではないかと思います。おそらく、小さなバグレポートが必要です。

于 2012-05-25T13:19:21.473 に答える