图解以太网帧格式

                        $main::proto = "icmp";
                        $dbh->do("insert into icmppkt (pid, icmp_type, icmp_code, icmp_cksum)
                        values (LAST_INSERT_ID(),'$icmp_obj->{type}','$icmp_obj->{code}','$icmp_obj->{cksum}')
                        ");
                    }

                # IGMP
                elsif ($ip_obj->{proto}==IP_PROTO_IGMP)
                    {
                        my $ip_obj = NetPacket::IP->decode(eth_strip($pkt));
                        my $igmp_obj = NetPacket::IGMP->decode($ip_obj->{data});
                        $main::proto = "igmp";
                        $dbh->do("insert into igmppkt (pid, igmp_ver, igmp_type, igmp_len, igmp_subtype, igmp_cksum, igmp_group_addr)
                        values (LAST_INSERT_ID(),'$igmp_obj->{version}','$igmp_obj->{type}','$igmp_obj->{len}','$igmp_obj->{subtype}','$igmp_obj->{cksum}','$igmp_obj->{group_addr}')
                        ");
                    }

                # IPIP
                elsif ($ip_obj->{proto}==IP_PROTO_IPIP)

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