File: layer2.pl

package info (click to toggle)
libnet-write-perl 1.07-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 144 kB
  • ctags: 33
  • sloc: perl: 438; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 448 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl
#
# $Id: layer2.pl 1637 2009-06-10 18:38:50Z gomor $
#
use strict;
use warnings;

my $dev = shift || die("Specify a network interface as a parameter\n");

use Net::Write::Layer2;

my $l2 = Net::Write::Layer2->new(
   dev => $dev,
);

use Net::Packet::Consts qw(:eth);
use Net::Packet::ETH;

my $eth = Net::Packet::ETH->new(type => NP_ETH_TYPE_ARP);
$eth->pack;

print $eth->print."\n";

$l2->open;
$l2->send($eth->raw);
$l2->close;