#!/usr/bin/perl
# perl 读文件
open(FILE,"filename.txt");
my $record;
while($record=<FILE>)
{
print("file record is : $recordn");
}
close(FILE);
# perl 写文件
# 覆盖写入
open(FILE,">filename.txt");
syswrite(FILE,"This is my write file contentsn");
close(FILE);
# 追加写入
open(FILE,">>filename.txt");
syswrite(FILE,"This is my write file n");
syswrite(FILE,"This is my write file contents n");
close(FILE);