图解以太网帧格式

                @{[fmtmac $arp->{tha}]}
                |----------------------------------------------------|
                |Dest Protoaddr:@<<<<<<<<<<<<<<<<<<<<<<<             |
                @{[fmtip $arp->{tpa}]}
                |----------------------------------------------------|
.
$~='ARPHEADER';
write;
=for
print <<"EOF";
Hardware type:$arp->{htype}
Header length:$arp->{hlen}
Protocol type:$arp->{proto}
Protocol length:$arp->{plen}
Src hwaddr:@{[fmtmac $arp->{sha}]}
Src Protocoladdr:@{[fmtip $arp->{spa}]}
Dst hwaddr:@{[fmtmac $arp->{tha}]}
Dst Protocoladdr:@{[fmtip $arp->{tpa}]}
Opcode:$arpcode{$arp->{opcode}}
EOF
=cut
}

sub showtcphead {
                my $tcp=shift;
                (my $flags=join "|",map{ $tcp->{flags}&$_&&$tcpflags{$_}||''}keys %tcpflags)=~s/^\|+//;
format TCPHEADER=
                |----------------------------------------------------|
                |                   TCP PACKET HEAD                  |
                |----------------------------------------------------|
                |Src Port:@<<<<<<<<<<<<<<|Dest Port:@<<<<<<<<<<<<<<<<|
                $tcp->{src_port},$tcp->{dest_port}
                |----------------------------------------------------|
                |Seq Number:@<<<<<<<<<<<<|ACK  Number:@<<<<<<<<<<<<<<|

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