web-dev-qa-db-ja.com

タイムスタンプを抽出して違いを見つける

以下に示すように、大量のログセットがあります。

June   5 15:51:56.606  [3997]:   TR#153. State machine - state = CC_STATE_IDLE, event = EVT_ISDN_SETUP
June   5 15:51:56.607  [3997]:   TR#153):  SC registration SUCCESS.
June   5 15:52:00.368  [3997]:   TR#153. DSP:4 Channel:26 Type: Modem State: Data 
June   5 15:52:01.837  [3997]:   TR#153. Receive transaction data: prot 1 data length: 159.-------------------->>
June   5 15:52:02.073  [3997]:   TR#153. Send transaction data: 55 <<-------------------
June   5 15:52:04.361  [3997]:   TR#153):Disconnect initated by 32 process.
June   5 15:52:57.382  [3997]:   TR#153. State machine - state = CC_STATE_IDLE, event = EVT_ISDN_SETUP
June   5 15:52:57.383  [3997]:   TR#153):  SC registration SUCCESS.
June   5 15:53:01.327  [3997]:   TR#153. DSP:4 Channel:26 Type: Modem State: Data 
June   5 15:53:04.291  [3997]:   TR#153. Receive transaction data: prot 1 data length: 347.-------------------->>
June   5 15:53:05.071  [3997]:   TR#153. Send transaction data: 103 <<-------------------
June   5 15:53:06.209  [3997]:   TR#153. Receive transaction data: prot 1 data length: 24.-------------------->>
June   5 15:53:07.239  [3997]:   TR#153):Disconnect initated by 32 process.

イベント「EVT_ISDN_SETUP」と「Disconnect」の時間差、基本的には各トランザクション期間を見つけたいと思います。このために、最初に対応する行からタイムスタンプを抽出し、違いを見つける必要があります。私はPerlコードを試しました ここ 1つのインスタンスの違いを見つけるために、それはうまくいきました。私の仕事は、関心のあるイベントのタイムスタンプを正常に取得し、Perlコードにフィードして、TR＃IDとともに差を出力することです。

どうすればいいですか？

text-processingperltimestamps
1
Prabhu

仮定：EVT_ISDN_SETUPを含むすべての行には、Disconnectpatternを含む行があります。アルゴリズムを貼り付けます。

  Get the time field for the line matching `EVT_ISDN_SETUP` pattern and put it to temp1 file
  Get the time field for the line matching `Disconnect`pattern and put it to another file say temp2.
  Using paste command put the content of both the files to another file say temp3.
  Read every line of the temp3 and pass first & 2nd field your Perl script .
1
Tingrammer