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

use File::Basename;

use File::Basename;

my $path = "/path/to/file.txt";
my $basename = basename($path, ".txt");

print "基本名称：$basename\n";

基本名称：file

use File::Basename;

my $path = "/path/to/file.txt";
my ($basename, $dirname, $suffix) = fileparse($path, ".txt");

print "基本名称：$basename\n";
print "目录名称：$dirname\n";
print "扩展名：$suffix\n";

基本名称：file
目录名称：/path/to/
扩展名：.txt

use File::Basename;

my $path = "/path/to/file.txt";
my ($basename, $dirname, $suffix) = fileparse($path, ".txt");
my $new_path = $dirname . $basename . ".csv";

rename($path, $new_path) or die "无法重命名文件：$!";
print "文件已成功重命名为：$new_path\n";

文件已成功重命名为：/path/to/file.csv