如何用Perl将文本文件中Dog图片名称替换为递增序号？

你的代码错误原因 #

• 第一段代码：你把终端执行的Perl命令行语句直接写到了Perl脚本里，Perl会把perl识别为未定义的裸字（bareword），因此报错Can't use bareword perl。
• 第二段代码：system函数需要完整的shell命令，你只写了替换表达式，既没有指定执行的解释器，语法格式也完全错误。

方法1：终端一行式命令（快速实现） #

直接在终端执行以下命令，无需编写脚本：

perl -pi -e 'BEGIN { $i=1; } s/Dog_Image_\d+\.jpg/"Dog_Image_".$i++.".jpg"/ge' Animals.txt

参数说明：

• -p：循环处理文件每一行，处理后自动打印
• -i：原地修改原文件（若要备份原文件，改用-i.bak，会生成Animals.txt.bak备份）
• BEGIN { $i=1; }：在处理行之前初始化计数器为1
• 正则Dog_Image_\d+\.jpg：精准匹配数字后缀的Dog图片名，避免误匹配其他字符
• ge修饰符：g表示全局匹配（单一行若有多个Dog文件名也能处理），e表示替换内容为Perl表达式，实现计数器自增

方法2：Perl脚本实现（适合复杂逻辑扩展） #

创建脚本rename_dogs.pl，内容如下：

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

my $file = 'Animals.txt';
my $counter = 1;

# 安全处理：用临时文件存储修改内容
open my $in_fh, '<', $file or die "无法打开文件 $file: $!";
open my $out_fh, '>', "${file}.tmp" or die "无法创建临时文件: $!";

while (my $line = <$in_fh>) {
    # 替换Dog图片文件名
    $line =~ s/Dog_Image_\d+\.jpg/"Dog_Image_".$counter++.".jpg"/ge;
    print $out_fh $line;
}

close $in_fh;
close $out_fh;

# 替换原文件（可选：先备份原文件）
# rename $file, "${file}.bak"; # 打开此行可保留原文件备份
rename "${file}.tmp", $file or die "无法替换原文件: $!";

执行脚本：

chmod +x rename_dogs.pl
./rename_dogs.pl

这种方式更安全，避免原地修改时意外损坏原文件，也方便后续扩展更多处理逻辑。

内容的提问来源于stack exchange，提问作者Trey B