#  perl 读文件

open(FILE,"filename.txt");

my $record;

while($record=<FILE>)

{

print("file record is : $record\n");

}

close(FILE);

#   perl 写文件

# 覆盖写入

open(FILE,">filename.txt");

syswrite(FILE,"This is my write file contents\n");

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);