Perl正则表达式处理指定汉字的问题

h97252

有段文字：

  例如：  外层短边拉伸：3MIL，长边收缩：5MIL。

现在我想处理的结果是：如果自动根据文字描述提取相应的参数：

如果出现：“短边” 关键字就输出为 X，“长边”关键字就输出为  Y.  "拉伸“ 为： +  ，”收缩“为：-  

那么上面的文字，处理结果应为：   X:3MIL，Y:-5MIL

但是在程序做正则表达式处理时，直接在表达式里面过滤指定汉字，程序过滤不了。请问高手，这个正则表达式应该怎么书写。谢谢！

yybmsrs

正常匹配if处理不行吗？

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. binmode( STDIN,  ':encoding(utf8)' );
   
6. binmode( STDOUT, ':encoding(utf8)' );   
   
7. binmode( STDERR, ':encoding(utf8)' );   
   
8.   my $h = {
   
9. '短边' => 'X',
   
10. '长边' => 'Y',
    
11. '拉伸' => '+',
    
12. '收缩' => '-',
    
13. '：' =>':'
    
14. };
    
15. my $str = '外层短边拉伸：3MIL，长边收缩：5MIL';
    
16. for (keys %$h){
    
17.         $str =~ s/$_/$h->{$_}/eg;
    
18. }
    
19.         $str=~ s/(.):/:$1/g;
    
20.         $str=~ s/[\x{4e00}-\x{9fa5}]+//g;
    
21.         print $str;

复制代码

h97252

回复 3# mcshell


    你好，您的程序，我运行了。提示有错误信息。不知道是什么情况，请帮忙看下，谢谢！

C:\Perl\bin>perl aa.pl
Malformed UTF-8 character (unexpected non-continuation byte 0xec, immediately af
ter start byte 0xc9) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 3, after start byte 0xec) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xec, immediately af
ter start byte 0xc9) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 3, after start byte 0xec) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xd5, immediately af
ter start byte 0xca) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xcb, immediately af
ter start byte 0xd5) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xf5, immediately af
ter start byte 0xcb) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 4, after start byte 0xf5) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xd5, immediately af
ter start byte 0xca) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xcb, immediately af
ter start byte 0xd5) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (unexpected non-continuation byte 0xf5, immediately af
ter start byte 0xcb) in regexp compilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 4, after start byte 0xf5) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 2, after start byte 0xdf) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 2, after start byte 0xdf) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 2, after start byte 0xdf) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (1 byte, need 2, after start byte 0xdf) in regexp comp
ilation at aa.pl line 17.
Malformed UTF-8 character (fatal) at aa.pl line 20.

h97252

回复 4# h97252


    Linux平台和WINDOWS平台我都测试了，都是提示这样的错误。

h97252

回复 3# mcshell


        程序没问题，是我没处理好。现在已经可以运行OK。非常感谢MCSHELL的无私帮助！