图解以太网帧格式

                @{[fmtmac $eth_obj->{dest_mac}]}
                |----------------------------------------------------|
.
$~='ETHHEADER';
write;
=for
print <<"EOF";
src_mac:@{[fmtmac $eth_obj->{src_mac}]}
dest_mac:@{[fmtmac $eth_obj->{dest_mac}]}
eth_type:$ethtype{$eth_obj->{type}}
EOF
=cut
}

sub showiphead {
      my $ip=shift;
format  IPHEADER=
                |----------------------------------------------------|
                |              IP   PACKET  HEAD                     |
                |----------------------------------------------------|
                |Version:@<<<<<<<|HLen:@<<<<|Tos:@<<<<<|Pktlen:@<<<<<|
                $ipver{$ip->{ver}},$ip->{hlen},$ip->{tos},$ip->{len}
                |----------------------------------------------------|
                |ID:@<<<<<<<<<<<<|Flag:@<<<<<<<<<<<<<  |offset:@<<<<<|
                $ip->{id},$ip->{flags},$ip->{foffset}
                |----------------------------------------------------|
                |TTL:@<<<<|Proto:@<<<<<<<<<<<<<<<<<<<|Cksum:@<<<<<<<<|
                $ip->{ttl},$ipproto{$ip->{proto}},$ip->{cksum}
                |----------------------------------------------------|
                |Source IP:@<<<<<<<<<<<<<<<<<<<<<<<<<<<              |

论坛热门帖子:	[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-