- 论坛徽章:
- 0
|
flw 留言:
下回发代码时请用 code 标签将代码括起来。 - open (SOURCEPANELPORTTMP,"panel_port.tmp")||die "can not open file:$!.\n";
- open (DESTPANEL_PORT,">panel_port.txt")||die "can not open file:$!.\n";
- open (SOURCECONFIGROOM,"config_room_resource")||die "can not open file:$!.\n";
- open (DESTCONFIGROOMTMP,">config_room_resource.tmp")||die "can not open file:$!.\n";
- while( defined (my $panelporttmp = <SOURCEPANELPORTTMP>) ){
- chomp $panelporttmp;
-
- my ($pport_id,$pport_name,$speciality_type,$valid_flg,$pport_def_id,$station_id,$room_id,$panel_id,$panel_row,
- $panel_col,$pport_rs,$pport_side,$pport_state,$pport_note) = split(/\|/,$panelporttmp,14);
- seek (SOURCECONFIGROOM,0,0);
- while ( defined (my $configroomresource = <SOURCECONFIGROOM>) ){
- chomp $configroomresource;
- my ($relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
- $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
- $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
- $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id) = split (/\|/,$configroomresource,25);
- if ( $associate_res_id == $pport_id ){
- $associate_res_id = $pportid;
- $configroomresource = join ('|',$relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
- $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
- $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
- $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id);
- print DESTCONFIGROOMTMP $configroomresource,"\n";
- }
-
- elsif($res_id == $pport_id){
- $res_id = $pportid;
- $configroomresource = join ('|',$relation_id,$relation_group_id,$res_id,$res_type,$res_position,$res_state,$res_station_id,$res_room_id,
- $associate_res_position,$associate_res_id,$associate_res_type,$carry_busi_id,$carry_busi_type,
- $busi_position,$res_az,$associate_res_az,$bport_logic_name,$res_pport_rs,$left_media_type,$left_media_id,
- $left_media_position,$right_media_type,$right_media_id,$right_media_position,$carry_busi_seg_id);
- print DESTCONFIGROOMTMP $configroomresource,"\n";
- }
-
- }
- $pport_name = $year . $mon . $day . "/" . $panel_row . "/" . $panel_col ."端子" ;
- $pport_id = $pportid;
- $panelporttmp = join('|',$pport_id,$pport_name,$speciality_type,$valid_flg,$pport_def_id,$station_id,$room_id,$panel_id,$panel_row,
- $panel_col,$pport_rs,$pport_side,$pport_state,$pport_note);
- print DESTPANEL_PORT $panelporttmp,"\n";
- $pportid++;
- }
- close (SOURCEPANELPORTTMP)||die "can not close file:$!.\n";
- close (DESTPANEL_PORT)||die "can not close file:$!.\n";
- close (SOURCECONFIGROOM)||die "can not close file:$!.\n";
- close (DESTCONFIGROOMTMP)||die "can not close file:$!.\n";
复制代码
其中,config_room_resource文件有将近两百万行.
[ 本帖最后由 flw 于 2006-5-19 09:55 编辑 ] |
|