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);
原文出处(点击此处)
