2

我正在尝试执行用户创建的 Perl 脚本，

usage: my.pl <type> <stats> [-map <map>] <session1> [session2] 
Produces statistics about the session from a Wireshark .pcap file where:
<type> is the type of data in the pcap file (wlan, ethernet or ip)
<stats> is the output file to write notable information
<session> is the pcap input file or a folder containing pcaps (recursive)

但它失败并出现以下错误。

        $perl my.pl ethernet pa.xls google.pcap
        Processing pcap trace (TCP):
        Not a HASH reference at folder/httpTrace.pm line 654.

这是调试控制台 -

    Not a HASH reference at folder/httpTrace.pm line 654. at folder/httpTrace.pm line 654
        folder::httpTrace.pm::readHttp('HASH(0x2306d38)', undef) called at my.pl line 56
        main::__processSession('google.pcap') called at my.pl line 35 Debugged program terminated.

httpTrace.pm: 最后一行# 654

    sub readHttp($@)
    {
        my ($conntable, $map) = @_;
        my $http_req_id = 0;
        my $pipelining = 0;

        my $mapc;
        my @allReq;
        my @allRep;
        if( defined( $map ) ) {
            $mapc = $map->clone();
        }
    foreach my $connect ( sort { $pa->{'id'} <=> $pb->{'id'} } values( %{ $conntable } ) ) {

my.pl 中的第 56 行：

    my $stats = Pcapstats::HTTP::readHttp( \%tcp_stream, $map );

my.pl 中还有 map.pm 和用法

    my $map;
    if( $ARGV[0] eq '-map' ) {
        shift( @ARGV );
        $map = Pcapstats::Map->new( shift( @ARGV ) );
    }
4

1 回答 1

0

在您的文件httpTrace.pm中，您有这一行

foreach my $connect ( sort { $pa->{'id'} <=> $pb->{'id'} } values( %{ $conntable } ) ) {

我想知道什么$pa和$pb是？除非您将它们设置为其他地方，否则它们将是未定义的，并且会给您使用未初始化的值错误。无论哪种方式，您都不会进行排序。

但这并不能解释Not a HASH reference错误，这很可能是因为$conntable不是您认为的那样。如果未定义它不会导致错误，因为 autovivication 会自动创建一个空哈希，因此它可能是一个简单的字符串或数字，或者可能是一个数组引用。

如果您想显示设置的代码，$conntable那么我们可能会提供进一步的帮助。

于 2012-07-23T23:27:10.990 回答