日本字全角字符linux,将全角字符转换为半角字符（perl，regex，日语）

我有一个将全角字符转换为半角字符的程序。除数字零外，它工作正常。全角零不会转换为半角零。

Perl

use strict;

use warnings;

use warnings qw(FATAL utf8);

use utf8;

use feature qw(unicode_strings);

use open qw(:std :utf8);

unless ( @ARGV == 2 ) {

print "Usage: script.pl input_file output_file\n";

exit;

}

my %fwhw = (

'０' => '0', '１' => '1', '２' => '2', '３' => '3', '４' => '4',

'５' => '5', '６' => '6', '７' => '7', '８' => '8', '９' => '9',

'Ａ' => 'A', 'Ｂ' => 'B', 'Ｃ' => 'C', 'Ｄ' => 'D', 'Ｅ' => 'E',

'Ｆ' => 'F', 'Ｇ' => 'G', 'Ｈ' => 'H', 'Ｉ' => 'I', 'Ｊ' => 'J',

'Ｋ' => 'K', 'Ｌ' => 'L', 'Ｍ' => 'M', 'Ｎ' => 'N', 'Ｏ' => 'O',

'Ｐ' => 'P', 'Ｑ' => 'Q', 'Ｒ' => 'R', 'Ｓ' => 'S', 'Ｔ' => 'T',

'Ｕ' => 'U', 'Ｖ' => 'V', 'Ｗ' => 'W', 'Ｘ' => 'X', 'Ｙ' => 'Y',

'Ｚ' => 'Z', 'ａ' => 'a', 'ｂ' => 'b', 'ｃ' => 'c', 'ｄ' => 'd',

'ｅ' => 'e', 'ｆ' => 'f', 'ｇ' => 'g', 'ｈ' => 'h', 'ｉ' => 'i',

'ｊ' => 'j', 'ｋ' => 'k', 'ｌ' => 'l', 'ｍ' => 'm', 'ｎ' => 'n',

'ｏ' => 'o', 'ｐ' => 'p', 'ｑ' => 'q', 'ｒ' => 'r', 'ｓ' => 's',

'ｔ' => 't', 'ｕ' => 'u', 'ｖ' => 'v', 'ｗ' => 'w', 'ｘ' => 'x',

'ｙ' => 'y', 'ｚ' => 'z', '－' => '-', '、' => ', ', '　' => ' ',

'／' => '/',);

sub slurp {

my $file = shift;

open my $fh_read, '

return do {local $/; };

}

sub convert {

my $sub_string = shift;

$sub_string =~ s/(.)/$fwhw{$1}?$fwhw{$1}:$1/seg;

return $sub_string;

}

my $string = slurp($ARGV[0]);

$string =~ s/\s*\K(.*?)(?=\s*)/convert($1)/seg;

open my $fh_write, ">", $ARGV[1] or die "Could not open file: $!";

print $fh_write $string;

close $fh_write;

这是我尝试过的

我通过检查代码点确保数字0(零)和字母O(哦)确实不同。全角0为\ x {ff10}。全角字母O为\ x {ff2f}。我使用以下代码对此进行了检查：

use Encode;

sub codepoint_hex {

sprintf "%04x", ord Encode::decode("UTF-8", shift);

}

my $codepoint = codepoint_hex('０');

print $codepoint, "\n";

我检查了哈希表是否正确加载了所有键和值。

我还没有尝试过的东西：

我还没有尝试在Linux上重复这种奇怪的事情。我在Windows 10上使用ActiveState Perl 5.24。

如果任何人有任何建议或看到我的错误，我将非常感谢您的指导。感谢您抽出宝贵的时间阅读并考虑我的帖子。