正则---请教

sunzhiguolu

1. sub get_values{
   
2.     my $val = shift;
   
3.     ($_, $val) = $val =~ /油墨型号([^a-z]*)((?:\s*[-\/a-z0-9]+|\s*[(（]指定[)）])+)/i;
   
4.     $val .= $1 if (/([(（]指定[)）])/);
   
5.     return "$val\n";
   
6. }
   

复制代码

sunzhiguolu

把你的 get_values 函数完整的贴出来. 看下问题出在哪里???

sunzhiguolu

比较一下, 哪里不同?

1. perl test.pl

复制代码

ZM-400 WF（指定）
PSR-2000 LF03HF（指定）

1. cat test.pl

复制代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDOUT, ':encoding(utf8)');
   
7. 
   
8. sub get_values{
   
9.         my $val = shift;
   
10.         ($_, $val) = $val =~ m!油墨型号([^a-z]*)((?:\s*[-/a-z0-9]+|\s*[(（]指定[)）])+)!i;
    
11.         $val .= $1 if (/([(（]指定[)）])/);
    
12.         return "$val\n";
    
13. }
    
14. 
    
15. while (<DATA>){
    
16.         print get_values ($_);
    
17. }
    
18. 
    
19. __DATA__
    
20. 双面阻焊,油墨型号：ZM-400 WF（指定）;颜色:绿色;油墨特性:感光;油墨厚度:厂内管控20+/-5um;导电孔方式:塞孔;无卤素板材,阻焊不可退洗,如要退洗,请提出申请
    
21. 单面阻焊：S/S面；油墨型号：PSR-2000 LF03HF（指定）；颜色：绿色；油墨特性：感光；油墨厚度：10-25um;无卤素板材不可以退洗，如要退洗请提出申请

复制代码

sunzhiguolu

你在什么环境下 调用的 perl 脚本?

sunzhiguolu

如果是 Windows DOS 环境调用的话:
1.> 确保脚本文件的编码方式为 UTF8;
2.> 确保脚本的输出内容与 Windows 控制台的默认编码一致;

sunzhiguolu

比较一下, 设置哪里不同?

sunzhiguolu

谢谢你的推荐, 我已经有了文本编辑器了.
Windows 控制台不能更改默认的编码 (我已经折腾过好长时间了), 但是你可以将 perl 的标准输出编码与 Windows DOS 控制台的编码保持一致, 这样就解决 "Malformed UTF-8 character" 问题了.

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDOUT, ':encoding(gb2312)');
   
7. 
   
8. sub get_values{
   
9.         my $val = shift;
   
10.         ($_, $val) = $val =~ m!油墨型号([^a-z]*)((?:\s*[-/a-z0-9]+|\s*[(（]指定[)）])+)!i;
    
11.         $val .= $1 if (/([(（]指定[)）])/);
    
12.         return "$val\n";
    
13. }
    
14. 
    
15. while (<DATA>){
    
16.         print get_values ($_);
    
17. }
    
18. 
    
19. __DATA__
    
20. 双面阻焊,油墨型号：ZM-400 WF（指定）;颜色:绿色;油墨特性:感光;油墨厚度:厂内管控20+/-5um;导电孔方式:塞孔;无卤素板材,阻焊不可退洗,如要退洗,请提出申请
    
21. 单面阻焊：S/S面；油墨型号：PSR-2000 LF03HF（指定）；颜色：绿色；油墨特性：感光；油墨厚度：10-25um;无卤素板材不可以退洗，如要退洗请提出申请

复制代码