Perl的文件讀寫操作非常簡單，可以通過內置的文件處理函數來實現。以下是一些常見的文件讀寫操作示例：
my $filename = 'file.txt';
open(my $fh, '<', $filename) or die "Cannot open file $filename: $!";
while (my $line = <$fh>) {
print $line;
}
close($fh);
my $filename = 'file.txt';
open(my $fh, '>', $filename) or die "Cannot open file $filename: $!";
print $fh "Hello, World!\n";
close($fh);
my $filename = 'file.txt';
open(my $fh, '>>', $filename) or die "Cannot open file $filename: $!";
print $fh "More content\n";
close($fh);
my $filename = 'binaryfile.bin';
open(my $fh, '<:raw', $filename) or die "Cannot open file $filename: $!";
my $data;
read($fh, $data, 1024);
close($fh);
open(my $fh, '>:raw', $filename) or die "Cannot open file $filename: $!";
print $fh $data;
close($fh);
這些示例演示了如何使用Perl進行文件讀寫操作。需要注意的是，在處理文件操作時，一定要記得關閉文件句柄，以釋放系統資源。
