scalar函数应用

testfile.txt文件内容：

I am the very model of
a modern major-general.

perl代码实现需求：读取文件testfile.txt至列表，然后把读取的数据反转顺序输出

#!/usr/bin/perl -w

open(MYFILE, "testfile.txt") || die "opening testfile: $!";
@stuff=;
close(MYFILE);
foreach(reverse(@stuff)){  
  #print scalar(reverse($_));#输出一

  #print reverse($_);          #输出二
}

输出结果：

输出一：

.lareneg-rojam nredom a
fo ledom yrev eht ma I

输出二：

a modern major-general.I am the very model of

两句print不同的地方是多了个scalar函数。

书中的解释是：列表的每一行（现在位于$_中）本身也进行倒序，由从左到由，变成从右到左，并且输出倒序后的每一行。它需要使用scalar函数。因为print期望一个列表。另外，在列表上下文中，reverse用于对列表进行倒序，这样，$_就不会出现问题。scalar函数将强制reverse进入标量上下文中，同时它按逐个字符对$_进行倒序。

我自己的理解是：

（1）scalar(它并不是真正的函数，只不过告诉perl这里要切换到标量上下文，即reverse($_)的结果需要强制切换到标量上下文中，相当于$a=reverse($_)

（2）@a=reverse qw/abc efg/ #@a=qw/efg abc/

          $a=reverse qw/abc efg/ #$a="gfecba"

         当reverse在标量上下文中，则把参数看成一个标量，然后反转。