Perl正則表達(dá)式處理指定漢字的問題

h97252

有段文字：

  例如：  外層短邊拉伸：3MIL，長邊收縮：5MIL。

現(xiàn)在我想處理的結(jié)果是：如果自動根據(jù)文字描述提取相應(yīng)的參數(shù)：

如果出現(xiàn)：“短邊” 關(guān)鍵字就輸出為 X，“長邊”關(guān)鍵字就輸出為  Y.  "拉伸“ 為： +  ，”收縮“為：-  

那么上面的文字，處理結(jié)果應(yīng)為：   X:3MIL，Y:-5MIL

但是在程序做正則表達(dá)式處理時，直接在表達(dá)式里面過濾指定漢字，程序過濾不了。請問高手，這個正則表達(dá)式應(yīng)該怎么書寫。謝謝！

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;

復(fù)制代碼

h97252

回復(fù) 3# mcshell


    你好，您的程序，我運(yùn)行了。提示有錯誤信息。不知道是什么情況，請幫忙看下，謝謝！

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

回復(fù) 4# h97252


    Linux平臺和WINDOWS平臺我都測試了，都是提示這樣的錯誤。

h97252

回復(fù) 3# mcshell


        程序沒問題，是我沒處理好。現(xiàn)在已經(jīng)可以運(yùn)行OK。非常感謝MCSHELL的無私幫助！