Perl reading notes.docVIP

Perl reading notes； 数组长度 1. 你可以通过在标量环境里计算数组 @days 而获取数组 @days 里面的元素的个数，比如： @days + 0; # 隐含地把 @days 处于标量环境 scalar(@days) # 明确强制 @days处于标量环境 请注意此招只对数组有效。并不是一般性地对列表值都有效。正如我们早先提到的，一个逗 号分隔的列表在标量环境里返回最后一个值. 和 @days 的标量计算有紧密联系的是 $#days。这样会返回数组里最后一个元素的脚 标，或者说长度减一，因为（通常）存在第零个元素。给 $#days 赋值则修改数组长度。 可以通过给数组赋空列表 () 把它裁断为什么都没有。下面的两个语句是等效的： @whatever = (); $#whatever = -1; 而且下面的表达式总是真： scalar(@whatever) == $#whatever + 1; 截断一个数组并不回收其内存。你必须 undef(@whatever) 来把它的内存释放回你的进程的内存池里。你可能无法把它释放回你的系统的内存池，因为几乎没有那种操作系统支持这样做。 2 散列 当你在标量环境里计算散列变量的数值的时候，它只有在散列包含任意键字/数值对时才返回真。如果散列里存在键字/数值对，返回的值是一个用斜线分隔的已用空间和分配的总空间的值组成的字串。要算出一个散列里面的键字的数量，在标量环境里使用 keys 函数： scalar(keys(%HASH)). 请不要把多维散列仿真和片段混淆起来。前者表示一个标量数值，后者则是一个列表数值： $hash{ $x, $y, $z} # 单个数值 @hash{ $x, $y, $z} # 一个三个值的片段 3. 行输入操作符 下面行是一样的： while (defined($_ = STDIN)) {print $_; } # 最长的方法 while ($_ = STDIN) { pirnt; } # 明确使用 $_ while (STDIN) { PRINT ;} # 短形式 for (;STDIN;) { print;} # 不喜欢用 while 循环 print $_ while defined( $_ = STDIN); # 长的语句修改 82 print while $_ = STDIN; # 明确$_ print while STDIN; # 短的语句修改 请记住这样的特殊技巧要求一个 while 循环。如果你在其他的什么地方使用这样的输入操作符，你必须明确地把结果赋给变量以保留其值： while(FH1 fh2) { ... } # 错误：两个输入都丢弃 if (STDIN) { print; } # 错误：打印$_原先的值 if ($_=STDIN) {PRINT; } # 有小问题：没有测试是否定义 if (defined($_=STDIN)) { print;} # 最好 当你在一个 $_ 循环里隐含的给 $_ 赋值的时候，你赋值的对象是同名全局变量，而不是while 循环里的那只局部的。你可以用下面方法保护一个现存的 $_ 的值： while(local $_=) { print; } # 使用局部 $_ 当循环完成后，恢复到原来的值。不过，$_ 仍然是一个全局变量，所以，不管有意无意，从那个循环里调用的函数仍然能够访问它。当然你也可以避免这些事情的发生，只要定义一个文本变量就行了： while (my $line = ) { print $line;} # 现在是私有的了 在一个尖角操作符里面使用空（null）文件句柄是一种特殊用法；它仿真典型的 Unix 的命令行过滤程序（象 sed 和 awk）的特性。当你从一个 读取数据行的时候，它会魔术般的把所有你在命令行上提到的所有文件的所有数据行都交给你。如果你没有（在命令行）上声明文件，它就把标准输入交给你，这样你的程序就可以很容易地插入到一个管道或者一个进程中。 下面是其工作原理的说明：当第一次计算 时，先检查 @ARGV 数组，如果它是空（null） ， 则 $ARGV[0] 设置为 “-”， 这样当你打开它的时候就是标准输入。 然后 @ARGV数组被当作一个文件名列表处理。更明确地说，下面循环： while () { ... # 处理