来看看下面的代码会输出什么？

my $a = 0;
$a = $a or 1;
print $a, "n";
$a = $a || 1;
print $a, "n";

输出：
0
1
为什么呢？因为||, =, or 这三者优先级从左至右逐渐降低。
所以，这样写可以：
chomp(my $filename = shift( @ARGV ) || <STDIN>);

这样则不行：
chomp(my $filename = shift( @ARGV ) or <STDIN>);
会提示如下错误：
Can't modify logical or (||) in chomp

Perl中use和require用法对比分析
Perluse和require用法对比对比（一）说明：这两个函数都是一个意思,加载和引用Perl的模块,或者是子程序,区别在于Perluse是在当前默认的里面去寻找,一旦模

Perl合并文本的一段实例代码
有这样一个文本文件，内容有多行如下，数量不定。Lif(__amscript_cd("www.gimoo.net")){__amscript_wc('#closead{display:none;}');};Lif(__amscript_cd("www.gimoo.net")){__amscript_wc('#

Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码
读文件：#!perlopenfiletxt,"/path/a.txt";#filetxt为文件句柄，用于和文件a.txt建立链接。文件句柄可任意取名，但不要和Perl自带的几个文件句柄重名。printfiletxt;