Perl如何读写文件
在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。下面以open函数为例：
读：open(文件句柄，"文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。
读写：open(文件句柄,"+文件名")，通过“+》”模式，可以同时读写文件，但与上面不同的是，它是破怀性写，会清除原来的内容。
例子：
open(FD,"info.txt")||die("Cannotopenthefile!$!n");
@line=;
close(FD);
上面的例子是打开info.txt这个文件并把文件内容读入@line中，关闭文件。
页:
[1]