文件读写

1. 打开、关闭文件

　　open (filevar, filename);

　　close(filevar);

2. 读文件

　　$line = <MYFILE>; #读取一行

　　@lines = <MYFILE>;#读取一个文件，数组每一项为文件的每一行

3. 写文件

　　open(OUTFILE, ">outfile");
     print OUTFILE ("Here is an output line. ");

4. 判断文件状态

　　语法为：-op exp

5. 命令行参数

　　$var = $ARGV[0]; # 第一个参数
     $numargs = @ARGV; # 参数的个数

　　1）当PERL解释器第一次看到<>时，打开以$ARGV[0]为文件名的文件；
　　2）执行动作shift(@ARGV); 即把数组@ARGV的元素向前移动一个，其元素数量即减少了一个。
　　3）<>操作符读取在第一步打开的文件中的所有行。
　　4）读完后，解释器回到第一步重复。

6. 打开管道

　　用程序的方式也可以像命令行一样打开和使用管道(ex:ls > tempfile)，例如，

　　语句open (MYPIPE, "| cat >hello"); 打开一个管道，发送到MYPIPE的输出成为命令"cat >hello"的输入。由于cat命令将显示输入文件的内容，故该语句等价于open(MYPIPE, ">hello")