Perl中的文件读写学习笔记

一、打开、关闭文件

文件操作是Perl编程中最基础也最常用的技能之一。先说说怎么打开一个文件——语法非常直接：open(filevar, filename)。filevar是文件句柄，你可以把它理解成程序里用来代表某个文件的代号；filename是文件名，路径可以是相对路径，也可以是绝对路径。

打开文件的时候，需要决定访问模式。Perl里有三种基本的访问模式：读、写和添加。写模式和添加模式的区别在于：写模式会把原文件直接覆盖，原有内容全部丢失；添加模式则是在原文件末尾继续追加内容。比如：

• 写模式：open(outfile, ">outfile")
• 添加模式：open(appendfile, ">>appendfile")

有一点必须注意：不能同时对同一个文件进行读和写/添加操作。也就是说，一个文件句柄一次只能干一件事。

那么怎么知道打开文件是不是成功了？open函数会返回一个值——成功时返回非零值，失败时返回零。所以我们可以这样判断：

甚至可以在文件打开失败时直接结束程序：

或者用逻辑或操作符写得更简洁：

操作完之后，别忘了用 close(MYFILE); 关闭文件。养成良好的习惯，资源才不会泄露。

二、读文件

从文件中读取内容也很直观。用 $line = <> 可以从文件中读取一行数据，存储到简单变量 $line 里，同时文件指针自动向后移动一行。这里的 <> 代表标准输入文件（通常是键盘），不需要提前打开就能用。

如果想一口气把整个文件都读进来，可以用 @array = <>。这样文件的每一行（包括末尾的换行符）都会成为数组 @array 的一个元素。批量处理时非常方便。

三、写文件

写文件的操作和读文件类似，只是要指定写模式。比如：

这里 STDOUT 和 STDERR 是标准输出和标准错误文件，通常对应屏幕，不需要手动打开，直接 print 就行。

四、判断文件状态

在操作文件之前，常常需要先检查一下文件的状态——比如存不存在、是不是目录、能不能读写等。Perl 提供了一套非常方便的文件测试操作符，语法是 -op expr。举个例子：

下面这张表总结了常用的文件测试操作符，建议收藏：

注：这里的“真正的用户”指的是登录时指定的userid，与当前进程用户ID相对。如果你用过 suid 命令，就会明白有效用户ID是可以被改变的。

组合使用这些测试操作符能写出非常健壮的脚本。比如下面这段代码，先检查输入文件能不能打开，再检查输出文件是否已经存在，最后才打开输出文件：

它的简化写法也很漂亮，逻辑与和逻辑或一口气搞定：

五、命令行参数的解释

和C语言一样，Perl也有一个存储命令行参数的数组 @ARGV。不过跟C不同的是，$ARGV[0] 是第一个参数，而不是程序名本身。程序名保存在 $0 中。

这里要特别提一下 <> 操作符的隐含机制。当Perl解释器第一次看到 <> 时，它会做三件事：

1. 打开以 $ARGV[0] 为文件名的文件。
2. 执行 shift(@ARGV)，把数组 @ARGV 的元素向前移动一个，元素数量减少一个。
3. 读取第一步打开的文件中的所有行。
4. 读完后，回到第一步重复，直到所有文件名处理完毕。

来看个例子：

这段代码会把 myfile1 和 myfile2 的内容依次打印出来。

函数的参数传递

自定义函数的参数传递也值得聊聊。比如：

调用 abc("a","b") 时，参数 a 和 b 被分别赋值给 $_[0] 和 $_[1]。这是最简单直接的写法。你也可以用列表赋值的方式：

$_[0] 表示函数的第一个参数，$_[1] 表示第二个，以此类推。下面这个例子展示了两种等价的写法：

执行结果都是：

第一种写法（列表赋值）更常见，第二种则更适合处理大量参数——比如如果你有1000个参数，直接用 $_[999] 取第999个就行，其他参数不用管。

其实所有传入Perl子程序的参数都以 @_ 数组的形式传递。在函数内部，@_ 就是一个普通的数组，你可以像处理普通数组一样随意处理它。知道了这个，上面各种写法也就不奇怪了：

• ($first,$second)=@_; 是把数组 @_ 中的前两个元素分别赋给 $first 和 $second。
• $first = shift; $second = shift; 则是通过 shift 依次取出前两个元素。

特殊变量 $&, $`, $'

Perl 中有三个用于模式匹配的特殊变量：

• $&：存放匹配中的值
• $`：存放匹配中之前的所有字符
• $'：存放匹配中之后的所有字符

看个例子：

执行结果：

请注意，@_ 是子程序的一个私有变量。即使你有一个同名的全局变量 @_，在子程序调用前它会被存储起来，调用完成后又会恢复原值。这意味着你完全不用担心参数传递会影响其他子程序。嵌套调用时也一样，甚至递归调用时每一次调用都会得到全新的 @_。

不过要提醒一点：如果调用子程序时前面带 & 但后面没有括号（或者没有参数），那么 @_ 会从调用者的上下文中继承。这种做法通常不推荐，但偶尔也会用到，灵活理解即可。

六、打开管道

在Perl里，你可以像在命令行中使用管道一样，用程序的形式打开管道。比如：

这里的 | 表示将输出重定向到后面的命令。上面这个例子实际上就是通过管道发送了一封邮件。又比如 open (MYPIPE, "| cat >hello");，它会打开一个管道，所有发送到 MYPIPE 的输出都会成为命令 cat >hello 的输入。因为 cat 会显示输入内容，所以这个语句等价于直接 open(MYPIPE, ">hello");。管道操作让Perl和系统命令的交互变得非常灵活，值得多花点时间熟悉。