求助：perl 把全角数字转换成半角，高手帮忙看下怎么不对呢？

milklover

$ perl -n -e '{$_ =~ s/( ０ | １ | ２ | ３ | ４ | ５ | ６ | ７ | ８ | ９ )/ord(substr($1,1,1)-128)/xeg; print;}' < inputfile > outputfile

inputfile 里面就是如８，０这样的全角数字，但是outputfile怎么也不对。。。累死也没弄明白。。。谢谢了！

zhlong8

编码问题，再就是 substr($1,1,1) - 128 是什么意思？

milklover

回复 2# zhlong8


  不好意思，我是新手，您说的编码问题，可否具体一点儿...   

  substr($1,1,1)-128  这个是参考网上的，个人理解是取到全角数字后，转换成半角....

zhlong8

回复  zhlong8


  不好意思，我是新手，您说的编码问题，可否具体一点儿...   

  substr($1,1,1) ...
milklover 发表于 2011-09-07 10:20

    什么系统、shell的编码、文件的编码、Perl的版本哪个方面都有可能出问题，你给的信息太少了

Kitaisky

s/\xA3\xB0/0/
s/\xA3\xB1/1/
s/\xA3\xB2/2/
......
s/\xA3\xB9/9/

milklover

谢谢大家的帮助，最后还是问的老师。

老师写的：

while (<STDIN>) {
  $_ =~ tr/０-９/0-9/;
  while ($_ =~ s/([0-9])\s+([0-9])/$1$2/ ) { ; }
  print;
}

其中 while 语句是去掉数字之间的空格。

毛xx总理

学习了

zhlong8

学习了
毛xx总理 发表于 2011-09-08 18:53

    原来是在财版被扣成负分的那位啊，失敬失敬欢迎来 Perl 版灌水