要在Perl中就地编辑期间记录所做的更改，您可以使用以下方法：

1. 使用 -i 选项运行Perl脚本。这将在原始文件中就地编辑文件，并创建一个备份副本，文件名为“原始文件名.bak”。

示例：perl -i.bak -pe 's/old/new/g' input.txt

这将使用正则表达式将“input.txt”文件中的所有“old”替换为“new”，并创建一个名为“input.txt.bak”的备份文件。

1. 使用 Tie::File 模块。这个模块允许您将文件视为一个数组，并直接对其进行编辑。

示例：

use Tie::File;

打开文件并将其与数组 tie

tie my @array, 'Tie::File', 'input.txt' or die "Can't tie file: $!";

对文件进行编辑

$array0 =~ s/old/new/g;

解除 tie

untie @array;

这将使用正则表达式将“input.txt”文件中的第一行的所有“old”替换为“new”。

1. 使用 -n 或 -p 选项以及 print 函数。这将允许您在不创建备份文件的情况下就地编辑文件，并将更改打印到屏幕上。

示例：perl -pe 's/old/new/g' input.txt > temp.txt && mv temp.txt input.txt

这将使用正则表达式将“input.txt”文件中的所有“old”替换为“new”，并将结果输出到“temp.txt”文件中。然后，它将使用mv命令将“temp.txt”文件重命名为“input.txt”，从而就地编辑文件。

请注意，这些方法可能会覆盖原始文件，因此在使用之前请确保备份您的文件。