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

Question

如何使用 File::Copy 重命名文件扩展名？

到目前为止，我可以添加一个扩展。我需要替换文件扩展名。

例子： myfilename.txt 到 myfilename.dat

我的代码：

use strict;
use warnings;
use File::Copy;

my ($oldfn) = qw (myfilename.txt);
my $newfn = $oldfn . ".dat";

rename($oldfn, $newfn)
   or die("Can't rename: $!\n");

结果：myfilename.txt.dat

Answer 1

使用 File::Basename 的 fileparse 方法查找后缀，然后进行搜索/替换。

#!/usr/bin/env perl

use strict;
use warnings;

use feature qw(say);
use File::Basename qw(fileparse);

my $oldfilename = "/foo/bar/baz.txt";

my($filename, $directories, $suffix) = fileparse($oldfilename,qr/\.[^.]*$/);

$filename =~ s/\.$suffix$//;

my $newfilename = $filename.".dat";

say "New filename is:".$newfilename;
say "New fullpath is:".$directories.$newfilename;

exit 0;

输出：

$ ./basename.pl
New filename is:baz.dat
New fullpath is:/foo/bar/baz.dat

Answer 2

一个简单的正则表达式就足够了：

$newfn = $oldfn;
$newfn =~ s/\.txt$/.dat/i;

哦，您可能还想做：

use File::Copy qw(move);

...

move($oldfn, $newfn) or die...

否则您将使用 Perl 的内置函数 重命名。

Answer 3

一点正则表达式就可以完成这项工作：

($new = $old) =~ s/[^.]+$/dat/;
rename $old, $new or die "Can't rename: $!\n";