perl open

1：读：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必须已经存在，否则会返回0，出错信息在$!中。
2：写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。
3：追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。

 

语句$line=<MYFILE>;从Perl文件中读取一行数据存储到简单变量$line中并把Perl文件指针向后移动一行。<STDIN>为标准输入Perl文件，通常为键盘输入，不需要打开。
语句@array=<MYFILE>;把Perl文件的全部内容读入数组@array，Perl文件的每一行(含回车符)为@array的一个元素。

 

 

如果末尾的字符是一个管道时，你启动一个新的命令，打开一个通向这个命令的
可读文件句柄。这使得这个命令写入标准输出的内容可以在你的句柄中读到的。

open(NET, “netstat -i -n |”) || die “can’t fork netstat: $!”;
while () { } # do something with input
close(NET) || die “can’t close netstat: $!”;