图解以太网帧格式

                        $main::proto = "decmop";
                    }

                # NETLOGON (NETBIOS Multi NETLOGON Query for Primary DC FRAME)
                elsif ($eth_obj->{dest_mac}=~m/^030000000001/)
                    {
                        $main::proto = "netlogon";
                    }

                # STP (Spanning Tree protocol)
                elsif ($eth_obj->{dest_mac}=~m/^0180c200000/)
                    {
                        my $llc_obj=NetPacket::LLC->decode($eth_obj->{data});
                        my $st_obj=NetPacket::SpanningTree->decode($llc_obj->{data});
                        $main::proto = "stp";
                        $dbh->do("insert into stppkt (pid, stp_max_age, stp_message_age, stp_bpdu_flags, stp_bridge_mac, stp_bpdu_type, stp_topology_change, stp_bridge_priority, stp_topology_change_ack, stp_protocol_version, stp_forward_delay, stp_hello_time, stp_port_num, stp_root_priority, stp_root_path_cost, stp_protocol_id, stp_root_mac, stp_port_priority, stp_root_id, stp_port_id, stp_bridge_id)
                        values (LAST_INSERT_ID(),'$st_obj->{max_age}', '$st_obj->{message_age}', '$st_obj->{bpdu_flags}', '$st_obj->{bridge_mac}', '$st_obj->{bpdu_type}', '$st_obj->{topology_change}', '$st_obj->{bridge_priority}', '$st_obj->{topology_change_ack}', '$st_obj->{protocol_version}', '$st_obj->{forward_delay}', '$st_obj->{hello_time}', '$st_obj->{port_num}', '$st_obj->{root_priority}', '$st_obj->{root_path_cost}', '$st_obj->{protocol_id}', '$st_obj->{root_mac}', '$st_obj->{port_priority}', '$st_obj->{root_id}', '$st_obj->{port_id}', '$st_obj->{bridge_id}')

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