[問題] Perl條件式判別問題

看板Perl作者turnmood (好人去死去死團員)時間15年前 (2009/11/11 12:41)推噓5(5推 0噓 7→)

留言12則, 2人參與討論串1/2 (看更多)

已經將原始log中透過Perl處理成以下格式 09:11:06.845,33066845,Send: msg_length, 73,cQ694,0, 09:11:06.860,33066860,Recv: msg_length, 130,cQ694,0, 09:11:09.355,33069355,Send: msg_length, 73,cQ694,4, 09:11:09.369,33069369,Recv: msg_length, 130,cQ694,4, 其中利用最後一欄數字與Send/Recv做以下判別: ====================================== 發送狀態1：ExecType=0 發送狀態2：ExecType=4 發送狀態3：ExecType=5 -------------------------------------- 回報狀態1：ExecType=0 或ExecType=6 回報狀態2：ExecType=4 回報狀態3：ExecType=5 ====================================== if ( $val_type eq 'Send' && $svals->{ExecType} eq '4' ) { $buf->{$ordno}{SS}{tp} = $val_ts; $buf->{$ordno}{SS}{ms} = $val_ms; } elsif ( $val_type eq 'Recv' && ( $svals->{ExecType} eq '4') ) { if ( !defined $buf->{$ordno}{RR} ) { $buf->{$ordno}{RR}{tp} = $val_ts; $buf->{$ordno}{RR}{ms} = $val_ms; } } 09:11:06.845,33066845,Send: msg_length, 73,cQ694,0, 09:11:06.860,33066860,Recv: msg_length, 130,cQ694,0, 09:11:09.355,33069355,Send: msg_length, 73,cQ694,4, 09:11:09.369,33069369,Recv: msg_length, 130,cQ694,4, 執行Perl分析後產生結果如下: cQ694, 09:11:09.355 => 09:11:09.369 ( 14) 第4筆-第3筆,Type都是4的 , Recv-Send計算時間差 OK! ========================================================= 09:11:06.845,33066845,Send: msg_length, 73,cQ694,0, 09:11:06.860,33066860,Recv: msg_length, 130,cQ694,0, 09:11:09.355,33069355,Send: msg_length, 73,cQ694,4, 09:11:09.369,33069369,Recv: msg_length, 130,cQ694,4, **但是要同時區別以下送單 0和4的送單, 改寫成目前寫法就會出錯 if ( ($val_type eq 'Send' && $svals->{ExecType} eq '4') || ($val_type eq 'Send' && $svals->{ExecType} eq '0') ) { $buf->{$ordno}{SS}{tp} = $val_ts; $buf->{$ordno}{SS}{ms} = $val_ms; } elsif ( ($val_type eq 'Recv' && $svals->{ExecType} eq '4') || ($val_type eq 'Recv' && $svals->{ExecType} eq '0') ) { if ( !defined $buf->{$ordno}{RR} ) { $buf->{$ordno}{RR}{tp} = $val_ts; $buf->{$ordno}{RR}{ms} = $val_ms; } } cQ694, 09:11:09.355 => 09:11:06.860 ( -2495) 第3筆-第2筆 ,但是Type不同,錯了且時間不應該負的 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.63.31.120