新手请教读取 tgz压缩文件的问题

hu_zhuang163

问题描述

my $fileList = "d"\\log_*.tar.gz";
my $tar   = Archive::Tar->new($fileList);
my @files = $tar->list_files;

@files  里面已经获取到了 tgz压缩文件里的文件名列表
但是 我的需求是要读取tgz里面所有  impr_*.log 名称的文件

dajun

perldoc -f grep