Perl - 重命名目录中的图像文件

Question

我没有大量使用 perl。我有一个图像文件列表，需要用递增计数器重命名。

images folder

image_1_0.jpg
image_1_1.jpg
image_2_0.jpg
image_2_1.jpg
image_3_0.jpg
image_3_1.jpg
image_3_2.jpg
image_4_0.jpg
image_5_0.jpg
image_5_1.jpg
image_5_2.jpg
image_5_3.jpg
image_5_4.jpg
image_5_5.jpg

output would be

1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
6.jpg
7.jpg
8.jpg
9.jpg
10.jpg
11.jpg
12.jpg
13.jpg
14.jpg
15.jpg

我目前拥有的

my $dir = usr/local/bin/images

my counter = 0;

opendir (IMGDIR, "$dir") or die "Cannot open directory: $!";
my @files = readdir(IMGDIR);

foreach my $oldfile(@files){
    (my $oldfileb = $oldfile =~ s/\.[^.]+$//; #get file without extention
    my $newfile = $dir/"$counter".jpg;

    rename ("$dir/$oldfileb", "dir/$newfile");counter++;
}

尝试更多地使用 Perl，但可以使用一些帮助。在代码的计数器部分给出错误

Answer 1

启动脚本

#! /usr/bin/perl
use warnings;
use strict;

见strict 和warnings。 Perl 将保护您免受最常见的错误的影响。

字符串必须用引号括起来，如果后面有另一个语句，则每个语句都应该以分号结尾：

my $dir = 'usr/local/bin/images';

变量必须以符号开头：

my $counter = 0;

括号必须闭合：

(my $oldfileb = $oldfile) =~ s/\.[^.]+$//;

从 Perl 5.14 开始，您还可以使用更具可读性的/r 修饰符：

my $oldfileb = $oldfile =~ s/\.[^.]+$//r;

请注意，您应该跳过看起来不像图像名称的文件（例如，readdir 将在 *nix 上返回 . 和 ..）。您可能还想sort 文件。

/ 在引号之外是除法，. 是连接。

my $newfile = "$dir/$counter.jpg";

您已经将$dir 包含在$newfile 中：

rename "$dir/$oldfileb", $newfile;

检查rename的返回值是否有错误。

rename "$dir/$oldfileb", $newfile or warn "Can't rename $oldfile: $!";