perl如何将读取的文件去掉后缀名，然后再将文件名输出去？

2025-04-28 04:00:02

推荐回答（1个）

回答1：

my $path="f:/drl"; #设置查询的目录

#需要把这个文件句柄修改为可持续添加的格式 : ">>"
open OUT, ">>f:/TMp/dd" or die "Can't create output file";
opendir(TEMPDIR, $path) or die "can't open it:$!";
my @dir = grep/.drl/g, readdir TEMPDIR; #筛选文件
# 用split 对数组内每个文件进行分割，然后截取文件名，舍去后缀
foreach my $line (@dir){
$line = (split /\./,$line)[0];
print "$line\n";
print OUT "$line\n"; # 输出保存到指定文件
}
close TEMPDIR;
close OUT;