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