Perl：学习笔记（一）

懂ni

　　1. "<>"
　　解释："<>"在Perl中，叫做file handle。在Python中file handle 与普通变量没有明显的区别。例如：



1 my $username
2 $username=<STDIN>
　　
　　2. expression 和 statement
　　解释：expression 总是输出某种值，而 statement以 ";" 结束。例如：



1 chomp($username);
　　chomp($username) 是 expression, 而加上 ";" 后就是statement。
　　
　　3. “ ' ”，其中有两个字符不能显示为他们自己：  ” ' “和在” ' ” 和“ \ ”之前的"\"
　　解释：在单引号中，有两种字符不能表示自己。一个是单引号本身“’”，另一个就是在” ' ” 和“ \ ”之前的反斜线“\”。Python也同样适用。例如：



print 'need \ (backslash) \?' # need \ (backslash) \?
print 'need \\ (backslash) \?' # need \ (backslash) \?
print 'need \\\ (backslash) \?' # need \\ (backslash) \?
print 'need \\\\ (backslash) \?' # need \\ (backslash) \?
　　
　　4. Newlines 与 “ \ “+回车符
　　 解释：在Perl里，无论单引号还是双引号，如果一行写不下，就可以直接敲回车键换行，不需要” \ “，但是如果下一行为了对其出现多余的空格键，则这些空格会成为字符串的一部分。如果不想出现多余的空格，下一行就需要顶格写。但是在Python中，解决这一问题的方法是，用结束引号。然后使用 ” \ “+回车符（\ 之后不允许出现任何其他字符！），在下一行对齐后，使用开头引号。
　　
　　5. Newline character 和 “ \n ”
　　解释： newline character 有两种表示方法，一种是 “ \n “ ，另一种是直接敲回车键。这两者是需要区别对待的。前者是完成一行后敲回车键，后者是输入在字符串里的特殊字符。注意，” \ “ 不能在字符串中使用，所以在用回车符换行时，后面不能使用注释，只能在一段字符串结尾后，使用注释。

　　
　　6. interpolation
　　 解释：就是在双括号内用某种特殊的字符代替想要的内容，包括变量，数组($name, @array， %dic)等。

String	Interpolated As
`\\'	an actual, single backslash character
`\$'	a single $ character
`\@'	a single @ character
`\t'	tab
`\n'	newline
`\r'	hard return
`\f'	form feed
`\b'	backspace
`\a'	alarm (bell)
`\e'	escape
`\033'	character represented by octal value, 033
`\x1b'	character represented by hexadecimal value, 1b

　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　7. ” " “ 和 八进制与十六进制
　　解释： 在Python/Perl里的在双引号内，可以使用八进制与十六进制，结果输出相应的字符串，例如：



1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 print "A backslash: \x5C\n";
7 print "Tab follows:\x09over here\n";
8 print "Ring! \x07\n";
9 print "Please pay bkuhn\x40ebb.org \x2420.\n";
　　在Python中也是如此。
　　
　　8. 'undef' value in Perl
解释：undef在Perl中，是一个特殊的值。意思是 uninitialized。里如：



1 my $username;


　　有几点需要注意：

• Perl遇到含有undef的变量时，程序不会崩溃，还会向下执行。如果使用了 use warnings时，会出现错误提示，如果没有这个，则不会出现错误提示。Python则不同，Python遇到没有赋值的变量时候，程序会崩溃，抛出：NameError的例外。
  
• undef变量，如果期待值为字符串，则Perl会给这个变量空字符串""。如果期待值为数值，则Perl会给这个变量0。
  
• 正undef变量有一个函数 definded。如果变量定义了，则返回1，如果变量没有定义，则返回空字符""。
  
  
  1#!/usr/bin/perl
  2
  3use strict;
  4use warnings;
  5
  6my$startUndefined;
  7my$startDefined = "This one is defined";
  8
  9print"defined \$startUndefined == ",
  10defined$startUndefined,
  11", defined \$startDefined == ",
  12defined$startDefined, "\n";
  13
  14$startUndefined = $startDefined;
  15$startDefined = undef;
  16
  17print"defined \$startUndefined == ",
  18defined$startUndefined,
  19", defined \$startDefined == ",
  20defined$startDefined, "\n";
  结果：defined $startUndefined == , defined $startDefined == 1                            defined $startUndefined == 1, defined $startDefined ==
  

　　
　　9. <=>
　　解释：  -1 iff. $left is less than $right, 0 iff. $left is equal to $right 1 iff. $left is greater than $right
　　
　　10. string operator
　　解释：Perl的字符串连接器用“ . ”， 而Python用“ + ”。和赋值符号连用时，Perl为 “ .= ”， Python为 “ += ”。
　　
　　11. ()、 qw 和 “ .. ”
　　解释： 这两个都是Perl建立列表list的方法，qw的好处是，不需要对列表内的字符串再用括号“”。例如：



("a", "b", "c", 1, 2, 3);
qw/hello world how are youtoday/;
　　“ .. ” 在Perl，用于列表中的省略成分。例如：



(1 .. 100);
('A' .. 'Z');
('01' .. '32');
　　注：在Perl里，（Python是区分来的）list是没有赋值的数组，array是付值给了数组变量。例如：



my @stuff=qw/a b c/;
　　左边是数组变量，右边是列表。


　　12.  $#array
　　解释：数组最后一位成员的位数。



use strict;
my @someStuff = qw/Hello and
                  welcome/;     # @someStuff: an array of 3 elements
$#someStuff = 0;                # @someStuff now is simply ("Hello")
$someStuff[1] = "Joe";          # Now @someStuff is ("Hello", "Joe")
$#someStuff  = -1;              # @someStuff is now empty
@someStuff   = ();              # does same thing as previous line
　　
　　13. push()， pop() 和 unshift()
　　解释：这两个都是函数，不是方法，所以不能用在array.pop()。push() 比较简单，格式是push(@array, value1, value3, value4, ..)。pop()是把数组的最后一位数取出来。unshift(@array, value1, ...)和push()不同之处在于前者是把新的元素放在前面，而不是像push()那样，把新的元素放在后面。
　　
　　14.  &subroutine
　　解释：执行函数。Perl的函数也可以有返回值，用return。
　　
　　15. Perl的subroutine的输入值。
　　解释：Perl函数不需要声明arguments，只要在执行过程中，使用输入变量就可以了如： &HowdyEveryone("bart", "lisa")。Perl的函数会有一个" @_ "数组承载这些变量的。



1 use strict;
2 sub HowdyEveryone {
3    my($name1, $name2) = @_;
4    return "Hello $name1 and $name2.\n" .
5           "Where do you want to go with Perl today?\n";
6 }
7 print &HowdyEveryone("bart", "lisa");


1 use strict;
2 sub HowdyEveryone {
3    my($greeting, @names) = @_;
4    my $returnString;
5
6    foreach my $name (@names) {
7        $returnString .= "$greeting, $name!\n";
8    }
9
10    return $returnString .
11           "Where do you want to go with Perl today?\n";
12 }
13 print &HowdyEveryone("Howdy", "bart", "lisa", "homer", "marge", "maggie");
　　注意第二段代码中从list转到array的过程。
　　
　　16. <STDIN>
　　解释：Perl从标准输入读取数据有两种情况，一种是一行，一种是多行。一行用回车键做结束，多行用EOF为结束，EOF在Unix/Linux中用 ^D 表示。具体需要用 stty -a | grep -i eof 查获。



1 #!/usr/bin/perl
2 $userinput =  <STDIN>;
3 chomp ($userinput);
4 print "User typed $userinput\n";


1 #!/usr/bin/perl
2 @userinput = <STDIN>
3 foreach (@userinput) {
4         print;
5 }
　　
　　17. Redirection
　　解释：standard input(标准输入) 不仅可从键盘输入，而且可以通过再定向，从文件或者系统标准输出转到Perl的标准输入，用 “ < ” 或者 “ | ”。例如：



./shotext.pl < /etc/password
or
ls -l | ./showtext.pl
　　
18. Diamond operator：<>
　　解释：allows a Perl script to support input from a number of different sources. The key benefit of this is that it allows the choice of input to be specified at runtime rather than hard coded at the script development stage. Python在这类问题上需要用到 getopt模块，并且循环使用open()函数。



1 #!/usr/bin/env perl
2 @userinput=<>;
3 foreach (@userinput) {
4     print;
5 }
　　文件后面可以放一个或者多个文件来读出文件的内容，如果后面不跟任何参数，程序将读取键盘的输入值。如果程序中是数组的话，键盘必须按 ^D 结束，才能结束输入。例如：



./showtext.pl /etc/passwd
./showtext.pl /etc/passwd /etc/hosts
./showtext.pl
　　
　　19. <> 和 “ - ”
　　解释，在Perl用 <> 读取多个文件的命令中，可以使用 “ - ” 表示标准输入，例如：



./showtext myfile1 - myfile2
　　以上三种输入功能都一样。当读取第一个文件后，等待键盘输入，直到 ^D 结束输入，再读取第二个文件。
　　如果文件不存在，perl就会报错，如："Can't open myfile1: No such file or directory at ./showtext line2."
　　
　　20. Default variable @_
解释：@_可用于读取输入值，例如：



1 #!/usr/bin/env perl
2
3 use strict;
4
5 while(<STDIN> {
6     print "You entered @_";
7 }