OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

《Beginning Perl》读书笔记3：6~10章

原作者: [db:作者] 来自: [db:来源] 收藏邀请

声明：subfunction_name;
定义：subfunction_name {...}
函数调用同C：

- example_subroutine();或example_subroutine;
- example_subroutine('Perl is', 'my favorite', $language);或example_subroutine 'Perl is', 'my favorite', $language;
- 调用时需保证之前已有声明/定义

返回值：函数的最后一行代码可以写表达式作为返回值，例如写$total;也可以使用return语句在函数体中的任意位置返回返回值
函数内部通过@_变量访问传入参数：
Perl中按引用传参，改变输入参数将影响函数外的变量

实现默认参数值的小技巧：

sub log_warning {
my $message = shift || "Something's wrong";
my $time = shift || localtime; # Default to now.
print "[$time] $message\n";
}

实现参数命名的小技巧：
- 调用：logon(username => $name, password => $pass, host => $hostname);
- 定义：

sub logon {
die "Parameters to logon should be even" if @_ % 2;
my %args = @_;
print "Logging on to host $args{hostname}\n";
...
}

第7章：正则表达式

正则表达式以双斜线对//包裹，//中可以使用变量，变量将被代换为对应的值
正则式匹配：str =~ /re/若str匹配/re/成功为true，反之false；!~则与=~相反
/re/等价于$_ =~ /re/
进行匹配后，可以使用$1,$2,$3...获得字符串中匹配成功的子串
- 因为不知道有多少个匹配成功的子串，所以需要用defined算符一一检验$1, $2, $3是否已定义，stupid
//正则式中以下元字符(metacharacter)需要使用\转义：. * ? + [ ( ) { ^ $ | \ /
\Q可用于关闭元字符，\E用于结束\Q。\Q...\E之间的部分可自由使用上一要点中提到的元字符
锚点^表示从字符串起始处匹配，而$则表示匹配至字符串末尾结束
[]可定义字符集，例如[abc]匹配a,b或c，[0-9]匹配0,1,2,3,4,5,6,7,8,9任一。[]中使用^表达反义，即[^eo]可匹配除e,o外任意字符
几个等价：\d等价于[0-9]，\w等价于[0-9A-Za-z_]，\s等价于[ \t\n\r\f]，\D等价于[^0-9]，\W等价于[^0-9A-Za-z_]，\S等价于[^ \t\n\r\f]，.等价于任意字符（换行符除外）
|可用于表示或，例如yes|maybe可匹配yes或maybe，ye(s|t)匹配yes或yet
?意味?前面的记号出现0或1次，例如(word )?is可匹配word is和is
+则为1次及1次以上，*为任意次（包含0次）
- /bea?t/匹配beat和bet
- /bea+t/匹配beat, beaat, beaaat...
- /bea*t/匹配bet, beat, beaat, beaaat...
{}则可以定义具体的出现次数，例如\s{2,3}可匹配2个空格，也可匹配3个空格。{x}代表x次，{x,}则代表x次及x次以上
正则式匹配器的工作原则：
- 一旦匹配无法继续（下一个字符无法满足正则式定义），立即停止匹配
- 一旦匹配成功，马上结束匹配
- 遇+*?三个字符时取最长匹配，即匹配至无法匹配时再匹配之后的正则式与字符串
- 最近分支原则：若存在分支匹配（例如[a-z]或ye(s|t)这种情况）则从前向后依次尝试，若尝试失败则取下一个，直到成功匹配或所有情况匹配失败
使用正则式进行替换：str =~ s/find/replace/;可用于将str中满足find模式的首个子串替换为replace，若不指定str，执行s/find/replace/;为对$_操作，在末尾加g修饰符可替换所有子串

$_ = "Awake! Awake! Fear, Fire, Foes! Awake! Fire, Foes! Awake!";
s/Foes/Flee/;
print $_,"\n";
输出：
Awake! Awake! Fear, Fire, Flee! Awake! Fire, Foes! Awake!

$_ = "there are two major products that come out of Berkeley: LSD and UNIX";
s/(\w+)\s+(\w+)/$2 $1/g;
print $_, "?\n";
输出：
are there major two that products out come Berkeley of: and LSD UNIX?

类似q//和qq//，//和s///也可以使用别的分隔符，当在匹配（//）中使用其他分隔符时，需要使用m作为前缀，例如m/^\s*[A-Z]/;m#^\s*[A-Z]#;m{^\s*[A-Z]};等，而s/old text/new text/g;则可以写为s{old text}{new text}g;也可以出于清晰写为：

s{old text}
{new text}g;

再如s/\/usr\/local\/share\//\/usr\/share\//g;可写为s#/usr/local/share/#/usr/share/#g;

修饰符

/m将字符串作为多行字符串处理，在这种情况下^$不再分别匹配单词首尾，而是匹配行首行尾
/s将字符串作为单行字符串处理，此时.匹配包括换行符在内的所有字符
/g：匹配时若有多个可匹配子串则全部匹配；替换时则替换所有可匹配子串，使用此修饰符时可使用\G锚点匹配最后一个可匹配子串的最后一个字符位置
/x允许以多行方式书写正则式，且可以添加注释

split(re, str)将str按照re分为多个子串，返回包含这些子串的列表。不指定str则默认对$_操作。例如split /:/, “kake:x:10018:10020::/home/kake:/bin/bash”可得(“kake”, “x”, “10018”, “10020”, “”, “/home/kake”, “/bin/bash”)
join(str, list)可用str将list中各个元素连接为一个字符串，并返回这个字符串，例如join “#”, (“kake”, “x”, “10018”, “10020”, “”, “/home/kake”, “/bin/bash”)可得“kake:x:10018:10020::/home/kake:/bin/bash”

第8章：文件与数据

打开文件：open(filehandle, mode, filename)例如open(FH, '<', 'input.txt')

打开成功时返回true，反之false
也可以写作open(FH, '< input.txt')

访问模式：>写 <读 >>追加
close(filehandle)用于关闭文件句柄，例如close(FH);
标量读入：my $line = <FH>，读入一行
列表读入：my @list = <FH>，读入所有行，每行为一个列表元素
特殊文件句柄：<>（称为“钻石运算符”）

当未在命令行参数中指定输入文件时，为<STDIN>
否则为指定的文件句柄。可指定多个文件，按指定顺序逐个打开、逐行读取

@ARGV为存储命令行参数的字符串数组，例如以perl argv1.pl king crimson rocks运行时@ARGV为(‘king’, ‘crimson’, ‘rocks’)
<>本质上就是用@ARGV实现的。$ARGV为<>当前文件句柄指向文件的文件名
print FH list可以向FH指向的文件中输出list
$|变量设置是否使用OS的输出缓冲区，默认为0（使用），设为1后不使用
管道：将上一个程序的STDOUT输出接入：open(FH, '-|', command);例如open(FH, '-|', 'perl sort2.pl gettysburg.txt');
管道：将当前程序的STDOUT输出接入下个程序的STDIN：open(SORT, '|-', command);例如open(SORT, '|-', 'perl sort2.pl');
管道：可使用IPC::Open2建立双向管道（未详述）
lc(str)将字符串str中字母转换为小写后输出，uc(str)则转换为大写
类似shell的文件测试：(-operator $file)，operator包括：

e $file存在时为true
f $file为文件（不是目录）时为true
d $file为目录时为true
z $file大小为0时为true
s $file大小不为0时为true
r $file可读时为true
w $file可写时为true
x $file可执行时为true
o $file为当前用户拥有时为true

第9章：字符串处理

length(str)返回str的长度
index(str, substr)返回str中substr第一次出现时的下标，substr不存在时返回-1

index(str, substr, mindex)指定从mindex开始查找

rindex(str, substr)返回str中substr最后一次出现时的下标，不存在时返回-1

rindex(str, substr, mindex)指定从mindex开始查找

substr(string, starting_index, length)返回string中从starting_index开始取length长度的子串
tr///用于字符替换，例如tr/old/new/将会建立如下字符替换规则：o->n, l->e, d->w，例如$string = ‘2011064’，而执行$string =~ tr/0123456789/abcdefghij/;或$string =~ tr/0-9/a-j/;后，$string变为‘cabbage’

d修饰符用于删除字符，例如my $vowels = $string =~ tr/aeiou//;并不能删除$string中的元音字母，而my $vowels = $string =~ tr/aeiou//d;就可以。再例如$string =~ tr/ //d;可删除$string中的所有空格

第10章：OS交互

%ENV保存了所有环境变量（改变%ENV并不能真正改变系统环境变量设置），例如$ENV{HOME}，$ENV{PATH}，$ENV{USER}等
文件通配符：glob(pattern)函数用以返回下一个满足pattern的文件名，例如glob(‘*.pl’)，等价于<*.pl>，表示所有扩展名为pl的文件。

while (glob('*.dat')) {
print "found a data file: $_\n";
}

可以使用opendir打开一个目录，通过readdir函数读取其中包含的文件，closedir关闭：

opendir DH, "." or die "Couldn't open the current directory: $!";
while ($_ = readdir(DH)) { … }
closedir DH;

以下函数与UNIX API相同或类似，可参照APUE（《UNIX环境高级编程》）
system()函数将执行命令的输出打印至控制台（STDOUT），返回进程的执行结果（个人推断：main函数的返回值）。而使用`command`则可将输出捕获，例如：
- $output = `$command`;将$command执行的输出保存至字符串$output，包括换行符
- @output = `$command`;将$command执行的输出保存至列表@output，每行一个元素，包括换行符