perl中如何匹配行开头的全角数字

yinsong198611

#!/usr/bin/perl -w
use JSON qw(to_json);
use strict;
my @string=(1);


foreach (<>){
        #next if ($_ =~ /(^\d{2,}|^[０１２３４５６７８９]{2,})/);
        if ( $_ =~ /^[0-9０１２３４５６７８９]\.(.*)(\r\n|\n)/){        #不能匹配全角数字
                push @string,$1;
        }else{
                $_ =~ s/\s//g;
                $string[$#string]=$string[$#string] . $_;
        }
}
shift @string;

my $json_text=to_json(\@string);
print $json_text;


目的是想匹配行开头的单个数字或全角数字，然后转换成json。if ( $_ =~ /^[0-9０１２３４５６７８９]\.(.*)(\r\n|\n)/)中如果不加^可以匹配全角数字，但是是多位的数字而需求只允许1.这种形式的。
请教一下是什么原因^后面不能跟全角数字匹配吗

yinsong198611

没有人碰到过同样的问题吗，自己先顶一个。

grshrd49

根据你说东西做了一个测试，看下图。
直接在脚本中定义全角字符是可以识别的，但是在命令行收入就不能识别
这因该和脚本编辑器和cmd命令行编辑器的字符编码有关系吧！

黑色阳光_cu

全角字符是多个byte的，你不能在字符集里用，除非 UTF8 标记打开了，或者这样子写：

1. 
   
2. 
   
3. /^(?:[0-9]|０|１|２|３|４|５|６|７|８|９)\.(.*)(\r\n|\n)/

复制代码

grshrd49

回复 4# 黑色阳光_cu


    [０|１|２|３|４|５|６|７|８|９]
这样写也不行

yinsong198611

最后我改了一下，达到我的目地：
#!/usr/bin/perl -w
#将文件中数字0-9或全角数字0-9加逗号的数字转换成json格式
use JSON qw(to_json);
use strict;
my @string=(1);


foreach (<>){
        next if ($_ =~ /^([0-9]|０|１|２|３|４|５|６|７|８|９){2,}/);
        if ( $_ =~ /^([0-9]|０|１|２|３|４|５|６|７|８|９)(.)(.*)(\r\n|\n)/){
                push @string,$3;
        }else{
                $_ =~ s/\s//g;
                $string[$#string]=$string[$#string] . $_;    #如果不匹配则把数据拼到上一个匹配行的末尾
        }
}
shift @string;

my $json_text=to_json(\@string);
print $json_text;


__DATA__
2.美国
３.日本
4.德国
25.中国

绿卡松岛枫松岛枫

5.我是谁，；。
ａｄｓ
８.
阿什顿看风景啊

yinsong198611

但是不清楚为什么^([0-9]|０|１|２|３|４|５|６|７|８|９)这样写可以,^[0-9０１２３４５６７８９]这样写不行．是对字节的关系吗

pitonas

啥叫全角数字

lz小骆驼

坐看各位的回答！