singlefold

摘要： # 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");s 阅读全文