正则---请教

sunzhiguolu

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

beyondlee1

将 perl 的标准输出编码与 Windows DOS 控制台的编码保持一致?

不清楚相关设置，能说一下吗？

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;无卤素板材不可以退洗，如要退洗请提出申请

复制代码