Learning Perl 4ed Reading Notes

yunvn

1. List and Array.  本书中所讲的List是一种数据结构，Array是Perl中用来存放List的数据类型。大部分情况下，这两个单词可以互换，意思是一样的。和C不一样 的是，Perl的Array不用定义元素的类型，也就是说，Perl中的Array中的每个元素可以是Number，也可以是String，元素的类型没 必要都一样。和C相同的就是，对Array的访问都是通过下标进行的，第一个元素的数组下标是0。

2. Perl中的Array用起来和C中的没什么区别：

$fred[0] = "yabba";
$fred[1] = "dabba";
$fred[2] = "doo";
print $fred[0];
$fred[2]  = "diddley";
$fred[1] .= "whatsis";

如果给定的下标不正确，那么将得到undef：

$blank = $fred[ 142_857 ]; # unused array element gives undef
$blanc = $mel;             # unused scalar $mel also gives undef

3. Special Array Indices. Perl中的Array有一个比较有意思的事情就是，如果访问的数组下标越界了（超过数组大小了），那么Perl不会出错，Perl会自动为我们将数组扩容：

$rocks[0]  = 'bedrock';      # One element...
$rocks[1]  = 'slate';        # another...
$rocks[2]  = 'lava';         # and another...
$rocks[3]  = 'crushed rock'; # and another...
$rocks[99] = 'schist';       # now there are 95 undef elements

上面的例子中，rocks这个数组最后就变成有100个元素了，中间有95个undef的元素。

4. 我们可以用$#rocks来取得数组最后一个元素的index值，比如$#rocks就会得到99，注意这个值实际比数组元素的个数要小1，因为第一个元素是从0开始的，$#rocks返回的是最后一个元素的index值，而不是数组大小
5. List Literals. 本节介绍用hard code的方式定义一个List。Perl定义一个List的方式非常灵活，如：

(1, 2, 3)      # list of three values 1, 2, and 3
(1, 2, 3,)     # the same three values (the trailing comma is ignored)
("fred", 4.5)  # two values, "fred" and 4.5
( )            # empty list - zero elements
(1..100)       # list of 100 integers

(1..5)            # same as (1, 2, 3, 4, 5)
(1.7..5.7)        # same thing - both values are truncated
(5..1)            # empty list - .. only counts "uphill"
(0, 2..6, 10, 12) # same as (0, 2, 3, 4, 5, 6, 10, 12)
($m..$n)          # range determined by current values of $m and $n
(0..$#rocks)      # the indices of the rocks array from the previous section
("fred", "barney", "betty", "wilma", "dino")

从上面的例子可以看到，定义List的时候也可以使用变量，这样的话，一个List的值就不完全是静态的了，也可以是动态的。

此外，注意，使用..的时候，只能是uphill的，也就是说(5..1)这样是不行的。后面会介绍reverse operator，可以把List中的内容翻转过来。

6. "qw" shortcut. qw是一个shortcut，意思是"quoted words" or "quoted by  whitespace"，使用qw可以让我们快速的定义一个字符串List，使用qw的话，每个String可以不用引号，这样可以省略一些typing 的工作：

qw( fred barney betty wilma dino )
就等同于
("fred" "barney" "betty" "wilma" "dino")

而且非常不错的是，在Perl中用qw定义一个字符串List，delimiter可以自由选择：

qw! fred barney betty wilma dino !
qw# fred barney betty wilma dino #   # like in a comment!
qw( fred barney betty wilma dino )
qw{ fred barney betty wilma dino }
qw[ fred barney betty wilma dino ]
qw< fred barney betty wilma dino >

这里可以看到，不一定要用()来把字符串括起来，完全可以用其他的字符，只要保证两个delimiter是一对符号或是一样的char就可以。

但是需要注意的是，用qw申明的List Literals，每个字符串相当于是用单引号括起来的，所以不能在字符串中使用变量，很多用backslash的转义也不能使用。此外，如果我们的字符串中要包含delimiter本身的话，请用backslash转义：

qw! yahoo\! google excite lycos ! # include yahoo! as an element

能够使用多种多样的字符作为delimiter是非常不错的，比如：

Code: Select allqw{
  /usr/dict/words
  /home/rootbeer/.ispell_english
}

如上，我们要把一串UNIX的路径作为字符串，那么，就可以用非/的字符作为delimiter，如果Perl规定只能用/作为delimiter的话，那么上面的代码将会非常的不好读。。此外，为了方便，Perl还定义了一些特殊的数组下标，比如负值的数组index，最常用的就是-1，这表示数组的最后一个元素，所以下面两句代码效果是一样的：

$rocks[ -1 ]   = 'hard rock';
$rocks[ $#rocks ] = 'hard rock';

-2, -3...依次类推，不过一般我们只会用一个-1，其他的实用意义就不大了。　　

　　
7. List Assignment. 本节讲述如何给List赋值，注意这里讲的是List，不是Array。比如：

($fred, $barney, $dino) = ("flintstone", "rubble", undef);

这样就可以给三个变量赋值，这三个变量就可以理解成组成了一个List，于是，我们可以这样很方便的交换两个变量的值而不用通过一个中间变量：

($fred, $barney) = ($barney, $fred); # swap those values
($betty[0], $betty[1]) = ($betty[1], $betty[0]);

当右边赋值的清单比左边的变量多了或是少了，会怎么样呢？很简单，值多了会被ignore，变量多了，多出来的变量将全部被赋成undef：

($fred, $barney) = qw< flintstone rubble slate granite >; # two ignored items
($wilma, $dino)  = qw[flintstone];     # $dino gets undef

注意上面的qw后面的<>,[]都是delimiter，没有什么其他的特别含义。

8. @ 符号。Perl提供了一个@符号，用来访问整个Array/List。比如：

@rocks  = qw/ bedrock slate lava /;
@tiny   = ( );                       # the empty list
@giant  = 1..1e5;                    # a list with 100,000 elements
@stuff  = (@giant, undef, @giant);   # a list with 200,001 elements
$dino   = "granite";
@quarry = (@rocks, "crushed rock", @tiny, $dino);

如上，使用@就可以访问整个Array，非常方便。所以，用@copy = @quarry; 就表示将数组quarry中的所有元素赋给copy数组。

9. pop and push Operators.  pop就是删除数组的最后一个元素并返回这个元素；push就是将一个元素加到数组的最后，数组长度加1。前面已经说了，用数组的index也可以做到这 一点（访问超过数组长度的index的时候Perl会自动为我们将数组扩展到这个大小，不会出错），为什么不用index，要专门发明pop和push 呢？很简单，第一，用push和pop更好理解；第二，用push和pop性能更高，因为在使用index的时候，特别是访问一个超过数组长度的 index的时候，Perl内部会触发异常，然后再处理这个异常，这中间做的事情很多，导致性能很低。所以，和C不一样，Perl中鼓励我们用push和 pop来操作数组末尾的元素。

@array  = 5..9;
$fred   = pop(@array);  # $fred gets 9, @array now has (5, 6, 7,
$barney = pop @array;   # $barney gets 8, @array now has (5, 6, 7)
pop @array;             # @array now has (5, 6). (The 7 is discarded.)

push(@array, 0);      # @array now has (5, 6, 0)
push @array, 8;       # @array now has (5, 6, 0,
push @array, 1..10;   # @array now has those 10 new elements
@others = qw/ 9 0 2 1 0 /;
push @array, @others; # @array now has those five new elements (19 total)

如果我们pop一个empty的array，那么将返回undef。

10. shift and unshift Operators. 和push、pop一样，不同的是shift/unshift操作的是数组开头的元素。

@array = qw# dino fred barney #;
$m = shift(@array);      # $m gets "dino", @array now has ("fred", "barney")
$n = shift @array;       # $n gets "fred", @array now has ("barney")
shift @array;            # @array is now empty
$o = shift @array;       # $o gets undef, @array is still empty
unshift(@array, 5);      # @array now has the one-element list (5)
unshift @array, 4;       # @array now has (4, 5)
@others = 1..3;
unshift @array, @others; # @array now has (1, 2, 3, 4, 5)

shift一个empty的array的时候，会返回undef。

11. Interpolating Arrays into Strings. 本节讲述在字符串中引用数组－当然是在双引号的字符串中。

@rocks = qw{ flintstone slate rubble };
print "quartz @rocks limestone\n";  # prints five rocks separated by spaces

很简单，用@符号就可以引用整个数组，用$array[index]引用数组中的一个元素。

这里插一句：再给list赋值的时候，默认都是用空格来分割各个元素，我们可以改变这一默认行为，和shell编程一样的，在Perl中，通过重定义$"就可以设定默认以什么字符为分隔符来区分list中的各个元素。

回过来，再引用整个数组的时候，打印出来的字符串前后都是没有空格的，所以，我们要手动在String中加入空格。

12.  前面看到了，我们用@符号引用了整个Array，那么，很自然会碰到的问题是，当我们的String是一个EMail地址的时候（含有@符号），那么，我 们要用backslash转义一下，否则Perl会认为我们在这个String中引用了一个数组，而不是一个EMail地址，如：

$email = "fred@bedrock.edu";  # WRONG! Tries to interpolate @bedrock
$email = "fred\@bedrock.edu"; # Correct
$email = 'fred@bedrock.edu';  # Another way to do that

13. 综述。看例子：

@fred = qw(hello dolly);
$y = 2;
$x = "This is $fred[1]'s place";    # "This is dolly's place"
$x = "This is $fred[$y-1]'s place"; # same thing

这里我们引用了数组中的一个元素，这里需要注意的是，$fred[$y-1]中，Perl 只会机械的将$y替换成2，如果这里的$y=2*4，那么Perl也只会机械的将$y替换成2*4，而不是8，然后如果我们打开了Warning的话，会 看到Perl把2*4解释成了2（因为Perl需要一个Number做-1的运算，按照我们前面学的，Perl在做自动类型转换）。千万注意。

@fred = qw(eating rocks is wrong);
$fred = "right";               # we are trying to say "this is right[3]"
print "this is $fred[3]\n";    # prints "wrong" using $fred[3]
print "this is ${fred}[3]\n";  # prints "right" (protected by braces)
print "this is $fred"."[3]\n"; # right again (different string)
print "this is $fred\[3]\n";   # right again (backslash hides it)

还有这里的例子，我们用{}强行显示定义了变量，从而将数组fred和变量fred分开了（Perl中数组和变量的名字是可以一样的，因为他们类型不同，但是我们强烈建议不要这样做，因为这样是在自找麻烦）。　　
　　
14. foreach Control Structure. foreach可以循环遍历一个List，和shell编程中的循环有点类似。比如：

Code: Select allforeach $rock (qw/ bedrock slate lava /) {
  print "One rock is $rock.\n";  # Prints names of three rocks
}
foreach 中有个非常重要的关键点：就是foreach中的control  variable（上面例子中的$rock），不是List中变量的一个copy，而就是这个变量本身，换言之，在foreach中如果我们修改了 control variable，就会对List中的数据产生修改，千万注意。比如这个例子，就把List中每个元素都加上了\t和\n:
Code: Select all@rocks = qw/ bedrock slate lava /;
foreach $rock (@rocks) {
  $rock = "\t$rock";       # put a tab in front of each element of @rocks
  $rock .= "\n";           # put a newline on the end of each
}
print "The rocks are:\n", @rocks; # Each one is indented, on its own line
15.  此外，foreach的control variable还有一个注意点，就是Perl会在foreach循环开始之前自动将control  variable备份起来，当foreach循环结束后，Perl会自动将control  variable的值恢复成foreach循环前的值，这一点和C都是不一样。换句话说，我们不用担心control  variable的值在循环开始和结束后会有变化，但是如上面14点所描述的一样，在foreach循环体中对control  variable的修改会直接影响List中的相应变量的值。
16. Perl's Favorite Default: $_ 。$_这个变量在Perl中很重要，也很常用，他是Perl中的默认变量－－当我们的代码中没有指定变量的时候，$_就成了默认的变量。如：
Code: Select allforeach (1..10) {  # Uses $_ by default
  print "I can count to $_!\n";
}

如上，在foreach中没有指定control variable，那么$_就成了control variable. 又如：

$_ = "Yabba dabba doo\n";
print;  # prints $_ by default

由于print没有指定print什么变量，那么Perl就会打印$_变量的值。

17. reverse Operator.  reverse用来反转一个List，有关reverse只需要记住一点：reverse不会修改List本身，reverse会把翻转后的结果作为返回 值传回，如果我们要修改List本身，那么只需要reverse的返回值再赋给List本身就可以了。

@fred   = 6..10;
@barney = reverse(@fred);  # gets 10, 9, 8, 7, 6
@wilma  = reverse 6..10;   # gets the same thing, without the other array
@fred   = reverse @fred;   # puts the result back into the original array

reverse @fred;         # WRONG - doesn't change @fred
@fred = reverse @fred; # that's better

18. sort Operator.  sort用来将一个List中的东西排序，默认情况下，sort是按照ASCII码表来排序的，那就是－－大写字母排在小写字母前面，数字排在字母前面， 标点符号充斥在ASCII码表的各处。在第13章会描述如何自定义sort的排序逻辑。和reverse一样，sort不会修改List本身，sort是 把排序后的结果作为返回值返回，要想修改List本身，要把sort的返回值重新赋给List本身就可以了。

@rocks   = qw/ bedrock slate rubble granite /;
@sorted  = sort(@rocks);        # gets bedrock, granite, rubble, slate
@back    = reverse sort @rocks; # these go from slate to bedrock
@rocks   = sort @rocks;         # puts sorted result back into @rocks
@numbers = sort 97..102;        # gets 100, 101, 102, 97, 98, 99

注意最后一个例子，排序的结果是100排在第一个哦，因为这是按照ASCII码表来排序的。

sort @rocks;          # WRONG, doesn't modify @rocks
@rocks = sort @rocks; # Now the rock collection is in order

19. Scalar and List Context.  书上说本节是本章，甚至是本书最重要的一节，其实本节就是描述在不同的context上，scalar和list类型的变量的不同行为，就好像语言中一个 单词在不同的语境下会有不同意思的含义一样。这里的context指的就是变量所处的一个环境，一个expression。

20. 比如:

42 + something # The something must be a scalar
sort something # The something must be a list

@people = qw( fred barney betty );
@sorted = sort @people; # list context: barney, betty, fred
$number = 42 + @people;  # scalar context: 42 + 3 gives 45

看这个例子，people是一个List，在最后一句代码中，我们将一个scalar变量和people相加，此时@people返回的是这个List中element的数量，而不是表示List本身，这就是同一个变量在不同的context下的不同表现。
一般来说，确定一个变量的真实表现，主要应该先看等号左边的变量类型是什么，这样就确定了等号右边expression应该给出一个什么类型的变量（是Scalar还是List），然后expression中的变量根据这样的要求给出不同的解释方法。这样的例子还有：

@list = @people; # a list of three people
$n = @people;    # the number 3

21. 给出更多的一些例子和规则。比如，在一个List context中用sort，这是正常用法，在一个Scalar  Context中用sort，sort会返回undef；在一个List  context中用reverse，reverse将List的元素全部倒序重新排列，如果在Scalar  Context中用reverse，reverse会返回一个倒序的String：

@backwards = reverse qw/ yabba dabba doo /;   # gives doo, dabba, yabba
$backwards = reverse qw/ yabba dabba doo /;   # gives oodabbadabbay

这里还有更多的例子：

$fred = something;            # scalar context
@pebbles = something;         # list context
($wilma, $betty) = something; # list context
($dino) = something;          # still list context!

注意最后一个例子，最后一个例子等号左边是一个List，不是一个Scalar变量。

22. 再来看例子，这里的例子是把Scalar的变量赋给一个List类型的变量：

@fred = 6 * 7;    # gets the one-element list (42)
@barney = "hello" . ' ' . "world";
@wilma = undef; # OOPS! Gets the one-element list (undef)
# which is not the same as this:
@betty = ( );    # A correct way to empty an array

23. Perl提供一个叫做scalar的关键字，用这个关键字可以手动强制指定一个变量为Scalar类型，如：

@rocks = qw( talc quartz jade obsidian );
print "How many rocks do you have?\n";
print "I have ", @rocks, " rocks!\n";        # WRONG, prints names of rocks
print "I have ", scalar @rocks, " rocks!\n"; # Correct, gives a number

在第三句代码中，print会把rocks这个array中的每个元素都打印出来，而我们想让print打印的是这个array的size，所 以，第四句代码中，我们用scalar关键字提示Perl，这里的@rocks作为Scalar变量来解释，所以就打印这个array的size了。

24. <STDIN> in List Context.  前面我们介绍了用<STDIN>可以读入一行（从文件或者是从keyboard读取），赋给一个Scalar变量；这里介绍 把<STDIN>用在List  Context时候的情景－－结果是，<STDIN>会一直读到end-of-file，然后把每行的string都作为List中的一个 element赋过去：

@lines = <STDIN>; # read standard input in list context

lines是一个List，所以，如果此时的<STDIN>是一个FILE的话，会一直读到文件末尾，然后每行作为一个 element赋给这个List；如果<STDIN>是keyboard的话，会把每行输入的string都作为一个element赋给这个 List，直到用户按下了ctrl+D(Linux/UNIX系统下，当然这个组合键可以通过stty命令来重定义，windows系统下一般是按下 ctrl+z表示EOF)。

这样每行读出来的string，末尾是有一个\n的，和前面一样，我们可以用chomp来去掉这个行尾的\n，不过有趣的是，chomp也可以用在List Context, 此时chomp会把List中每个element string行尾的\n去掉，很方便哦！

chomp(@lines = <STDIN>); # Read the lines, not the newlines

不过在使用<STDIN>的这个特性的时候，也要注意一些性能问题，比如一次性读入一个400MB的log  file的时候会如何呢？和以往一样，Perl不会限制这个size的大小，只要memory够用，不过当我们真的干这样事情的时候，大概会用掉1G左右 的内存空间，如果内存不够，那就要小心了，如果内存够，自然就没有问题了。