《perl语言编程》读书笔记_perl语言编程这门课最让人感兴趣内容

 

1. 从一开始， Perl 就设计成可以把简单工作简单化，同时又不失去处理困难问题能力的语言。

因为 Perl 几乎可以在任何地方运行，所以 Perl 可以说是当今最具有移植性的编程环境。

  Perl 从一开始就是设计成胶水语言的，可以很方便的调用任意外部程序例如 :my $ret=`echo "xxx"` 。

  在每一个层次， Perl 都能够帮助你以最小的忙乱获得最大的享受和进步，这就是为什么这么多 Perl 程序员能够如此悠闲的原因吧

2. 历史上， Perl 要求你在调用的任何用户定义子过程的前面加一个与号（ & ）（参阅早先时候的 $fido = &fetch(); ）。但是到了 Perl 版本 5 ，这个与号是可选的了，所以用户定义动词现在可以和内建动词相同的方法进行调用了（ $fido = fetch(); 。

3. 你经常能看见这样来处理单行输入：

 

   chop($number = <STDIN>);      # 输入数字并删除新行

还有另外一种写法：

   $number = <STDIN>;         # 输入数字

   chop($number);            # 删除新行

4. 请记住在 Perl 里，每个过程都返回值。 C 语言的程序员不会感到奇怪，因为他们已经知道用下面的方法来使变量清零：

 

   $a = $b = $c =0;

真正能使 c 程序员惊讶的是在 Perl 中，赋值语句返回实际的变量作为 lvalue 。因此你可以在同一个语句中多次改变同一个变量的值。例如可以使用下面的语句：

 

   ($temp -= 32) *= 5/9

将华氏温度转换成摄氏温度。这也是为什么在本章的前面我们能使用下面的语句：

   chop ($number = <STDIN>);

上面的语句能将 $number 最后的值进行 chop 操作。

 

5.

6.

• 除了”” 和”0” ，所有字符串为真
• 除了 0 ，所有数字为真
• 所有引用为真
• 所有未定义的值为假．

7.if 语句

在 C 中，如果你只有一条语句，那么你可以省略花括弧。但是在 Perl 中，花括弧是必须的。

8.

while ($line = <GRADES>) {

这句代码将文件的下一行内容赋值给变量 $line 并且返回 $line 的值，因此 while 语句的条件表达式为真，你也许想知道，当遇到空白行时，Perl 是不是返回假并且过早地退出循环。答案是否定的，如果你还记得我们先前学过的内容，那么理由是非常明显的。读行操作符在字符串最后并不去掉新行符，因此空白行的值是“/n” 。并且我们知道“/n” 不是假值。因此条件表达式为真，并且循环将继续。

9. foreach 的循环变量直接指向元素本身，而不是它的一个拷贝，因此，修改循环变量，就是修改原始数组。

你将发现在 Perl 程序中，foreach 循环比 for 循环要多得多，这是因为 Perl 经常使用一些需要使用 foreach 遍历的各种列表。你经常会看到使用下面的代码来遍历散列的关键字：

   


foreach $key (sort keys %hash) {

这样就首先将数组按 keys 排列了再循环

10.

跳出控制结构 : next 和 last

11.

一个正则表达式就是一种方法，这种方法能够描述一组字符串，但不用列出所有的字符串

(1)    正则表达式有几种使用方法，第一种，也是最常用的一种，就是确定一个字符串中是否匹配某个模式，因为在一个布尔环境中它们返回真或假。因此当看见 /foo/ 这样的语句出现在一个条件表达式中，我们就知道这是一个普通的模式匹配操作符

(2)    第二种方法，如果你能将一个模式在字符串中定位，你就可以用别的东西来替换它。因此当看见 s/foo/bar/ 这样的语句，我们就知道这表示将 foo 替换成 bar 。

(3)         ($good, $bad, $ugly) = split(/,/, "vi,emacs,teco");

(4)    修饰符

12.

特殊符号 /b 匹配单词边界，就是位于单词字符（ /w ）和非单词字符（ /W ）之间的零宽度的地方。（字符串的开始和结尾也被认为是非单词字符）。例如 : //bFred/b/ 将会匹配 “The Great Fred” 和 “Fred the Great” 中的 Fred ，但不能匹配 “Frederick the Great” ，因为在 “Frederick” 中的 “d” 后面没有跟着非单词字符。

13 反引用

正则表达式中的一对圆括弧使得这部分匹配到的东西将被记住以供以后使用。

如果你想将一个字符串的前两个词互相调换，你可以使用下面的代码：

   


/(/S+)/s+(/S+)/$2 $1/

14.

print reverse sort map {lc} keys %hash;

这行代码获取 %hash 的关键字并将它们返回给 map 函数，map 函数使用 lc 将所有的关键字转换成小写，并将处理后的结果传给 sort 函数进行排序，然后再传给 reverse 函数， reverse 函数将列表元素颠倒顺序后，传给print 函数打印出来。

15.

   


print ++($foo = '99');   


# 


打印'100'

   


print ++($foo = 'a0');   


# 


打印'a1'

   


print ++($foo = 'Az');   


# 


打印'Ba'

   


print ++($foo = 'zz');   


# 


打印'aaa'

16.

双目 !~ 类似 =~ 操作符，只是返回值是 =~ 的对应返回值的逻辑非。下面的表达式功能上是完全一样的：

   


$string !~ /pattern/

   


not $string =~ /pattern/

 

17.

在列表环境里，如果左操作数是在圆括弧中的列表，x 的作用是一个列表复制器，而不是字串复制器。这个功能对初始化一个长度不定的数组的所有值为同一值时很有用：

   @ones = (1) x80;      # 一个80 个1 的列表

   @ones = (5) x @ones;      # 把所有元素设置为5

 

18.

按位移位操作符（<< 和 >> ）返回左参数向左（<< ）或向右（>> ）移动由右参数声明位（是 bit ）数的值。参数应该是整数。比如：

1. << 4; # 返回16
2. >> 4; # 返回2

19.

表 3-2 命名单目操作符

20.

范围操作符 .. 根据环境的不同实际上是两种不同的操作符。

在标量环境里，.. 返回一个布尔值。该操作符是双稳定的，类似一个电子开关，并且它仿真 sed ，awk ，和各种编辑器的行范围（逗号）操作符。每个 .. 操作符都维护自身的状态。只要它的左操作数为假就一直为假。一旦左操作数为真，该范围操作符就保持真的状态直到右操作数为真，右操作数为真之后该范围操作符再次为假。该操作符在下次计算之前不会变成假。它可以测试右操作数并且在右操作数变真后在同一次计算中变成假（awk 的范围操作符的特性），不过它还是会返回一次真。如果你不想拖到下一次计算中才测试右操作数（也是 sed 的范围操作符的工作方式），只需要用三个点（... ）代替两个点（.. ）。对于 .. 和 ... ，当操作符处于假状态后就不再测试右操作数，而当操作符处于真状态后就不再测试左操作数。

返回的值要么是代表假的空字串或者是代表真的一个序列数（从 1 开始）。该序列数每次碰到新范围时重置。在一个范围里的最后序列数后面附加了字串“E0” ，这个字串不影响它的数字值，只是给你一些东西让你可以搜索，这样你可以把终点排除在外。你也可以通过等待 1 的序列数的方法把启始点排除在外。如果标量 .. 的某个操作数是数字文本，那么该操作数隐含地与 $. 变量对比，$. 里包含你的输入文件的当前行号。比如：

   


if(101 .. 200) {print;}    


# 


打印第二个一百行

   


next line if( 1.. /^$/);   


# 


忽略开头行

   


s/^/> / if (/^$/ .. eof());   


# 


引起体

在列表环境里， .. 返回一列从左值到右值计数（以一）的数值。这样对书写 (1 .. 10) 循环和数组片段的操作很有帮助：

   for (101 .. 200) {print;}      # 打印 101 ， 102 。。。 199 ， 200

   @foo = @foo[0 .. $#foo];      # 一个昂贵的空操作

   @foo = @foo[ -5 .. -1];         # 最后5 个元素的片段

 

因此你可以说：

   @alphabet = ('A' .. 'Z');

以获得所有英文字母，或者：

   $hexdigit = (0 .. 9, 'a' .. 'f')[$num & 15];

获得一个十六进制位，或者：

   @z2 = ('01' .. '31'); print $z2[$mday];

获得带有前导零的日期。你还可以说：

   @combos = ('aa' .. 'zz');

获取所有两个小写字符的组合。不过，用下面的语句要小心：

   @bigcombos = ('aaaaaa' .. 'zzzzzz');

因为这条语句要消耗很多内存。准确地说，它需要存储 308,915,776 个标量的空间。希望你分配了一个非常大的交换分区。可能你会考虑用循环代替它。

 

21.

  


$a = $ok ? $b :$c;   


# 


得到一个标量

   


@a = $ok ? @b : @c;   


# 


得到一个数组

   


$a = $ok ? @b :@C;   


# 


得到一个数组元素的计数

22.

$a = $b = $c =0;

把 0 赋予 $c ，其结果（还是 0 ）给 $b ，其结果（依然为 0 ）再给 $a 。

23.

whie (1) {

      


...

   


}

如果你为巡航导弹写代码，你就可能不用什么明确的循环退出了。因为循环会在合适的时间自动退出。

24. 如果你把 “ 文本 ” 的含义尽可能地扩展，那么可能你做的工作中有 90% 是在处理文本

25.

有一个结构元字符是竖直条，表示侯选项：

   


/Frodo|Pippin|Merry|Sam/  





（译注：电影“


魔戒”


里Shire


的四个小矮人）

这意味着这些字串的任何一个都会触发匹配

26

量词是这些东西：

   


* + ? *? {3} {2,5}

不过你永远不会看到它们这样独立地存在。量词只有附着在原子后面才有意义

例如： /bar{3}/ ， 匹配的是“barrr“

27.

当用于匹配操作时，有时候 =~ 和 !~ 分别读做 “ 匹配 ” 和 “ 不匹配 ”

28. 为了有更好的颗粒度和提高效率，你可以用圆括弧捕捉你特别想分离出来的部分。每对圆括弧捕捉与圆括弧内的模式相匹配的子模式。圆括弧由左圆括弧的位置从左到右依次排序；对应那些子模式的子字串在匹配之后可以通过顺序的变量 $1 ，$2 ，$3 等等获得：

   


$_ = "Bilbo Baggins's birthday is September 22";

   


/(.*)'s birthday is (.*)/;

   


print "Person: $1/n";

   


print "Date: $2/n";

29. 模式修饰符

30. ($lotr = $hobbit ) =~ s/Bilbo/Frodo/g;

如果没有赋值语句周围的圆括弧，你只修改了 $hobbit 并且把替换的个数存储在 $lotr 里，那样会得到很傻的结局

31.

替换一个数组里每个元素：

   


for (@chapters) { s/Bilbo/Frodo/g }      


# 


一章一章的替换

   


s/bilbo/Frodo/g for @chapters;         


# 


和上面一样的东西

 

对同一个变量执行重复替换的最经典的方法是用一个单程循环。比如，下面是规范变量里的空白的方法：

   


for ($string) {

      


s/^/s+//;   


# 


丢弃开头的空白

      


s//s+$//;   


# 


丢弃结尾的空白

  


    


s//s+/ /g;   


# 


压缩内部的空白

   


}

32.

   


tr/aeiou/!/;         


# 


把所有元音字母转换成!

   


tr{r/n/b/f. }{_};      


# 


把怪字符转成下划线

   


tr/A-Z/a-z/ for @ARGV;      


# 


把字符规则化为小写ASCII

   


$count = ($para =~ tr//n//);   


# 


计算$para


里的换行符

   


$count = tr/0-9//;      


# 


计算$_


里的位

   


$word =~ tr/a-zA-Z//s;      


# bookkeeper -> bokeper

   


tr/@$%*//d;         


# 


删除这里几个字符

   


tr#A-Za-z0-9+/##cd;      


# 


删除非base64


字符

   


# 


顺便修改

   


($HOST = $host) =~ tr/a-z/A-Z/;

   


$pathname =~ tr/a-zA-Z/_/cs;   


# 


把非ASCII


字母换成下划线

   


tr [/200-/377]

      


{/000-/177];         


# 


剥除第八位，字节操作

33.

表 5-5 。 正则量词

表 5-6 扩展的正则序列

表 5-7 。字母数字正则元符号

如果在 /p 和 /P 里的属性名字是一个字符，那么花括弧是可选的。如果 /x 里的十六

33.

锁有两种变体，共享（ LOCK_SH 标志）和排它（ LOCK_EX 标志）。尽管听着有 “ 排它 ” 的意思，但是进程并不需要服从对文件的锁。也就是说， flock 只是实现了劝告性的锁定，劝告性的锁定，也就意味着锁定一个文件并不阻止其他的进程读取甚至是写入该文件。进程请求一个排它锁只是让操作系统推迟它对文件的处理，直到所有当前的锁持有者，不管是共享锁还是排它锁，都完成操作以后才进行。类似地，如果一个进程请求一个共享锁，它只是推迟处理直到没有排它锁存在。只有所有当事人都使用文件锁机制的时候，你才能安全地访问一个有内容的文件

34. 下面这个最简单的例子打开一个文件然后开始一个子进程。然后子进程则使用已经为它打开了的文件句柄

open (INPUT, "< /etc/motd")   or die "/etc/motd: $!";

if ($pid = fork ) { waitpid ($pid, 0);}

else {

        defined ($pid)   or die "fork : $!";

        while (<INPUT>) { print "$.: $_" }

        exit ;   # 不让子进程回到主代码

}

# INPUT 句柄现在在父进程里位于 EOF

35

use


 Thread qw


/async yield/;

my


 $var = 0;

sub


 abump {

        


if


 ($var == 0) {

                


yield;

                


$var++;

        


}

}

my


 $t1 = new Thread /&abump;

my


 $t2 = new Thread /&abump;

for


 my


 $t ($t1, $t2) { $t->join


}

print


 "var is $var/n";