Re: [PerlChina] perl实现DNS反向解析的问题

两个一起re好了，见下面

2010/9/13 王小默 <wangxiaomo521@gmail.com>

查了查NET Analysis 没怎么明白`.

$ cat Net/Analysis/Listener/HTTPHost.pm

package Net::Analysis::Listener::HTTPHost;

use strict;

use warnings;

use POSIX qw(strftime);

use base qw(Net::Analysis::Listener::Base);

sub http_transaction {

    my ($self, $args) = @_;

    my ($req)       = $args->{req};         # isa HTTP::Request

    my ($req_mono)  = $args->{req_mono};    # isa Net::Analysis::TCPMonologue

    my ($resp_mono) = $args->{resp_mono};   # isa Net::Analysis::TCPMonologue

    printf "%s\t%s\n", strftime('%F %T', localtime $req_mono->t_start()), $req->header('Host');

}

1;

$ perl -MNet::Analysis -e main HTTP HTTPHost tcpdump.out

2010-09-14 00:25:47 gmail.com

2010-09-14 00:25:51 cpan.org

在 2010年9月13日 下午12:03，Wan Li <wanliyou@gmail.com>写道：

2010/9/12 Joe <beginner.joe@gmail.com>

可以考虑 Net::Analysis

http://search.cpan.org/~worrall/Net-Analysis/lib/Net/Analysis.pm

或者，针对此特定问题，土办法：

tcpdump -l -w - tcp port 80 | grep -a '^Host: '

;)

这个NET Analysis只能支持tcp?

仔细看，有 Net::Analysis::Listener::HTTP 的

 

--
>: ~

--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
                        Love From
                                 王小默

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。