正则---请教

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. }
   

复制代码

beyondlee1

1. my $str1="双面阻焊,油墨型号：ZM-400 WF（指定）;颜色:绿色;油墨特性:感光;油墨厚度:厂内管控20+/-5um;导电孔方式:塞孔;无卤素板材,阻焊不可退洗,如要退洗,请提出申请";

复制代码

谢谢，差不多实现了，现在只有一个问题：

如上“指定”两边的括号，是全角模式的，照你现在的脚本只显示“ZM-400 WF",不包括"（指定）"

1. my $str="单面阻焊：S/S面；油墨型号：PSR-2000 LF03HF（指定）；颜色：绿色；油墨特性：感光；油墨厚度：10-25um;无卤素板材不可以退洗，如要退洗请提出申请";

复制代码

这个也是不显示

我看你脚本包含了这种全角（），为何？


谢谢~！

sunzhiguolu

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

sditmaner

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

复制代码

beyondlee1

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

复制代码

我的脚本添加这两句出错：

1. use utf8;
   
2. 
   
3. binmode (STDOUT, ':encoding(utf8)');

复制代码

为何？
错误如下：

1. Malformed UTF-8 character (unexpected non-continuation byte 0xcd, immediately after start byte 0xd3) at get_mask1.pl line 10.
   
2. Malformed UTF-8 character (unexpected non-continuation byte 0xc4, immediately after start byte 0xcd) at get_mask1.pl line 10.
   
3. Malformed UTF-8 character (unexpected non-continuation byte 0xcd, immediately after start byte 0xd0) at get_mask1.pl line 10.
   
4. Malformed UTF-8 character (unexpected non-continuation byte 0x28, immediately after start byte 0xc5) at get_mask1.pl line 10.
   
5. Malformed UTF-8 character (unexpected continuation byte 0xa3, with no preceding start byte) at get_mask1.pl line 10.
   
6. Malformed UTF-8 character (unexpected continuation byte 0xa8, with no preceding start byte) at get_mask1.pl line 10.
   
7. Malformed UTF-8 character (unexpected continuation byte 0xb6, with no preceding start byte) at get_mask1.pl line 10.
   
8. Malformed UTF-8 character (unexpected continuation byte 0xa8, with no preceding start byte) at get_mask1.pl line 10.
   
9. Malformed UTF-8 character (unexpected continuation byte 0xa3, with no preceding start byte) at get_mask1.pl line 10.
   
10. Malformed UTF-8 character (unexpected continuation byte 0xa9, with no preceding start byte) at get_mask1.pl line 10.
    
11. Malformed UTF-8 character (unexpected continuation byte 0xa3, with no preceding start byte) at get_mask1.pl line 11.
    
12. Malformed UTF-8 character (unexpected continuation byte 0xa8, with no preceding start byte) at get_mask1.pl line 11.
    
13. Malformed UTF-8 character (unexpected continuation byte 0xb6, with no preceding start byte) at get_mask1.pl line 11.
    
14. Malformed UTF-8 character (unexpected continuation byte 0xa8, with no preceding start byte) at get_mask1.pl line 11.
    
15. Malformed UTF-8 character (unexpected continuation byte 0xa3, with no preceding start byte) at get_mask1.pl line 11.
    
16. Malformed UTF-8 character (unexpected continuation byte 0xa9, with no preceding start byte) at get_mask1.pl line 11.
    
17. utf8 "\xC3" does not map to Unicode at get_mask1.pl line 15, <DATA> line 1.
    
18. Operation "pattern match (m//)" returns its argument for non-Unicode code point 0x189A87 at get_mask1.pl line 10, <DATA> line 1.
    
19. Use of uninitialized value $_ in pattern match (m//) at get_mask1.pl line 11, <DATA> line 1.
    
20. Use of uninitialized value $val in concatenation (.) or string at get_mask1.pl line 12, <DATA> line 1.
    
21. utf8 "\xB5" does not map to Unicode at get_mask1.pl line 16, <DATA> line 2.
    
22. Operation "pattern match (m//)" returns its argument for non-Unicode code point 0x189A87 at get_mask1.pl line 10, <DATA> line 2.
    
23. Use of uninitialized value $_ in pattern match (m//) at get_mask1.pl line 11, <DATA> line 2.
    
24. Use of uninitialized value $val in concatenation (.) or string at get_mask1.pl line 12, <DATA> line 2.

复制代码

sunzhiguolu

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

sunzhiguolu

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

sunzhiguolu

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

beyondlee1

我用的是editplus，很方便，建议你也用。

另外DOS界面如设置UTF8?

你上传的图片打不开。

学习了，谢谢2