Perl提供了多種方法來修改文件的內容。以下是一些常見的方法:
open(my $input_fh, '<', 'input.txt') or die "Cannot open input.txt: $!";
open(my $output_fh, '>', 'output.txt') or die "Cannot open output.txt: $!";
while (my $line = <$input_fh>) {
# 修改文件內容
$line =~ s/foo/bar/g;
print $output_fh $line;
}
close($input_fh);
close($output_fh);
use Tie::File;
tie my @file_array, 'Tie::File', 'file.txt' or die "Cannot open file.txt: $!";
foreach my $line (@file_array) {
# 修改文件內容
$line =~ s/foo/bar/g;
}
untie @file_array;
use File::Slurp;
my $content = read_file('file.txt') or die "Cannot read file.txt: $!";
# 修改文件內容
$content =~ s/foo/bar/g;
write_file('file.txt', $content) or die "Cannot write to file.txt: $!";
請根據具體需求選擇適合的方法來修改文件內容。