sub is_pattern_data_zip_file
{
my ($gzh, $pattern) = @_;

    my $temp;
    #read the entire file
    {
        local $/;
        $temp = <$gzh>;
    }

return 1 if ($temp =~ /$pattern/) or return 0;
}

sub is_pattern_data_zip_file2
{
my ($gzh, $pattern1, $pattern2) = @_;

    my $temp;
    #read the entire file
    {
        local $/;
        $temp = <$gzh>;
    }

$_ = $temp;
return 1 if (/$pattern1/ || /$pattern2/) or return 0;
}

sub is_pattern_data_zip_file3
{
my $gzh = shift;

    my $temp;
    #read the entire file
    {
        local $/;
        $temp = <$gzh>;
    }

    foreach(@_) {
        if ($temp =~ /$_/) {
            return 1;
        }
    }
    return 0;
}

ITPub博客

perl判断某个打开的文件是否匹配某模式