图解以太网帧格式

                my $udp=shift;
format UDPHEADER=
                |----------------------------------------------------|
                |                  UDP  PACKET  HEAD                 |
                |----------------------------------------------------|
                |Src Port:@<<<<<<<<<<<<<<|Dest Port:@<<<<<<<<<<<<<<<<|
                $udp->{src_port},$udp->{dest_port}
                |----------------------------------------------------|
                |Head Len:@<<<<<<<<<<<<<<|Cksum:@<<<<<<<<<<<<<<<<    |
                $udp->{len},$udp->{cksum}
                |----------------------------------------------------|
                |Data: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  |
                $udp->{data}
                |----------------------------------------------------|
.
$~='UDPHEADER';
write;
=for
print <<"EOF";
Src Port:$udp->{src_port}
Dest Port:$udp->{dest_port}
Haed len:$udp->{len}
Udp Cksum:$udp->{cksum}
Data:$udp->{data}
EOF
=cut
}

sub showicmphead {
                my $icmp=shift;
format ICMPHEADER=
                |----------------------------------------------------|
                |                 ICMP PACKET  HEAD                  |

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