perl 读写文件

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

原文出处(点击此处)