怎样提高这段代码的性能?

nv2test

flw 留言：
下回发代码时请用 code 标签将代码括起来。

1. open (SOURCEPANELPORTTMP,"panel_port.tmp")||die "can not open file:$!.\n";
   
2. open (DESTPANEL_PORT,">panel_port.txt")||die "can not open file:$!.\n";
   
3. open (SOURCECONFIGROOM,"config_room_resource")||die "can not open file:$!.\n";
   
4. open (DESTCONFIGROOMTMP,">config_room_resource.tmp")||die "can not open file:$!.\n";
   
5. 
   
6. while( defined (my $panelporttmp = <SOURCEPANELPORTTMP>) ){
   
7.         chomp $panelporttmp;
   
8.        
   
9.         my ($pport_id,$pport_name,$speciality_type,$valid_flg,$pport_def_id,$station_id,$room_id,$panel_id,$panel_row,
   
10.                 $panel_col,$pport_rs,$pport_side,$pport_state,$pport_note) = split(/\|/,$panelporttmp,14);
    
11.         seek (SOURCECONFIGROOM,0,0);
    
12.         while ( defined (my $configroomresource = <SOURCECONFIGROOM>) ){
    
13.                 chomp $configroomresource;
    
14.                 my ($relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
    
15.                         $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
    
16.                         $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
    
17.                         $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id) = split (/\|/,$configroomresource,25);       
    
18.                 if ( $associate_res_id == $pport_id ){
    
19.                         $associate_res_id = $pportid;
    
20.                         $configroomresource = join ('|',$relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
    
21.                                 $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
    
22.                                 $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
    
23.                                 $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id);
    
24.                         print DESTCONFIGROOMTMP $configroomresource,"\n";                       
    
25.                 }
    
26.                
    
27.                 elsif($res_id == $pport_id){
    
28.                         $res_id = $pportid;
    
29.                         $configroomresource = join ('|',$relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
    
30.                                 $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
    
31.                                 $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
    
32.                                 $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id);
    
33.                         print DESTCONFIGROOMTMP $configroomresource,"\n";
    
34.                 }
    
35.                
    
36.         }
    
37.         $pport_name = $year . $mon . $day . "/" . $panel_row . "/" . $panel_col ."端子" ;
    
38.         $pport_id = $pportid;
    
39.         $panelporttmp = join('|',$pport_id,$pport_name,$speciality_type,$valid_flg,$pport_def_id,$station_id,$room_id,$panel_id,$panel_row,
    
40.                 $panel_col,$pport_rs,$pport_side,$pport_state,$pport_note);
    
41.         print DESTPANEL_PORT $panelporttmp,"\n";
    
42.         $pportid++;
    
43. }
    
44. 
    
45. close (SOURCEPANELPORTTMP)||die "can not close file:$!.\n";
    
46. close (DESTPANEL_PORT)||die "can not close file:$!.\n";
    
47. close (SOURCECONFIGROOM)||die "can not close file:$!.\n";
    
48. close (DESTCONFIGROOMTMP)||die "can not close file:$!.\n";

复制代码

其中,config_room_resource文件有将近两百万行.

[ 本帖最后由 flw 于 2006-5-19 09:55 编辑 ]

莫愁

不知道简化成这样你满意吗？

1. open (FH,"config_room_resource")||die "can not open file:$!.\n";
   
2. my (%res_id, %associate_res_id);
   
3. while ( <FH> ){
   
4.     chomp;
   
5.     my @fields = split (/\|/,$_,25);
   
6.     @fields[($#fields+1)..24] = map {''} (1..25);
   
7.     $res_id{$fields[2]} = \@fields;
   
8.     $associate_res_id{$fields[9]} = \@fields;
   
9. }
   
10. close (FH)||die "can not close file:$!.\n";
    
11. 
    
12. open (DESTCONFIGROOMTMP,">config_room_resource.tmp")||die "can not open file:$!.\n";
    
13. open (DESTPANEL_PORT,">panel_port.txt")||die "can not open file:$!.\n";
    
14. 
    
15. open (FH,"panel_port.tmp")||die "can not open file:$!.\n";
    
16. while( <FH> ){
    
17.     chomp $_;
    
18.     my @fields = split(/\|/,$_,14);
    
19.     @fields[($#fields+1)..13] = map {''} (1..14);
    
20.     my ($pport_id, $pport_name, $panel_row, $panel_col) = @fields[0,1,8,9];
    
21.     if ( exists $associate_res_id{$pport_id} ){
    
22.         $associate_res_id{$pport_id}->[9] = $pportid;
    
23.         print DESTCONFIGROOMTMP join ('|', @{$associate_res_id{$pport_id}}), "\n";
    
24.     }
    
25.     elsif( exists $res_id{$pport_id} ){
    
26.         $res_id{$pport_id} = $pportid;
    
27.         print DESTCONFIGROOMTMP join ('|', @{$associate_res_id{$pport_id}}), "\n";
    
28.     }
    
29.            
    
30.     $pport_name = "$year$mon$day/$panel_row/$panel_col端子";
    
31.     $pport_id = $pportid;
    
32.     @fields[0,1,8,9] = ($pport_id, $pport_name, $panel_row, $panel_col);
    
33.     print DESTPANEL_PORT join('|',@fields), "\n";
    
34.     $pportid++;
    
35. }
    
36. 
    
37. close(FH);
    
38. 
    
39. close (DESTPANEL_PORT)||die "can not close file:$!.\n";
    
40. close (DESTCONFIGROOMTMP)||die "can not close file:$!.\n";

复制代码

BTW：我不知道你的程序是干什么的，
所以我所做的每一步，只是进行了等效语法的转换。

[ 本帖最后由 莫愁 于 2006-5-19 10:52 编辑 ]

莫愁

原帖由 nv2test 于 2006-5-19 09:51 发表

其中,config_room_resource文件有将近两百万行.

如果有两百万行的话，那么至少应该也有 500M 吧？那么我刚才那个程序占的内存就太多啦。
不知道 panel_port.tmp 有多大呢？如果它小的话，就可以用同样的思路，把 panel_port 装入内存。
然后逐行处理 config_room_resource 文件。

[ 本帖最后由 莫愁 于 2006-5-19 10:32 编辑 ]

莫愁

你原来那个程序慢就慢在双重循环上，其结果是个笛卡儿积，重复的 IO 操作浪费了很多时间。
只要去掉双重循环，速度应该能快一个数量级。

nv2test

我刚开始学习perl .
贴子里的代码是我写的一个工具的一部分.工具的目的,就是替换文件里的几个字段值,生成新的文件.
你给我的回复里,我还在研究.因为有些代码我看不很懂.还在慢慢尝试.

多谢你了.