正则表达式的名字匹配问题

sunzhiguolu

1.> A 文件有多大?

代码中有个地方不是很明白:

1. foreach my $key (%hash){
   
2.    #...
   
3. }

复制代码

能否解释下?

(-)-Captopril
Captopril (JP15/USP/INN)
Captopril (JP16/USP/INN)
Captopril [USAN:INN:BAN:JAN]
Captopril [USAN:USP:INN:BAN:JAN]
Captoprilum [INN-Latin]
L-Captopril
D-Captopril
Captopril-D7
Captopril-d3

以上这部分内容, 来自哪个文件? B 文件的文件结构怎样?
如果方便的话, 能否将 A, B 两个文件中具有代表性的数据示例贴出一小部分 并将所需结果贴出来, 方便观察些。

sunzhiguolu

如果单纯从代码的角度看你写的代码，效能瓶颈来自哪里你应该最清楚了。

sunzhiguolu

回复 1# wx2wx
示例代码:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.     last if (/\A\s*\z/);
   
8.     s/\A\s+|\s+\z//g;
   
9.     $hData{$_}++;
   
10. }
    
11. 
    
12. my $k = 'INN';
    
13. while (<DATA>){
    
14.     if (/\A(?<id>\w++)\s[\[(](?<keys>[^\])]+)/ and $hData{$+{id}}){
    
15.         my %hKeys = map {$_, 1} split (/\W/, $+{keys});
    
16.         print if ($hKeys{$k});
    
17.     }
    
18. }
    
19. 
    
20. __DATA__
    
21. (-)-atenolol
    
22. (-)-catechin
    
23. (-)-isoprenaline
    
24. (-)-MK-801
    
25. (+)-chelidonine
    
26. (+)-isoprenaline
    
27. (+/-)-catechin
    
28. Captopril
    
29. 
    
30. (-)-Captopril
    
31. Captopril (JP15/USP/INN)
    
32. Captopril (JP16/USP/INN)
    
33. Captopril [USAN:INN:BAN:JAN]
    
34. Captopril [USAN:USP:INN:BAN:JAN]
    
35. Captoprilum [INN-Latin]
    
36. L-Captopril
    
37. D-Captopril
    
38. Captopril-D7
    
39. Captopril-d3
    
40. 
    

复制代码

perl abc.pl
------------------
Captopril (JP15/USP/INN)
Captopril (JP16/USP/INN)
Captopril [USAN:INN:BAN:JAN]
Captopril [USAN:USP:INN:BAN:JAN]