如何使用Perl搜索归档文件

cpan install Archive::Tar

#!/usr/bin/perl

use strict;
use warnings;
use Archive::Tar;

# 替换为您的归档文件名
my $archive_file = 'example.tar.gz';

# 替换为您要搜索的文件名或模式
my $search_pattern = '*.txt';

# 创建一个新的归档对象
my $tar = Archive::Tar->new($archive_file, 1);

# 获取归档文件中的所有文件列表
my @files = $tar->list_files;

# 遍历文件列表并搜索匹配的文件
foreach my $file (@files) {
    if ($file =~ /$search_pattern/) {
        print "找到匹配的文件: $file\n";
    }
}

perl search_archive.pl