?? 10-d2-eth-ipv6-tcp-opt.t
字號:
use Test;BEGIN { plan(tests => 1) }skip(! $ENV{NP_DO_TEST6} ? 'Skip since env variable NP_DO_TEST6=0' : '', sub { my $ok; use Net::Packet::Env qw($Env); use Net::Packet::Consts qw(:eth); $Env->dev($ENV{NP_ETH_DEV}); $Env->ip ($ENV{NP_ETH_IP}); $Env->mac($ENV{NP_ETH_MAC}); $Env->debug(3) if $ENV{NP_DEBUG}; require Net::Packet::ETH; require Net::Packet::IPv6; require Net::Packet::TCP; require Net::Packet::Frame; my $l2 = Net::Packet::ETH->new( type => NP_ETH_TYPE_IPv6, dst => $ENV{NP_ETH_TARGET_MAC}, ); my $l3 = Net::Packet::IPv6->new( dst => $ENV{NP_ETH_TARGET_IP6}, ); my $l4 = Net::Packet::TCP->new( dst => $ENV{NP_ETH_TARGET_PORT}, options => "\x02\x02\x05\xb4\x01", ); my $frame = Net::Packet::Frame->new(l2 => $l2, l3 => $l3, l4 => $l4); $frame->send; until ($Env->dump->timeout) { if ($frame->recv) { $ok++; last; } } $Env->dump->stop; $Env->dump->clean; $ok;});?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -