两个一起re好了，见下面
2010/9/13 王小默 <[email protected]> > 查了查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 <[email protected]>写道： > > 2010/9/12 Joe <[email protected]> >> >> 可以考虑 Net::Analysis >>> http://search.cpan.org/~worrall/Net-Analysis/lib/Net/Analysis.pm<http://search.cpan.org/%7Eworrall/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 讨论组”论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 >> [email protected]<perlchina%[email protected]> >> 。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> > > > > -- > Love From > 王小默 > > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 > [email protected]<perlchina%[email protected]> > 。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
