有以下幾種方法可以使用Perl修改文件內容：
#!/usr/bin/perl
use strict;
use warnings;
my $file = 'file.txt';
open(my $fh, '<', $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
$line =~ s/old/new/g; #將所有匹配到的"old"替換為"new"
}
open($fh, '>', $file) or die "Cannot open file: $!";
print $fh join("", @lines);
close($fh);
File::Slurp和File::Find::Rule。#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
my $file = 'file.txt';
my @lines = read_file($file);
foreach my $line (@lines) {
$line =~ s/old/new/g; #將所有匹配到的"old"替換為"new"
}
write_file($file, @lines);
-i選項：Perl的-i選項可以直接修改文件內容，無需進行文件讀取和寫入操作。#!/usr/bin/perl -i
use strict;
use warnings;
while (<>) {
s/old/new/g; #將所有匹配到的"old"替換為"new"
print;
}
以上是一些常見的Perl修改文件內容的方法，可以根據需要選擇適合自己的方式。
