在Perl中修改文件內容可以使用以下幾種方法：
open函數打開文件，通過讀取文件內容和修改變量的方式來修改文件內容，然后使用open函數再次打開同一文件，并使用print函數將修改后的內容寫入文件。例如：open(my $file, '<', 'filename.txt') or die "Cannot open file: $!";
my @lines = <$file>;
close($file);
# 修改文件內容
foreach my $line (@lines) {
$line =~ s/old_text/new_text/g;
}
open($file, '>', 'filename.txt') or die "Cannot open file: $!";
print $file @lines;
close($file);
Tie::File模塊，該模塊允許將文件內容視為數組，通過修改數組元素來修改文件內容。例如：use Tie::File;
tie my @lines, 'Tie::File', 'filename.txt' or die "Cannot open file: $!";
# 修改文件內容
foreach my $line (@lines) {
$line =~ s/old_text/new_text/g;
}
untie @lines;
File::Slurp模塊，該模塊提供了一系列讀取和寫入文件的函數。例如：use File::Slurp;
my $content = read_file('filename.txt');
# 修改文件內容
$content =~ s/old_text/new_text/g;
write_file('filename.txt', $content);
以上是幾種常見的修改文件內容的方法，具體使用哪種方法取決于你的需求和偏好。
