2008-02-18から1日間の記事一覧
#!/usr/bin/perl # tcpdump -Trtpで出力されるログを整形する例 # この例では,時間とシーケンス番号を抽出している open (INFILE,"$ARGV[0]") || die "cannot open"; ($sec, $min, $hour, $dayofmonth, $month, $year, $dayofweek, $dayofyear, $isdst) = l…
#!/usr/bin/perl # tcpdump -Trtpで出力されるログを整形する例 # この例では,時間とシーケンス番号を抽出している open (INFILE,"$ARGV[0]") || die "cannot open"; ($sec, $min, $hour, $dayofmonth, $month, $year, $dayofweek, $dayofyear, $isdst) = l…