$ip->{src_ip}
|----------------------------------------------------|
|Dest IP:@<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$ip->{dest_ip}
|----------------------------------------------------|
| Options |
|----------------------------------------------------|
|Data:@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< |
$ip->{data}
|----------------------------------------------------|
.
$~='IPHEADER';
write;
=for
print <<"EOF";
IP version:$ip->{ver}
ID:$ip->{id}
TTL:$ip->{ttl}
Src ip:$ip->{src_ip}
Dst ip:$ip->{dest_ip}
Header len:$ip->{hlen}
Packet len:$ip->{len}
Proto:$ipproto{$ip->{proto}}
Cksum:$ip->{cksum}
Data:$ip->{data}
EOF
#ip header == ip->{hlen}<<2
=cut
}
sub showarphead {
my $arp=shift;
format ARPHEADER=
|----------------------------------------------------|
| ARP PACKET HEAD |
上一页 1 2 3 4 5 6 7 8 9 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 下一页
| 论坛热门帖子: | [lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了,有点迷茫,应该再学些什么提高自己的测试水平和测试能力呢?(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍,希望对大家有用(10-18) |
| TAG标签: | 格式 图解 my ip_obj- eth_obj- main::proto ip- tcp- |
注册
个人空间
