10/03/17 17:10:35
>>112
ワイド文字列をunpack 'H*'に食わせると各文字の下位8bitしか
出てこないので、俺はこんな感じの自作サブルーチン
使ってる。
sub hexdump {
my($s) = @_;
$s =~ s/(.)/sprintf "[%x]", ord($1)/ge;
return $s
}
10/03/17 17:10:35
>>112
ワイド文字列をunpack 'H*'に食わせると各文字の下位8bitしか
出てこないので、俺はこんな感じの自作サブルーチン
使ってる。
sub hexdump {
my($s) = @_;
$s =~ s/(.)/sprintf "[%x]", ord($1)/ge;
return $s
}