论坛 › Perl › Perl读写文件实例（转）

蓝晶灵 发表于 2015-12-27 14:39:22

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

查看完整版本: Perl读写文件实例（转）