图解以太网帧格式

                    {
                        $main::proto = "ipip";
                    }

                # TCP
                elsif ($ip_obj->{proto}==IP_PROTO_TCP)
                    {
                        my $tcp_obj = NetPacket::TCP->decode(ip_strip(eth_strip($pkt)));
                        $main::proto = "tcp";
                        $dbh->do("insert into tcppkt (pid, tcp_sport, tcp_dport, tcp_seqnum, tcp_acknum, tcp_hlen, tcp_res, tcp_flags, tcp_win, tcp_cksum, tcp_urg)
                                  values (LAST_INSERT_ID(),'$tcp_obj->{src_port}','$tcp_obj->{dest_port}','$tcp_obj->{seqnum}','$tcp_obj->{acknum}','$tcp_obj->{hlen}','$tcp_obj->{reserved}','$tcp_obj->{flags}','$tcp_obj->{winsize}','$tcp_obj->{cksum}','$tcp_obj->{urg}')
                        ");
                    }

                # UDP
                elsif ($ip_obj->{proto}==IP_PROTO_UDP)
                    {
                        my $ip_obj = NetPacket::IP->decode(eth_strip($pkt));
                        my $udp_obj = NetPacket::UDP->decode($ip_obj->{data});

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