使用Perl的File::Basename重命名文件扩展名

Question

收到以下警告消息时，我如何摆脱它？

Use of uninitialized value $suffix in concatenation (.) or string at /usr/share/perl5/File/Basename.pm line 167. Use of uninitialized value $suffix in substr at /usr/share/perl5/File/Basename.pm line 169.

正在使用的代码：

use File::Copy;
use File::Basename qw(fileparse);

my @mtf;
my $name;
my $dir;
my $ext;
my $ascii;
my $suffix="";

($name, $dir, $suffix) = fileparse(@mtf,qr/\.[^.]*$/);
$name =~ s/\.$suffix$//;
system("cp $mtf[0] $name.ASCII");
$ascii = "$name.ASCII";

Answer 1

fileparse(@mtf,qr/\.[^.]*$/);没有任何意义。因为您必须确保@mtf只包含一个元素才能正常工作，所以使用数组而不是标量是没有意义的。

您没有显示@mtf包含的内容，但是它显然不是单个元素，或者单个元素与正则表达式模式\.[^.]*$不匹配。