… | |
… | |
281 | my $cap = open_pcap_socket; |
281 | my $cap = open_pcap_socket; |
282 | my $pkt; |
282 | my $pkt; |
283 | open LOG, ">/tmp/log";#d# |
283 | open LOG, ">/tmp/log";#d# |
284 | |
284 | |
285 | Event->io(fd => $cap, poll => 'r', cb => sub { |
285 | Event->io(fd => $cap, poll => 'r', cb => sub { |
286 | sysread $$cap, $pkt, 120; |
286 | sysread $cap, $pkt, 120; |
287 | |
287 | |
288 | printf LOG "%s\n", unpack "H*", $pkt; |
288 | printf LOG "%s\n", unpack "H*", $pkt; |
289 | |
289 | |
290 | my ($fc1, $fc2, $sid, $a1, $a2, $a3, $sc, $pkt) |
290 | my ($fc1, $fc2, $sid, $a1, $a2, $a3, $sc, $pkt) |
291 | = unpack "C C n a6 a6 a6 S a*", $pkt; |
291 | = unpack "C C n a6 a6 a6 S a*", $pkt; |