[완료] 펄에서 Net::Pcap 모듈을 쓰려고 합니다.

#!/usr/bin/env perl
use strict;
use warnings;
use Net::Pcap;
 
my $error;
my $pcapPayload = Net::Pcap::pcap_open_offline('/dev/stdin', \$error)
                      or die "Can't read file: $error\n";
my %pcapHeader;
while ( my $pkt = Net::Pcap::pcap_next($pcapPayload, \%pcapHeader)) {
    while ( my ($key, $val) = each %pcapHeader ) {
        print "$key => $val\n";
    }
    print "\n";
}

$ cat 01.pcap | perl pcap.pl
len => 74
tv_usec => 136169
tv_sec => 1216281025
caplen => 74
 
len => 74
tv_usec => 136215
tv_sec => 1216281025
caplen => 74
 
len => 66
tv_usec => 136246
tv_sec => 1216281025
caplen => 66
 
.
.
.
.
이하 생략