PERL学习笔记

CPAN 是 Comprehensive Perl Archive Network 的缩写，中译为 Perl 综合典藏网。他包含了极多用 Perl 写成的软件和模块。
CPAN相关软件的安装方法
最近几天安装SPAMASSASSIN，牵涉到许多CPAN的安装，以前都是缺少什么，就去CPAN网站寻找相应的模块，自己编译安装，后来发现其实CPAN自己的shell命令就能非常方便的安装相应模块，真是方便
当然前提你必须安装perl-CPAN，在我的redhat9.0上的版本是perl-CPAN-1.61-88，大家没装的话，直接用光盘的rpm包安装即可。
安装后运行
[root@www CPAN]# perl -MCPAN -e shell
cpan shell -- CPAN exploration and modules installation (v1.61)
ReadLine support available (try ’install Bundle::CPAN’)
cpan>
进入cpan的shell，好了，我为了安装spamassassin，需要安装以下几个
  install Digest::SHA1
  install HTML::Parser
  install Storable
  install DB_File
  install Net::DNS
  install Net::SMTP
  install Mail::SPF::Query
  install IP::Country::Fast
  install IO::Socket::SSL
  install Time::HiRes
  install DBI
是不是非常方便呀，不用再独立下载编译安装了，
类型  字符  例子  用于哪种名字  
标量  $  $cents  一个独立的数值（数字或字串）  
数组  @  @large  一列数值，用编号做键字  
散列  %  %interest  一组数值，用字串做键字  
子过程  &  &how  一段能调用的 Perl 代码  
类型团  *  *struck  所有叫 struck 的东西
手册页  内容  
perl  有些什么 perl 手册页  
perldata  数据类型  
perlsyn  语法  
perlop  操作符和优先级  
perlre  正则表达式  
perlvar  预定义变量  
perlsub  子过程  
prelfunc  内建函数  
perlmod  怎么令 Perl 模块工作  
perlref  参考手册  
perlobj  对象  
perlipc  进程间通讯  
perlrun  怎么运行 Perl 命令，及命令行开关  
perldebug  调试  
perldiag  诊断信息  
% perlop comma
% perlfunc split
% perlvar ARGV
% perldiag ’assigned to typeglob’
% perlfaq round
perltoc 命令（自己也是个手册页）搜索所有手册页收集的目录
% perltoc typeglob
perl5005delta: Undefined value assigned to typeglob perldata: Typeglobs
and Filehandles perldiag: Undefined value assigned to typeglob 或搜索全部
Perl 在线文件，包括所有头，描述，和例子，对于所有字串的实例，使用 perlhelp 命令： % perlhelp
CORE::GLOBAL
参阅 perldoc 手册页获取细节。
手册页  内容  
perlfaq1  关于 Perl 的通用信息  
perlfaq2  获取和学习 Perl  
perlfaq3  编程工具  
perlfaq4  数据操作  
perlfaq5  文件和格式  
perlfaq6  正则表达式  
perlfaq7  通用 Perl 语言信息  
perlfaq8  系统交互  
perlfaq9  网络  
手册页  内容  
perlamiga  Amiga 移植  
perlcygwin  Cygwin 移植  
perldos  MS-DOS 移植  
perlhpux  HP-UX 移植  
perlmachten  Power MachTen? 移植  
perlos2  OS/2 移植  
perlos390  OS/390 移植  
perlvms  DEC VMS 移植  
perlwin32  MS-视窗系统 移植  
比较  数字  字串  返回值  
等于  ==  eq  如果 $a 等于 $b 返回真  
不等于  =  ne  如果 $a 不等于 $b 返回真  
小于    gt  如果 $a 大于 $b 返回真  
小于或等于   le  如果 $a 不大于 $b 返回真  
比较    cmp  相等时为 0，如果 $a 大为 1 如果 $b 大为 -1
例子  名字  结果  
-e $a  存在  如果在 $a 中命名的文件存在则为真  
-r $a  可读  如果在 $a 中命名的文件可读则为真  
-w $a  可写  如果在 $a 中命名的文件可写则为真  
-d $a  目录  如果在 $a 中命名的文件是目录则为真  
-f $a  文件  如果在 $a 中命名的文件是普通文件则为真  
-T $a  文本文件  如果在 $a 中命名的文件是文本文件则为真  
名字  ASCII 定义  代码  
空白  [＼t＼n＼r＼f]  ＼s  
词  [a-zA-Z_0-9]  ＼w  
数字  [0-9]  ＼d
更有一件你必须知道的事情，缺省时量词作用在他前面的单个字符上，因此 /bam{2}/ 将匹配 “bamm”而不是“bambam”。如果你要对多于一个字符使用量词，你需要使用圆括弧，因此为了匹配“bambam”需要使用 /(bam){2}/。
构造  含义  
$days  简单标量值 $days  
$days[28]  数组 @days 的第二十九个元素  
$days{’Feb’}  散列 %days 的“Feb”值  
构造  含义  
${days}  和 $days 相同，不过在字母数字前面不易混淆  
$Dog::days  在 Dog 包里面的不同的 $days 变量  
$#days  数组 @days 的最后一个索引  
$days->[28]  $days一个引用指向的数组的第二十九个元素  
$days[0][2]  多维数组  
$days{200}{’Feb’}  多维散列  
$days{2000,’Feb’}  多维散列枚举
构造  含义  
@days  包含（$days[0],$days[1],...$days[n]）的数组  
@days[3,4,5]  包含（$days[3],$days[4],$days[5]）数组片段的数组  
@days[3..5]  包含（$days[3],$days[4],$days[5]）数组片段的数组  
@days{’Jan’,’Feb’}  包含（$days{’Jan’},$days{’Feb’}）片段的散列
构造  含义  
%days  （Jan=>31，Feb=>$leap?29:28,...）  
代码  含义  
＼n  换行符（常作LF）  
＼r  回车（常作CR）  
＼t  水平制表符  
＼f  进纸  
＼b  退格  
＼a  警报（响铃）  
＼e  ESC字符  
＼033  八进制的ESC  
＼x7f  十六进制DEL  
＼cC  Control-C  
＼x{263a}  Unicode（笑脸）  
＼N{NAME}  命名字符
代码  含义  
＼u  强迫下一个字符为大写（Unicode里的“标题”）  
＼l  强制下一个字符小写  
＼U  强制后面所有字符大写  
＼L  强制后面所有字符小写  
＼Q  所有后面的非字母数字字符加反斜杠  
＼E  结束＼U，＼L，或＼Q。  
常用  通用  含义  替换  
’ ’  q//  文本字串  否  
" "  qq//  文本字串  是  
` `  qx//  执行命令  是  
()  qw//  单词数组  否  
//  m//  模式匹配  是  
s///  s///  模式替换  是  
y///  tr///  字符转换  否  
" "  qr//  正则表达式  是  


#! /usr/bin/perl
@lines= `perldoc ?u ?f atan2`; # 反引号`通常在美式键盘数字1 的左边。不要和单引号‘混淆了
foreach(@lines){
s/＼w]+)/＼U$1/g;
print;
}
chomp() 这个函数是去到＼n 的，如果两个＼n只去掉一个。
pop 是在数组的结尾，弹出
push 是在数组的结尾，压入。
shift  是在数组的开头，弹出
unshift 是在数组的开头，压入
reverse 逆转
子程式返回值为最后一个被计算的表达式。
在if 代码块内部，其语句没有分号。Perl 允许省略括号中最后一条语句的分号，在实际代码中，通常仅当此代码块仅包含一条语句时才省略此分号
本书重点
my ($num) = @_; #列表context,同($sum) = @_；此为特别列表，表内只有一个变量
my $num = @_; #标量context ，同$num = @_；
例如 @_=qw(a b c d e f g)
更有补充就是 ($num)里得到的是值为a
              $num里得到的是@_的个数为7
记住，如果没有使用括号，my 仅定义一个变量◆
my $first,$second 没有定义$second
my ($first,$second) 两个都定义了.
$#name 是name这个数组的最后一个索引
[email=#@name]#@name[/email]
是对数组name进行索引
行输入操作在到达文件的结尾时将返回undef ，这对于从循环退出时非常方便的
while (defined($line=)){
     print "I saw $line";
  }
可简写
  while (){
     print "I saw $_";
  }
在进行深入讨论前，我们要澄清一些事：这种简写只在特定的情况下有效，默认的情况下不会将一行读入变量$_。仅当while
循环的条件判断部分只包含行输入操作才有效◆。如果在条件判断部分更有别的内容，则上述简写无效。
这是Unix 中非常少人知道的一个事实：如许多标准的工具，如cat ,sed ,也使用这种约定，连接号（-）代表标准输入流。
如果在第二次使用之前重新初始化@ARGV ，则能得到正确的结果
@ARGV 是个数组，不过似乎是perl 内定的一个数组.
如果需要更多的这种选项，那非常可能你是使用模块按照标准方法处理他们。参看Getopt::Long 和Getopt::Std 这两个模块，他们属发布的Perl 中的一部分于标准
print @array; #打印出元素的列表
print
[email=%E2%80%9C@array]“@array[/email]
”；#打印一个字符串(包含一个内插的数组)
第一个语句打印出所有的元素，一个接着一个，其中没有空格。第二个打印出一个元素，他为@array 的所有元素，其被存
在一个字符串中。也就是说，打印出@array 的所有元素，并由空格分开◆。如果@array 包含qw /fred barney betty /◆，则
第一个例子输出为：fredbarneybetty ，而第二个例子输出为fred barney betty （由空格分开）
Perl 在内插数组时，他会在元素之间加入空格。
如果字符串包含了换行符 print @arrey;
如果字符串没有换行符   print "@arrey＼n";
事实上，Perl Power Tools (PPT)项目的目标是将所有传统的Unix 工具在Perl 中实现，他们几乎实现了所有的工具（包括大多数的游戏），
当在怎么实现shell 时被难住了。PPT 项目是成功的，因为在大多数non-UNIX 系统中实现了标准的Unix 工具。
＼d 任意数字 [0-9]
＼D 除数字外的任意字符 [^0-9]
＼w 任意单词字符 [_0-9a-zA-Z]
＼W 任意非单词字符 [^_0-9a-zA-Z]
＼s 空白 [ ＼r＼t＼n＼f]
＼S 非空白 [^ ＼r＼t＼n＼f]
g 匹配所有可能的模式
i 忽略大小写
m 将串视为多行
o 只赋值一次
s 将串视为单行
x 忽略模式中的空白
因此.*将匹配任意字符任意多数
不过.不匹配换行符
这里提到的三个变量名为:$&, $`, $’
if(“Hello there, neigbor”=~ /＼S(＼w+),/){
print “That actually matched ‘$&’.＼n”;
}
匹配的部分是“there,”（空格，单词，和一个逗号）。变量$1 中的值为there ，而$&为整个被匹配的部分。
匹配部分的前一部分存放在$`之中，后一部分被存到$’。另一种说法是，$`中含有正则表达式引擎在匹配成功前所找到的变
量，而$’为此模式还没有匹配的剩余部分。如果将这三个变量放在一起，你将得到原始字符串：
if (“Hello there, neighbor”=~ /＼S(＼w+),/){
pirnt “That was ($`)($&)($’)”;
}
输出的消息为(Hello)( there,)( neighbor)，为这三个自动匹配变量的值。三个变量的值可能是空的，和之前数字匹配变量的例
子相同。他们和数字匹配变量有相同的作用域。通常，在下次成功匹配前其值不变。
目前，我们讨论我们之前说的“免费”问题。是的，自由是要代价的。这里的代价是，如果你使用了这三个自动匹配变量
中的任意一个，无论在程式的什么地方，其他地方的正则表达式的运行数度会变慢一些。虽然，变慢的程度不大，但已
足够让人担忧，因此许多Perl 程式员从不使用这些自动匹配变量◆。相反的，使用的替代的方法。例如，如果需要使用$&，那么在整个模式上加上括号，并使用$1 代替。
这些在替换中出现的大小写转换的修饰符，也可在双引号中使用：
print “Hello, ＼L＼u$name＼E, would you like to play a game?＼n”;
默认时，split 对$_操作，模式为空白：
my @fields = split; #同split /＼s+/, $_；
my @values = split /:/, $x;
[email=#@values]#@values[/email]
为(4, 6, 8, 10, 12)
my $z =join “-”, @values; #$z 为“4-6-8-10-12”
split 和join 能一起使用，但不要忘了join 的第一个参数是字符串，而非模式
我们将整个文件读入一个变量之中
open FILE, $filename
or die “Can’t open ‘$filename’: $!”;  #如果打不开文件，出提示打不开的原因
my $lines = join ’’, ;
$lines =~ s/^/$filename: /gm;
这是?号在正则表达式中的第四种用法：问号，表示0 或1 的数量词，非贪婪修饰符，目前是开头符?:
unless ($mon =~ /^Feb/){
  print “This month has at least thirty days.＼n”;
}else{
print “Do you see what’s going on here?＼n”;
}
同下面
if($mon =~ /^Feb/){
  print “Do you see what’s going on here?＼n”;
}else{
print “This month has at least thirty days.＼n”;
}
Pascal 程式员应当小心：在Pascal 中，重复的until 语句至少要执行一次迭代，但Perl 中的until 循环可能一次也不执行，如果循环执行前的条件表达式的值为真。
print “$n is a negative number.＼n”if $n
更有一些其他的修饰语：
&error(“Invalid input”) unless &valid($input);
$i *= 2 unitl $i > $j;
print “”, ($n += 2) while $n
Perl 没有像C 语言“switch ”结构中的“fall-through (直接跳入)”下一个代码块的功能
for
这三个部分（初始化，条件判断，步长）的任意部分均能为空，但分号不能省略。
前面三个操作符&&, || , ?:，均有一个一起的特别性质：根据左侧的值（true 或false ），来判断是否执行右侧代码。&&表示，如果左面的值为真，则执行右侧的代码，
||表示左面的值为假时，则执行右侧的代码。
===================================================================
foreach(1..10){
print “Iteration number $_.＼n＼n”;
print “Please choose: last, next, redo, or none of the above?”;
chomp(my $choice = );
print “＼n”;
last if $choice =~ /last/i;
next if $choice =~ /next/i;
redo if $choice =~ /redo/i;
print “That was’t any of the choices… onward!＼n＼n”;
}
print “That’s all, folks＼n”;
============================================================
|      文件检测选项及其含义                                |
============================================================
检测选项含义
-r 文件或目录对此（有效的）用户（effective user ）或组是可读的
-w 文件或目录对此（有效的）用户或组是可写的
-x 文件或目录对此（有效的）用户或组是可执行的
-o 文件或目录由本（有效的）用户所有
-R 文件或目录对此用户(real user)或组是可读的
-W 文件或目录对此用户或组是可写的
-X 文件或目录对此用户或组是可执行的
-O 文件或目录由本用户所有
-e 文件或目录名存在
-z 文件存在，大小为0 （目录恒为false ）
-s 文件或目录存在，大小大于0 （值为文件的大小，单位：字节）
-f 为普通文本
-d 为目录
-l 为符号链接
-S 为socket
-p 为管道(Entry is a named pipe(a “fifo”))
-b 为block-special 文件（如挂载磁盘）
-c 为character-special 文件（如I/O 设备）
-u setuid 的文件或目录
-g setgid 的文件或目录
-k File or directory has the sticky bit set
-t 文件句柄为TTY(系统函数isatty()的返回结果；不能对文件名使用这个测试)
-T 文件有些像“文本”文件
-B 文件有些像“二进制”文件
-M 修改的时间（单位：天）
-A 访问的时间（单位：天）
-C 索引节点修改时间（单位：天）
=========================================================================
my @all_files = ; ##基本上同@all_files = glob “*”相同；
my @files = ; ##glob
my @lines = ; ##文件句柄读入
my $name = “FRED”;
my @files =  ##glob
如果需要，能使用readline 得到间接文件句柄读入的操作
my $name = “FRED”;
my @lines = readline FRED; #从FRED 读入
my @lines = readline $name; #从FRED 读入
（使用opendir 而非open ），从中读入（使用readdir 而非readline ），关闭（使用closedir 而非close ）。不是读入文件的内容，而是将一个目录中的文件名（及一些其他东西）读入，如下例：
my $dir_to_process = “/etc”;
opendir DH, $dir_to_process or die “Cannot open $dir_to_process: $!”;
foreach $file(readdir DH) {
print “one file in $dir_to_process is $file＼n”;
}
closedir DH;
◆某些人知道rm 通常会提示你是否删除这一类的文件。但rm 是个命令，而unlink 是系统调用。系统调用从不询问权限，他们也从不道歉说自己错了。
◆这不是唯一的一个经常询问的问题；怎样一次将一批文件重命名是在这些新闻组中最常问的。这也是在大多数新闻组的FAQ 中，这通常
是第一个回答的问题。直到目前，他仍然占据第一的位置。
foreach my $file (glob “*.old”){
my $newfile = $file;
$newfile =~ s/＼ .old$/.new/;
if (-e $newfile){
warn “can’t rename $file to $newfile: $newfile exists＼n”;
}elsif(rename $file, $newfile){
##成功，什么也不做
} else {
warn “rename $file to $newfile failed: $!＼n”;
}
}
要找出符号连接指向的地方，使用readlink 函数。他会告诉你符号连接指向的地方，如果参数不是符号连接其返回undef ：
my $where = readlink “carroll ”; #得到“dodgson”
my $perl = readlink “/usr/local/bin/perl”#可能得到Perl 放置的地方
my $name = “fred”;
my $permissions = “0755”; #危险…不能工作
mkdir $name, $permissions;
mkdir $name, oct($permissions);
你能使用chown 函数改动一批文件的所有者及所在的组
my $now = time;
my $ago = $now -24*60*60; #一天的秒数
utime $now, $ago, glob “*”; #设成当前访问的，一天之前修改的
my $stuff = “Howdy world!”;
my $where1 = index($stuff, “w”); #$where1 得到2
my $where2 = index($stuff, “w”, $where+1); #$where 得到6
my $where3 = index($stuff, “w”, $where+1); #$where 为-1(没有找到)
my $fred = “Yabba dabba doo!”;
my $where1 = rindex($fred, “abba”); #$where1 得到7
my $where2 = rindex($fred, “abba”, $where - 1); #$where2 得到1
my $where3 =rindex($fred, “abba”, $where2-1); #$whrere3 得到-1
$part = substr($string, $initial_position, $length);
他有三个参数：一个字符串，一个从0 开始编号的初始位置（类似于index 的返回值），及子串的长度。返回值是个子串：
my $rock = substr “Fred J. Flintstone”, 13, 1000; #得到“stone”
在上例中，如果请求的长度（例子中为，1000 ）超过了字符串的长度，Perl 不会有所有抱怨信息，但得到的是个比你所希望的更短的结果。如果想明确需求到达字符串的结尾处，无论其或长或短，能像下例那样省略掉第三个参数（参数）：
my $pebble = substr “Fred J. Flintsone”, 13; #得到“stone”
初始位置能是负的，表示从字符串结尾处开始（此时，-1 表示最后一个字符）◆。在下例中，位置-3 表示倒数第三个字
符的位置，也就是字符i 的位置：
my$ $long = “some very very long string”;
my $right = substr($long, index($long, “l”));
my $string = “Hello, world!”;
substr($string, 0, 5) = “Goodbye”; # $string 目前变成了“Goodbye, world!”
除了给substr 赋值外（第一次看起来有些怪异），也能用更传统的方法◆来使用susbtr ：使用4 个参数，第四个参数是替
换的字符串：
◆按照惯例，我们的意思是“函数调用”的观点，而不是“Perl ”的观点，因为这个功能在Perl 的早期就有了。
my $previous_value = substr($string, 0, 5, “Goodbye”);
sub big_money {
my $number = sprintf “%.2f”, shift @_;
#在do-nothing 循环中，每一次加入一个逗号
1 while $number =~ s/^(-?＼d+) (＼d＼d＼d)/$1,$2/;  (#这个1，这是没有用的。顺便提一句，Perl 会优化这个常值表达式，使之不占用所有运行时间。)
#将美元符号放入合适的位置
$number =~ s/^(-?)/$1＼$/;
$number;
}
要使用一个排序子程式，将他（不使用&）放在关键字sort 和你要排序的列表之间。这个例子将一列数字按照数字顺序将
其排序，并将结果放入@result 中：
my @result = sort by_number @some_numbers;
sub by_number {$a  $b } 比较数字
sub by_char {$a cmp $b }  比较字符
my @numbers = sort { $a  $b } @some_numbers;
my @descending = reverse sort { $a  $b } @some_numbers;

这里有一个技巧。比较操作符（和cmp ）是非常“近视的”，他们不知道哪一个操作数是$a ，哪一个是$b 。他们只知道哪
一个值在左边，哪一个在右边。如果$a 和$b 交换位置，比较操作符每一次得到的结果则是相反的。这意味着另一种得到逆
序的方式：my @descending = sort {$b  $a } @some_nubmers;
因为reverse 被当作sort 的一个修饰符，特别的简写方式阻止你使用一种方式排序但得到的却是另一种结果。
==============================================================
my %score = (“barney”=>, “fred”=>205, “dino”=> 30);
my @winners = sort by_score keys %score;
实
际上并不能根据score 对hash 进行排序；这只是文字上的简写。你不能对hash 排序。我们在前面的hashes
中使用sort时，只是对hash 的keys 排序（按照字母表顺序(ASCIIbetical)排序）。目前我们将对hash 的keys
排序，其顺序由其对应的
hash 中的值决定。此时，结果是根据保龄球的成绩这三人的名字的有序列表，。
写出这个排序子程式是非常容易的。我们需要的是针对score 而不是名字，使用数字比较。不是比较$a 和$b(选手的名字)，我们想比较$score($a)和$score($b)（他们的成绩）。如果你这样思考，答案则呼之欲出，如下：
sub by_socre { $score{$b}  $score{$a}}
让我们仔细的分析他，看看他是怎么工作的。想象第一次调用他时，Perl 给$a 赋值barney ，给$b 赋值fred 。比较是$score{“fred”}
$score{“barney”}，他是（通过hash 得到）205 195
。是“近视的”，因此他发现205 在195 之前，则说：“不，这不是正确的顺序；$b 应当在$a 之前。这告诉Perl
fred 应当在barney 之前。可能下一次调用子程式时，$a 是barney ，而$b 是dino
。“近视的”数字比较符看到的是30195 ，因此报告他们是正确的顺序：$a 确实是在$b 之前。因此，barney
在dino 之前。此刻，Perl 有了足够的信息来得到列表的顺序：fred 是胜利者，barney第二名，而dino 第三。
为什么比较运算中$score{$b}在$score{$a}之前，而非别的方式？因为我们想按保龄球成绩的降序排列，从最高成绩依次向
下。你能（经过一些训练）一眼就能读懂这些代码：$score{$b}  $score{$a}的意思是根据score ，将他们按照数字逆序
排序。
my %score = {
“barney”=>95, “fred”=> 205,
“dino”=>30, “bam-bamm”=> 195;
};
bam-bamm 和barney 的成绩相同。哪一人应该排在前面呢。
my @winners = sort by_score_and_name keys %score;
sub by_score_and_name {
$score{$b}  $score{$a} #按照降序的成绩
or
$a cmp $b; #字母顺序的名字
}
============================================================================
system ‘ls ?l $HOME’;
我们这里将双引号变成了单引号，因为$HOME 是个shell 变量。否则，shell 看不到美元符号，因为Perl 会将他用值进行替换。当然，我们也能这样写：
system “ls ?l ＼$HOME”;
system‘for i in *; do echo = = $i = =; cat $i; done’;
这里，我们也是使用的单引号，因为需要美元符号对shell 有含义，而对Perl 没有。双引号允许Perl 用当前的值来替换$i而不是让shell 用他自己的值来代替。顺便说一句，这个小的shell 脚本会遍历当前目录下所有的普通文件，输出每一个文
件的名字和内容；如果不相信，你能尝试一下。
因此@name[2, 5]的含义同($names[2], $name[5])相同

               
               
               

本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/44757/showart_430531.html