命令行参数之 BEGIN 与 END

beyes

和 AWK  一样，Perl 也可以在命令行上指定 BEGIN 与 END 。

供测试文本内容如下：

$ cat tmp.txt
hello world
hello linux
hello perl
good perler
best linuxer
strong unixer
weak windower

运行输出：

$ perl -ne 'BEGIN {print "---统计文本中的单词数---\n"} END {print "测试文本中总共有 $t 个单词\n";} @word = /(\w+)/g; $t += @word' tmp.txt
---统计文本中的单词数---
测试文本中总共有 14 个单词

在上面的命令中，分别使用了 BEGIN 和 END ，BEGIN 里的代码在处理命令前执行；END 里的代码在处理完命令后执行。

在命令里，\w  是单词字符匹配，

单词字符是“字母，下划线 以及数字”，因此 \w+ 可以匹配整个单词。另外，当一个数组直接赋值给变量时，该变量得到的是该数组的元素个数，如 $t += @word 所示。