tcpdump解析スクリプト(RTP) - perl

#!/usr/bin/perl
# tcpdump -Trtpで出力されるログを整形する例
# この例では，時間とシーケンス番号を抽出している

open (INFILE,"$ARGV[0]") || die "cannot open";

($sec, $min, $hour, $dayofmonth, $month, $year, $dayofweek, $dayofyear, $isdst) =
localtime(time);
$year += 1900;
$month++;

$output = "outlog-".$year.$month.$dayofmonth;

if (-f "$output") {unlink("$output");}
open (LIST, ">>$output") || die "Can't open file";
$cnt = 0;

##########
while (<INFILE>)
{
      $_ =~ tr/*//;
      @data = (split);

      if(@data[4] eq "udp/rtp"){
	      $time = sprintf("%s",@data[0]);
	      $seq = sprintf("%d",@data[7]);
          printf("%s %d\n", $time,$seq);
      }
}

close(LIST);
close(INFILE);