版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

应助: 0 (幼儿园)
贵宾: 16.6
金币: 13289.9
红花: 4
帖子: 4967
在线: 10.3小时
虫号: 56231
注册: 2005-01-07
专业: 金属有机化学

[交流] perl 5 教程连载

第一章概述

一、Perl是什么?
　　 Perl是Practical Extraction and Report Language的缩写，它是由Larry Wall设计的，并由他不断更新和维护，用于在UNIX环境下编程。
　　 .Perl具有高级语言（如C）的强大能力和灵活性。事实上，你将看到，它的许多特性是从C语言中借用来的。
　　 .与脚本语言一样，Perl不需要编译器和链接器来运行代码，你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创建原型来测试潜在的解决方案是十分理想的。
　　 .Perl提供脚本语言（如sed和awk）的所有功能，还具有它们所不具备的很多功能。Perl还支持sed到Perl及awd到Perl的翻译器。
　　简而言之，Perl象C一样强大，象awk、sed等脚本描述语言一样方便。
二、Perl在哪里?
　　 Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免费得到它，如ftp://prep.ai.mit.edu/pub/gnu/perl-5.004.tar.gz。
　　安装过程为：
　　 (1)解压：
　　 $gunzip perl-5.004.tar.gz
　　 $tar xvf - 　　 (2)编译：
　　 $make makefile
　　 (3)放置：
　　将编译生成的可执行文件拷贝到可执行文件通常所在目录，如：
　　 $copy /usr/local/bin/perl
　　注：这需要系统管理员权限。

北美
地址目录
ftp.netlabs.comIP地址：192.94.48.152
目录 /pub/outgoing/perl5.0
ftp.cis.ufl.eduIP地址： 128.227.100.198
目录 /pub/perl/src/5.0
ftp.uu.netIP地址： 192.48.96.9
目录 /languages/perl
ftp.khoros.unm.eduIP地址： 198.59.155.28
目录 /pub/perl
ftp.cbi.tamucc.eduIP地址： 165.95.1.3
目录 /pub/duff/Perl
ftp.metronet.comIP地址： 192.245.137.1
目录 /pub/perl/sources
genetics.upenn.eduIP地址： 128.91.200.37
目录 /perl5

欧洲
SiteLocation
ftp.cs.ruu.nlIP地址： 131.211.80.17
目录 /pub/PERL/perl5.0/src
ftp.funet.fiIP地址： 128.214.248.6
目录 /pub/languages/perl/ports/perl5
ftp.zrz.tu-berlin.deIP地址： 130.149.4.40
目录 /pub/unix/perl
src.doc.ic.ac.ukIP地址： 146.169.17.5
目录 /packages/perl5

澳洲

SiteLocation
sungear.mame.mu.oz.auIP地址： 128.250.209.2
目录 /pub/perl/src/5.0

南美
SiteLocation
ftp.inf.utfsm.clIP地址： 146.83.198.3
目录 /pub/gnu

三、运行
　　用文本编辑器编辑好你的Perl程序，加上可执行属性：$chmod +x 就可以执行了：$./。如果系统提示："/usr/local/bin/perl not found"，则说明你没有安装成功，请重新安装。
注：你的程序的第一行必须为#!/usr/local/bin/perl（perl所在位置）。
四、注释：
　　注释的方法为在语句的开头用字符#，如：
　　 # this line is a comment
　　注：建议经常使用注释使你的程序易读，这是好的编程习惯。
第二章简单变量
基本上，简单变量就是一个数据单元，这个单元可以是数字或字符串。
一、整型
1、整型
  PERL最常用的简单变量，由于其与其它语言基本相同，不再赘述。
　例：
　$x = 12345;
　if (1217 + 116 == 1333) {
　# statement block goes here
　}
  整型的限制：
　PERL实际上把整数存在你的计算机中的浮点寄存器中，所以实际上被当作浮点数看待。在多数计算机中，浮点寄存器可以存贮约16位数字，长于此的被丢弃。整数实为浮点数的特例。
2、8进制和16进制数
  8进制以0打头，16进制以0x打头。
  例：$var1 = 047; (等于十进制的39)
  $var2 = 0x1f; (等于十进制的31)
二、浮点数
  如 11.4 、 -0.3 、.3 、 3. 、 54.1e+02 、 5.41e03
  浮点寄存器通常不能精确地存贮浮点数，从而产生误差，在运算和比较中要特别注意。指数的范围通常为-309到+308。
  例：

  #!/usr/local/bin/perl
  $value = 9.01e+21 + 0.01 - 9.01e+21;
  print ("first value is ", $value, "\n"

;
$value = 9.01e+21 - 9.01e+21 + 0.01;
print ("second value is ", $value, "\n"

;

  ---------------------------------------------------------

  $ program3_3
  first value is 0
  second value is 0.01
三、字符串
  惯用C的程序员要注意，在PERL中，字符串的末尾并不含有隐含的NULL字符，NULL字符可以出现在串的任何位置。
. 双引号内的字符串中支持简单变量替换，例如：
  $number = 11;
  $text = "This text contains the number $number.";
  则$text的内容为："This text contains the number 11."

.双引号内的字符串中支持转义字符
Table 3.1. Escape sequences in strings.
Escape SequenceDescription
\aBell (beep)
\bBackspace
\cnThe Ctrl+n character
\eEscape
\EEnds the effect of \L, \U or \Q
\fForm feed
\lForces the next letter into lowercase
\LAll following letters are lowercase
\nNewline
\rCarriage return
\QDo not look for special pattern characters
\tTab
\uForce next letter into uppercase
\UAll following letters are uppercase
\vVertical tab

\L、\U、\Q功能可以由\E关闭掉，如：
$a = "T\LHIS IS A \ESTRING"; # same as "This is a STRING"

.要在字符串中包含双引号或反斜线，则在其前加一个反斜线，反斜线还可以取消变量替换，如：
  $res = "A quote \" and A backslash \\";
  $result = 14;
  print ("The value of \$result is $result.\n"

的结果为：
  The value of $result is 14.

.可用\nnn(8进制)或\xnn(16进制)来表示ASCII字符，如：
  $result = "\377"; # this is the character 255,or EOF
  $result = "\xff"; # this is also 255

.单引号字符串
  单引号字符串与双引号字符串有两个区别，一是没有变量替换功能，二是反斜线不支持转义字符，而只在包含单引号和反斜线时起作用。单引号另一个特性是可以跨多行，如：
  $text = 'This is two
  lines of text
  ';
  与下句等效：
  $text = "This is two\nlines of text\n";

.字符串和数值的互相转换
  例1：
  $string = "43";
  $number = 28;
  $result = $string + $number; # $result = 71
  若字符串中含有非数字的字符，则从左起至第一个非数字的字符，如：
  $result = "hello" * 5; # $result = 0
  $result = "12a34" +1; # $result = 13

.变量初始值
  在PERL中，所有的简单变量都有缺省初始值：""，即空字符。但是建议给所有变量赋初值，否则当程序变得大而复杂后，很容易出现不可预料且很难调试的错误。（未完）

[ Last edited by 幻影无痕 on 2006-11-12 at 08:31 ]

回复此楼

» 收录本帖的淘帖专辑推荐

先进材料与分子模拟

perl语言专栏

» 猜你喜欢

寻求一种能扛住强氧化性腐蚀性的容器密封件已经有7人回复
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗已经有8人回复
申请2026年博士已经有6人回复
请问哪里可以有青B申请的本子可以借鉴一下。已经有5人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有5人回复
2025冷门绝学什么时候出结果已经有7人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有6人回复
Bioresource Technology期刊，第一次返修的时候被退回好几次了已经有7人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复

1楼2005-06-14 19:15:17

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

应助: 0 (幼儿园)
贵宾: 16.6
金币: 13289.9
红花: 4
帖子: 4967
在线: 10.3小时
虫号: 56231
注册: 2005-01-07
专业: 金属有机化学

★
yuefour(金币+1):辛苦了

第十一章　文件系统
　本章所讲的函数多数使用了UNIX操作系统的特性，在非UNIX系统中，一些函数可能没有定义或有不同的工作方式，使用时请查看Perl联机文档。
一、文件输入/输出函数
　本节讲述从文件中读取信息和向文件写入信息的内置库函数。
1、基本I/O函数
　一些I/O函数在前面的章节中已有讲述，如

open：允许程序访问文件
close：终止文件访问
print：文件写入字符串
write：向文件写入格式化信息
printf：格式化字符串并输出到文件
　这里简单回顾一下，再讲一些前面未提到的函数。
1)open函数
　 open函数将文件变量与某文件联系起来，提供访问文件的接口，例如：open(MYVAR, "/u/file"); 如果文件打开成功，则返回非零值，否则返回零。缺省地，open打开文件用以读取其内容，若想打开文件以写入内容，则在文件名前加个大于号：open(MYVAR, ">/u/file"); 向已有的文件末尾添加内容用两个大于号：open(MYVAR, ">>/u/file"); 若想打开文件作为数据导向的命令，则在命令前加上管道符(|)：open(MAIL, "|mail dave");
2)用open重定向输入
　可以把打开的文件句柄用作向程序输入数据的命令，方法是在命令后加管道符(|)，如：
　 open(CAT, "cat file*|");
　对open的调用运行命令cat file* ，此命令创建一个临时文件，这个文件的内容是所有以file打头的文件的内容连接而成，此文件看作输入文件，可用文件变量CAT访问，如：
　 $input = ;
　下面的例子使用命令w的输出来列出当前登录的所有用户名。

1 : #!/usr/local/bin/perl
2 :
3 : open (WOUT, "w|");
4 : $time = ;
5 : $time =~ s/^ *//;
6 : $time =~ s/ .*//;
7 : ; # skip headings line
8 : @users = ;
9 : close (WOUT);
10: foreach $user (@users) {
11:　 $user =~ s/ .*//;
12: }
13: print ("Current time: $time");
14: print ("Users logged on:\n");
15: $prevuser = "";
16: foreach $user (sort @users) {
17:　 if ($user ne $prevuser) {
18:　　 print ("\t$user");
19:　　 $prevuser = $user;
20:　 }
21: }
　结果输出如下：

Current time: 4:25pm
Users logged on:
  dave
  kilroy
  root
  zarquon
　 w命令列出当前时间、系统负载和登录的用户，以及每个用户的作业时间和当前运行的命令，如：

  4:25pm　up 1 day,　6:37,　6 users,　load average: 0.79, 0.36, 0.28
User　　 tty　　　 login@　idle　 JCPU　 PCPU what
dave　　 ttyp0　　 2:26pm　　　　　 27　　　3 w
kilroy　 ttyp1　　 9:01am　2:27　 1:04　　 11 -csh
kilroy　 ttyp2　　 9:02am　　43　 1:46　　 27 rn
root　　 ttyp3　　 4:22pm　　 2　　　　　　　 -csh
zarquon　ttyp4　　 1:26pm　　 4　　 43　　 16 cc myprog.c
kilroy　 ttyp5　　 9:03am　　　　 2:14　　 48 /usr/games/hack

　上例中从w命令的输出中取出所需的信息：当前时间和登录的用户名。第3行运行w命令，此处对open的调用指定w的输出用作程序的输入，用文件变量WOUT来访问该输入。第4行读取第一行信息，即：
　 4:25pm up 1 day, 6:37, 6 users, load average: 0.79, 0.36, 0.28
　接下来的两行从这行中抽取出时间。首先，第5行删除起始的空格，然后第6行删去除时间和结尾换行符之间的所有字符，存入变量$time。
　第7行从WOUT读取第二行，这行中无有用信息，故不作处理。第8行把剩下的行赋给数组@users，然后第9行关闭WOUT，终止运行w命令的进程。
　 @users中的每个元素都是一行用户信息，因为本程序只需要每行的第一个单词，即用户名，故10~12行去掉除换行符外的其它字符，这一循环结束后，@users中只剩下用户名的列表。
　第13行输出存贮在$time中的时间，注意这时print不需要加上换行符，因为$time中有。16~21行对@users中的用户名排序并输出。因为同一个用户可以多次登录，所以用$preuser存贮输出的最后一个用户名，下次输出数组元素$user时，如果其与$preser相等，则不输出。
3)文件重定向
　许多UNIX shell可以把标准输出文件(STDOUT)和标准错误文件(STDERR)都重定向到同一个文件，例如在Bourne Shell（sh）中，命令
　 $ foo > file1 2>&1
　运行命令foo并把输出到标准输出文件和标准错误文件的内容存贮到文件file1中。下面是用Perl实现这一功能的例子：

1: #!/usr/local/bin/perl
2:
3: open (STDOUT, ">file1") || die ("open STDOUT failed");
4: open (STDERR, ">&STDOUT") || die ("open STDERR failed");
5: print STDOUT ("line 1\n");
6: print STDERR ("line 2\n");
7: close (STDOUT);
8: close (STDERR);
　运行后，文件file1中的内容为：
　　line 2
　　line 1
　可以看到，这两行并未按我们想象的顺序存贮，为什么呢？我们来分析一下这段程序。
　第3行重定向标准输出文件，方法是打开文件file1将它与文件变量STDOUT关联，这也关闭了标准输出文件。第4行重定向标准错误文件，参数>&STDOUT告诉Perl解释器使用已打开并与STDOUT关联的文件，即文件变量STDERR指向与STDOUT相同的文件。第5、6行分别向STDOUT和STDERR写入数据，因为这两个文件变量指向同一个文件，故两行字符串均写到文件file1中，但顺序却是错误的，怎么回事呢？
　问题在于UNIX对输出的处理上。当使用print（或其它函数）写入STDOUT等文件时，UNIX操作系统真正所做的是把数据拷贝到一片特殊的内存即缓冲区中，接下来的输出操作继续写入缓冲区直到写满，当缓冲区满了，就把全部数据实际输出。象这样先写入缓冲区再把整个缓冲区的内容输出比每次都实际输出所花费的时间要少得多，因为一般来说，I/O比内存操作慢得多。
　程序结束时，任何非空的缓冲区都被输出，然而，系统为STDOUT和STDERR分别维护一片缓冲区，并且先输出STDERR的内容，因此存贮在STDERR的缓冲区中的内容line 2出现在存贮在STDOUT的缓冲区中的内容line 1之前。
　为了解决这个问题，可以告诉Perl解释器不对文件使用缓冲，方法为：
　　1、用select函数选择文件
　　2、把值1赋给系统变量$|
　系统变量$|指定文件是否进行缓冲而不管其是否应该使用缓冲。如果$|为非零值则不使用缓冲。$|与系统变量$~和$^协同工作，当未调用select函数时，$|影响当前缺省文件。下例保证了输出的次序：

1 : #!/usr/local/bin/perl
2 :
3 : open (STDOUT, ">file1") || die ("open STDOUT failed");
4 : open (STDERR, ">&STDOUT") || die ("open STDERR failed");
5 : $| = 1;
6 : select (STDERR);
7 : $| = 1;
8 : print STDOUT ("line 1\n");
9 : print STDERR ("line 2\n");
10: close (STDOUT);
11: close (STDERR);
　程序运行后，文件file1中内容为：
　　line 1
　　line 2
　第5行将$|赋成1，告诉Perl解释器当前缺省文件不进行缓冲，因为未调用select，当前的缺省文件为重定向到文件file1的STDOUT。第6行将当前缺省文件设为STDERR，第7行又设置$|为1，关掉了重定向到file1的标准错误文件的缓冲。由于STDOUT和STDERR的缓冲均被关掉，向其的输出立刻被写到文件中，因此line 1出现在第一行。
4)指定读写权限
　打开一个既可读又可写的文件方法是在文件名前加上"+>"，如下：
　　open (READWRITE, "+>file1");
　此语句打开既可读又可写的文件file1，即可以重写其中的内容。文件读写操作最好与库函数seek和tell一起使用，这样可以跳到文件任何一点。
　注：也可用前缀"+<"指定可读写权限。
5)close函数
　用于关闭打开的文件。当用close关闭管道，即重定向的命令时，程序等待重定向的命令结束，如：
　　open (MYPIPE, "cat file*|");
　　close (MYPIPE);
　当关闭此文件变量时，程序暂停运行，直到命令cat file*运行完毕。
6)print, printf和write函数
　 print是这三个函数中最简单的，它向指定的文件输出，如果未指定，则输出到当前缺省文件中，如：
　　print ("Hello, there!\n");
　　print OUTFILE ("Hello, there!\n");
　第一句输出到当前缺省文件中，若未调用select，则为STDOUT。第二句输出到由文件变量OUTFILE指定的文件中。
　 printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如：
　　printf OUTFILE (“You owe me %8.2f", $owing);
　此语句取出变量$owing的值并替换掉串中的%8.2f，%8.2f是域格式的例子，把$owing的值看作浮点数。
　 write函数使用输出格式把信息输出到文件中，如：
　　select (OUTFILE);
　　$~ = "MYFORMAT";
　　write;
　关于printf和write，详见《第x章格式化输出》。
7)select函数
　 select函数将通过参数传递的文件变量指定为新的当前缺省文件，如：
　　select (MYFILE);
　这样，MYFILE就成了当前缺省文件，当对print、write和printf的调用未指定文件时，就输出到MYFILE中。
8)eof函数
　 eof函数查看最后一次读文件操作是否为文件最后一个记录，如果是，则返回非零值，如果文件还有内容，返回零。
　一般情况下，对eof的调用不加括号，因为eof和eof()是等效的，但与<>操作符一起使用时，eof和eof()就不同了。现在我们来创建两个文件，分别叫做file1和file2。file1的内容为：
　　This is a line from the first file.
　　Here is the last line of the first file.
　 file2的内容为：
　　This is a line from the second and last file.
　　Here is the last line of the last file.
　下面就来看一下eof和eof()的区别，第一个程序为：

1: #!/usr/local/bin/perl
2:
3: while ($line = <>) {
4:　 print ($line);
5:　 if (eof) {
6:　　 print ("-- end of current file --\n");
7:　 }
8: }
　运行结果如下：

$ program file1 file2
This is a line from the first file.
Here is the last line of the first file.
-- end of current file --
This is a line from the second and last file.
Here is the last line of the last file.
-- end of current file --
$
　下面把eof改为eof()，第二个程序为：

1: #!/usr/local/bin/perl
2:
3: while ($line = <>) {
4:　 print ($line);
5:　 if (eof()) {
6:　　 print ("-- end of output --\n");
7:　 }
8: }
　运行结果如下：

$ program file1 file2
This is a line from the first file.
Here is the last line of the first file.
This is a line from the second and last file.
Here is the last line of the last file.
-- end of output --$
　这时，只有所有文件都读过了，eof()才返回真，如果只是多个文件中前几个的末尾，返回值为假，因为还有要读取的输入。
9)间接文件变量
　对于上述各函数open, close, print, printf, write, select和eof，都可以用简单变量来代替文件变量，这时，简单变量中所存贮的字符串就被看作文件变量名，下面就是这样一个例子，此例很简单，就不解释了。需要指出的是，函数open, close, write, select和eof还允许用表达式来替代文件变量，表达式的值必须是字符串，被用作文件变量名。

1: #!/usr/local/bin/perl
2:
3: &open_file("INFILE", "", "file1");
4: &open_file("OUTFILE", ">", "file2");
5: while ($line = &read_from_file("INFILE")) {
6:　 &print_to_file("OUTFILE", $line);
7: }
8:
9: sub open_file {
10:　 local ($filevar, $filemode, $filename) = @_;
11:
12:　 open ($filevar, $filemode . $filename) ||
13:　　 die ("Can't open $filename");
14: }
15: sub read_from_file {
16:　 local ($filevar) = @_;
17:
18:　 <$filevar>;
19: }
20: sub print_to_file {
21:　 local ($filevar, $line) = @_;
22:
23:　 print $filevar ($line);
24: }
2、跳过和重读数据

函数名seek
调用语法seek (filevar, distance, relative_to);
解说在文件中向前/后移动，有三个参数：
1、filevar，文件变量
2、distance，移动的字节数，正数向前移动，负数往回移动
3、reletive_to，值可为0、1或2。为0时，从文件头开始移动，为1时，相对于当前位置（将要读的下一行）移动，为2时，相对于文件末尾移动。
运行成功返回真（非零值），失败则返回零，常与tell函数合用。

函数名tell
调用语法tell (filevar);
解说返回从文件头到当前位置的距离。
注意：
1、seek和tell不能用于指向管道的文件变量。
2、seek和tell中文件变量参数可使用表达式。

3、系统读写函数

函数名read
调用语法read (filevar, result, length, skipval);
解说read函数设计得与UNIX的fread函数等效，可以读取任意长度的字符（字节）存入一个简单变量。其参数有四个：
1、filevar：文件变量
2、result：存贮结果的简单变量（或数组元素）
3、length：读取的字节数
4、skipval：可选项，指定读文件之前跳过的字节数。
返回值为实际读取的字节数，如果已到了文件末尾，则返回零，如果出错，则返回空串。

函数名sysread
调用语法sysread (filevar, result, length, skipval);
解说更快的读取数据，与UNIX函数read等效，参数与read相同。

函数名syswrite
调用语法syswrite (filevar, data, length, skipval);
解说更快的写入数据，与UNIX函数write等效，参数：
1、filevar：将要写入的文件
2、data：存贮要写入数据的变量
3、length：要写入的字节数
4、skipval写操作之前跳过的字节数。

4、用getc读取字符

函数名getc
调用语法$char = getc (infile);
解说从文件中读取单个字符。

5、用binmode读取二进制文件

函数名binmode
调用语法binmode (filevar);
解说当你的系统（如类DOS系统）对文本文件和二进制文件有所区别时使用。必须在打开文件后、读取文件前使用。

二、目录处理函数
函数名mkdir
调用语法mkdir (dirname, permissions);
解说创建新目录，参数为：
1、dirname：将要创建的目录名，可以为字符串或表达式
2、permissions：8进制数，指定目录的访问权限，其值和意义见下表，权限的组合方法为将相应的值相加。

值权限
4000　运行时设置用户ID　
2000运行时设置组ID
1000粘贴位
0400拥有者读权限
0200拥有者写权限
0100拥有者执行权限
0040组读权限
0020组写权限
0010组执行权限
0004所有人读权限
0002所有人写权限
0001所有人执行权限

函数名chdir
调用语法chdir (dirname);
解说改变当前工作目录。参数dirname可以为字符串，也可以为表达式。

函数名opendir
调用语法opendir (dirvar, dirname);
解说打开目录，与下面几个函数合用，可查看某目录中文件列表。参数为：
1、dirvar：目录变量，与文件变量类似
2、dirname：目录名，可为字符串或表达式
成功返回真值，失败返回假。
注：程序中可用同名的目录变量和文件变量，根据环境确定取成分。

函数名closedir
调用语法closedir (mydir);
解说关闭打开的目录。

函数名readdir
调用语法readdir (mydir);
解说赋给简单变量时，每次赋予一个文件或子目录名，对数组则赋予全部文件和子目录名。

函数名telldir
调用语法location = telldir (mydir);
解说象在文件中前后移动一样，telldir和下面的seekdir用于在目录列表中前后移动。

函数名seekdir
调用语法seekdir(mydir, location);
解说location必须为telldir返回的值。

函数名rewinddir
调用语法rewinddir (mydir);
解说将读取目录的位置重置回开头，从而可以重读目录列表。

函数名rmdir
调用语法rmdir (dirname);
解说删除空目录。成功则返回真（非零值），失败返回假（零值）。

三、文件属性函数
1、文件重定位函数

函数名rename
调用语法rename (oldname, newname);
解说改变文件名或移动到另一个目录中，参数可为字符串或表达式。

函数名unlink
调用语法num = unlink (filelist);
解说删除文件。参数为文件名列表，返回值为实际删除的文件数目。
此函数之所以叫unlink而不叫delete是因为它实际所做的是删除文件的链接。

2、链接和符号链接函数

函数名link
调用语法link (newlink, file);
解说创建现有文件的链接--硬链接，file是被链接的文件，newlink是被创建的链接。
成功返回真，失败返回假。
当删除这两个链接中的一个时，还可以用另一个来访问该文件。

函数名symlink
调用语法symlink (newlink, file);
解说创建现有文件的符号链接，即指向文件名，而不是指向文件本身。参数和返回值同上。
当原文件被删除（如：被unlinke函数删除），则被创建链接不可用，除非再创建一个与原被链接的文件同名的文件。

函数名readlink
调用语法filename = readlink (linkname);
解说如果linkname为符号链接文件，返回其实际指向的文件。否则返回空串。

3、文件许可权函数

函数名chmod
调用语法chmod (permissions, filelist);
解说改变文件的访问权限。参数为：
1、permissions为将要设置的权限，其含义见上述mkdir中权限表
2、filelist为欲改变权限的文件列表

函数名chown
调用语法chown (userid, groupid, filelist);
解说改变文件的属主，有三个参数：
1、userid：新属主的(数字)ID号
2、groupid：新的组(数字)ID号，-1为保留原组
3、filelist：欲改变属主的文件列表

函数名umask
调用语法oldmaskval = umask (maskval);
解说设置文件访问权限掩码，返回值为当前掩码。

4、其它属性函数

函数名truncate
调用语法truncate (filename, length);
解说将文件的长度减少到length字节。如果文件长度已经小于length，则不做任何事。其中filename可以为文件名，也可以为文件变量

函数名stat
调用语法stat (file);
解说获取文件状态。参数file可为文件名也可为文件变量。返回列表元素依次为：

文件所在设备
内部参考号(inode)
访问权限
硬链接数
属主的(数字)ID
所属组的(数字)ID
设备类型（如果file是设备的话）
文件大小（字节数）
最后访问时间
最后修改时间最后改变状态时间
I/O操作最佳块大小
分配给该文件的块数

函数名lstat
调用语法lstat (file);
解说与stat类似，区别是将file看作是符号链接。

函数名time
调用语法currtime = time();
解说返回从1970年1月1日起累计秒数。

函数名gmtime
调用语法timelist = gmtime (timeval);
解说将由time, stat 或 -A 和 -M 文件测试操作符返回的时间转换成格林威治时间。返回列表元素依次为：

秒
分钟
小时，0~23
日期
月份，0~11(一月~十二月)
年份
星期，0~6(周日~周六)
一年中的日期，0~364
是否夏令时的标志
详见UNIX的gmtime帮助。

函数名localtime
调用语法timelist = localtime (timeval);
解说与gmtime类似，区别为将时间值转换为本地时间。

函数名utime
调用语法utime (acctime, modtime, filelist);
解说改变文件的最后访问时间和最后更改时间。例如：
$acctime = -A "file1";
$modtime = -M "file1";
@filelist = ("file2", "file3");
utime ($acctime, $modtime, @filelist);

函数名fileno
调用语法filedesc = fileno (filevar);
解说返回文件的内部UNIX文件描述。参数filevar为文件变量。

函数名fcntl
flock
调用语法fcntl (filevar, fcntlrtn, value);
flock (filevar, flockop);
解说详见同名UNIX函数帮助。

四、使用DBM文件
　Perl中可用关联数组来访问DBM文件，所用函数为dbmopen和dbmclose，在Perl5中，已用tie和untie代替。
函数名dbmopen
调用语法dbmopen (array, dbmfilename, permissions);
解说将关联数组与DBM文件相关联。参数为：
1、array：所用关联数组
2、dbmfilename：将打开的DBM文件名
3、访问权限，详见mkdir

函数名dbmclose
调用语法dbmclose (array);
解说关闭DBM文件，拆除关联数组与之的关系。
第十二章 Perl5中的引用/指针
一、引用简介
　引用就是指针，可以指向变量、数组、哈希表（也叫关联数组）甚至子程序。Pascal或C程序员应该对引用（即指针）的概念很熟悉，引用就是某值的地址，对其的使用则取决于程序员和语言的规定。在Perl中，可以把引用称为指针，二者是通用的，无差别的。引用在创建复杂数据方面十分有用。
　 Perl5中的两种引用类型为硬引用和符号引用。符号引用含有变量的名字，它对运行时创建变量名并定位很有用，基本上，符号引用就象文件名或UNIX系统中的软链接。而硬引用则象文件系统中的硬链接。
　 Perl4只允许符号引用，给使用造成一些困难。例如，只允许通过名字对包的符号名哈希表（名为_main{}）建立索引。Perl5则允许数据的硬引用，方便多了。
　硬引用跟踪引用的计数，当其数为零时，Perl自动将被引用的项目释放，如果该项目是对象，则析构释放到内存池中。Perl本身就是个面向对象的语言，因为Perl中的任何东西都是对象，包和模块使得对象更易于使用。
　简单变量的硬引用很简单，对于非简单变量的引用，你必须显式地解除引用并告诉其应如何做，详见《第章Perl中的面向对象编程》。
二、使用引用
　本章中，简单变量指像$pointer这样的变量，$pointer仅含一个数据项，其可以为数字、字符串或地址。
　任何简单变量均可保存硬引用。因为数组和哈希表含有多个简单变量，所以可以建立多种组合而成的复杂的数据结构，如数组的数组、哈希表的数组、子程序的哈希表等等。只要你理解其实只是在用简单变量在工作，就应该可以正确的在最复杂的结构中正确地解除引用。
　首先来看一些基本要点。
　如果$pointer的值为一个数组的指针，则通过形式@$pointer来访问数组中的元素。形式@$pointer的意义为“取出$pointer中的地址值当作数组使用”。类似的，%$pointer为指向哈希表中第一个元素的引用。
　有多种构建引用的方法，几乎可以对任何数据建立引用，如数组、简单变量、子程序、文件句柄，以及--C程序员会感兴趣的--引用。Perl使你有能力写出把自己都搞糊涂的极其复杂的代码。:)
　下面看看Perl中创建和使用引用的方法。
三、使用反斜线(\)操作符
　反斜线操作符与C语言中传递地址的操作符&功能类似。一般是用\创建变量又一个新的引用。下面为创建简单变量的引用的例子：
　 $variavle = 22;
　 $pointer = \$variable;
　 $ice = "jello";
　 $iceprt = \$ice;
　引用$pointer指向存有$variable值的位置，引用$iceptr指向"jello"。即使最初的引用$variable销毁了，仍然可以通过$pointer访问该值，这是一个硬引用，所以必须同时销毁$pointer和$variable以便该空间释放到内存池中。
　在上面的例子中，引用变量$pointer存的是$variable的地址，而不是值本身，要获得值，形式为两个$符号，如下：

#!/usr/bin/perl
$value = 10;
$pointer = \$value;
printf "\n Pointer Address $pointer of $value \n";
printf "\n What Pointer *($pointer) points to $pointer\n";
　结果输出如下：

Pointer Address SCALAR(0x806c520) of 10
What Pointer *(SCALAR(0x806c520)) points to 10
　每次运行，输出结果中的地址会有所改变，但可以看到$pointer给出地址，而$pointer给出$variable的值。
　看一下地址的显示，SCALAR后面一串十六进制，SCALAR说明该地址指向简单变量（即标量），后面的数字是实际存贮值的地址。
　注意：指针就是地址，通过指针可以访问该地址处存贮的数据。如果指针指向了无效的地址，就会得到不正确的数据。通常情况下，Perl会返回NULL值，但不该依赖于此，一定要在程序中把所有的指针正确地初始化，指向有效的数据项。
四、引用和数组
　关于Perl语言应该记住的最重要的一点可能是：Perl中的数组和哈希表始终是一维的。因此，数组和哈希表只保存标量值，不直接存贮数组或其它的复杂数据结构。数组的成员要么是数（或字符串）要么是引用。
　对数组和哈希表可以象对简单变量一样使用反斜线操作符，数组的引用如下：

1　#!/usr/bin/perl
2　#
3　# Using Array references
4　#
5　$pointer = \@ARGV;
6　printf "\n Pointer Address of ARGV = $pointer\n";
7　$i = scalar(@$pointer);
8　printf "\n Number of arguments : $i \n";
9　$i = 0;
10 foreach (@$pointer) {
11　 printf "$i : $pointer[$i++]; \n";
12 }
　运行结果如下：

$ test 1 2 3 4
Pointer Address of ARGV = ARRAY(0x806c378)
Number of arguments : 4
0 : 1;
1 : 2;
2 : 3;
3 : 4;
　第5行将引用$pointer指向数组@ARGV，第6行输出ARGV的地址。$pointer返回数组第一个元素的地址，这与C语言中的数组指针是类似的。第7行调用函数scalar()获得数组的元素个数，该参数亦可为@ARGV，但用指针则必须用@$pointer的形式指定其类型为数组，$pointer给出地址，@符号说明传递的地址为数组的第一个元素的地址。第10行与第7行类似，第11行用形式$pointer[$i]列出所有元素。
　对关联数组使用反斜线操作符的方法是一样的--把所有关联数组名换成引用$poniter。注意数组和简单变量（标量）的引用显示时均带有类型--ARRAY和SCALAR，哈希表（关联数组）和函数也一样，分别为HASH和CODE。下面是哈希表的引用的例子。

#!/usr/bin/perl
1　#
2　# Using Associative Array references
3　#
4　%month = (
5　 '01', 'Jan',
6　 '02', 'Feb',
7　 '03', 'Mar',
8　 '04', 'Apr',
9　 '05', 'May',
10　'06', 'Jun',
11　'07', 'Jul',
12　'08', 'Aug',
13　'09', 'Sep',
14　'10', 'Oct',
15　'11', 'Nov',
16　'12', 'Dec',
17　);
18
19 $pointer = \%month;
20
21 printf "\n Address of hash = $pointer\n ";
22
23 #
24 # The following lines would be used to print out the
25 # contents of the associative array if %month was used.
26 #
27 # foreach $i (sort keys %month) {
28 # printf "\n $i $pointer ";
29 # }
30
31 #
32 # The reference to the associative array via $pointer
33 #
34 foreach $i (sort keys %$pointer) {
35　 printf "$i is $pointer \n";
36 }
　结果输出如下：

$ mth
Address of hash = HASH(0x806c52c)
01 is Jan
02 is Feb
03 is Mar
04 is Apr
05 is May
06 is Jun
07 is Jul
08 is Aug
09 is Sep
10 is Oct
11 is Nov
12 is Dec
　与数组类似，通过引用访问哈希表的元素形式为$pointer，当然，$index是哈希表的键值，而不仅是数字。还有几种访问形式，此外，构建哈希表还可以用=>操作符，可读性更好些。下面再看一个例子：

1　#!/usr/bin/perl
2　#
3　# Using Array references
4　#
5　%weekday = (
6　　'01' => 'Mon',
7　　'02' => 'Tue',
8　　'03' => 'Wed',
9　　'04' => 'Thu',
10　 '05' => 'Fri',
11　 '06' => 'Sat',
12　 '07' => 'Sun',
13　 );
14 $pointer = \%weekday;
15 $i = '05';
16 printf "\n ================== start test ================= \n";
17 #
18 # These next two lines should show an output
19 #
20　 printf '$pointer is ';
21　 printf "$pointer \n";
22　 printf '$ is ';
23　 printf "$ \n";
24　 printf '$pointer-> is ';
25
26　 printf "$pointer->\n";
27 #
28 # These next two lines should not show anything 29 #
30　 printf '$} is ';
31　 printf "$} \n";
32　 printf '$} is ';
33　 printf "$}";
34 printf "\n ================== end of test ================= \n";
35
　结果输出如下：

================== start test =================
$pointer is Fri
$ is Fri
$pointer-> is Fri
$} is
$} is
================== end of test =================
　可以看到，前三种形式的输出显示了预期的结果，而后两种则没有。当你不清楚是否正确时，就输出结果看看。在Perl中，有不明确的代码就用print语句输出来实验一下，这能使你清楚Perl是怎样解释你的代码的。
五、多维数组
　语句@array = list;可以创建数组的引用，中括号可以创建匿名数组的引用。下面语句为用于画图的三维数组的例子：
　 $line = ['solid' , 'black' , ['1','2','3'] , ['4','5','6']];
　此语句建立了一个含四个元素的三维数组，变量$line指向该数组。前两个元素是标量，存贮线条的类型和颜色，后两个元素是匿名数组的引用，存贮线条的起点和终点。访问其元素语法如下：

$arrayReference->[$index]　　 single-dimensional array
$arrayReference->[$index1][$index2]　 two-dimensional array
$arrayReference->[$index1][$index2][$index3] three-dimensional array
　可以创建在你的智力、设计经验和计算机的内存允许的情况下极尽复杂的结构，但最好对可能读到或管理你的代码的人友好一些--尽量使代码简单些。另一方面，如果你想向别人炫耀你的编程能力，Perl给你足够的机会和能力编写连自己都难免糊涂的代码。:)
　建议：当你想使用多于三维的数组时，最好考虑使用其它数据结构来简化代码。
　下面为创建和使用二维数组的例子：

1　#!/usr/bin/perl
2　#
3　# Using Multi-dimensional Array references
4　#
5　$line = ['solid', 'black', ['1','2','3'] , ['4', '5', '6']];
6　print "\$line->[0] = $line->[0] \n";
7　print "\$line->[1] = $line->[1] \n";
8　print "\$line->[2][0] = $line->[2][0] \n";
9　print "\$line->[2][1] = $line->[2][1] \n";
10 print "\$line->[2][2] = $line->[2][2] \n";
11 print "\$line->[3][0] = $line->[3][0] \n";
12 print "\$line->[3][1] = $line->[3][1] \n";
13 print "\$line->[3][2] = $line->[3][2] \n";
14 print "\n"; # The obligatory output beautifier.
　结果输出如下：

$line->[0] = solid
$line->[1] = black
$line->[2][0] = 1
$line->[2][1] = 2
$line->[2][2] = 3
$line->[3][0] = 4
$line->[3][1] = 5
$line->[3][2] = 6
　那么三维数组又如何呢？下面是上例略为改动的版本。

1　#!/usr/bin/perl
2　#
3　# Using Multi-dimensional Array references again
4　#
5　$line = ['solid', 'black', ['1','2','3', ['4', '5', '6']]];
6　print "\$line->[0] = $line->[0] \n";
7　print "\$line->[1] = $line->[1] \n";
8　print "\$line->[2][0] = $line->[2][0] \n";
9　print "\$line->[2][1] = $line->[2][1] \n";
10 print "\$line->[2][2] = $line->[2][2] \n";
11 print "\$line->[2][3][0] = $line->[2][3][0] \n";
12 print "\$line->[2][3][1] = $line->[2][3][1] \n";
13 print "\$line->[2][3][2] = $line->[2][3][2] \n";
14 print "\n";
　结果输出如下：

$line->[0] = solid
$line->[1] = black
$line->[2][0] = 1
$line->[2][1] = 2
$line->[2][2] = 3
$line->[2][3][0] = 4
$line->[2][3][1] = 5
$line->[2][3][2] = 6
　访问第三层元素的方式形如$line->[2][3][0]，类似于C语言中的Array_pointer[2][3][0]。本例中，下标均为数字，当然亦可用变量代替。用这种方法可以把数组和哈希表结合起来构成复杂的结构，如下：

1 #!/usr/bin/perl
2 #
3 # Using Multi-dimensional Array and Hash references
4 #
5 %cube = (
6 '0', ['0', '0', '0'],
7 '1', ['0', '0', '1'],
8 '2', ['0', '1', '0'],
9 '3', ['0', '1', '1'],
10 '4', ['1', '0', '0'],
11 '5', ['1', '0', '1'],
12 '6', ['1', '1', '0'],
13 '7', ['1', '1', '1']
14 );
15 $pointer = \%cube;
16 print "\n Da Cube \n";
17 foreach $i (sort keys %$pointer) {
18 $list = $pointer;
19 $x = $list->[0];
20 $y = $list->[1];
21 $z = $list->[2];
22 printf " Point $i = $x,$y,$z \n";
23 }
　结果输出如下：

Da Cube
Point 0 = 0,0,0
Point 1 = 0,0,1
Point 2 = 0,1,0
Point 3 = 0,1,1
Point 4 = 1,0,0
Point 5 = 1,0,1
Point 6 = 1,1,0
Point 7 = 1,1,1
　这是一个定义立方体的例子。%cube中保存的是点号和坐标，坐标是个含三个数字的数组。变量$list获取坐标数组的引用：$list = $ pointer; 然后访问各坐标值：$x = $list->[0]; ... 也可用如下方法给$x、$y和$z赋值：($x,$y,$z) = @$list;
　使用哈希表和数组时，用$和用->是类似的，对数组而言下面两个语句等效：
　 $names[0] = "kamran";
　 $names->[0] = "kamran";
　对哈希表而言下面两个语句等效：
　 $lastnames = "Husain";
　 $lastnames-> = "Husain";
　 Perl中的数组可以在运行中创建和扩展。当数组的引用第一次在等式左边出现时，该数组自动被创建，简单变量和多维数组也是一样。如下句，如果数组contours不存在，则被创建：
　 $contours[$x][$y][$z] = &xlate($mouseX, $mouseY);
六、子程序的引用
　 perl中子程序的引用与C中函数的指针类似，构造方法如下：
　 $pointer_to_sub = sub {... declaration of sub ...};
　通过所构造的引用调用子程序的方法为：
　 &$pointer_to_sub(parameters);

子程序模板
　子程序的返回值不仅限于数据，还可以返回子程序的引用。返回的子程序在调用处执行，但却是在最初被创建的调用处被设置，这是由Perl对Closure处理的方式决定的。Closure意即如果你定义了一个函数，它就以最初定义的内容运行。(Closure详见OOP的参考书)下面的例子中，设置了多个错误信息显示子程序，这样的子程序定义方法可用于创建模板。

#!/usr/bin/perl
sub errorMsg {
  my $lvl = shift;
  #
  # define the subroutine to run when called.
  #
  return sub {
　 my $msg = shift; # Define the error type now.
　 print "Err Level $lvl:$msg\n"; }; # print later.
  }
$severe = errorMsg("Severe");
$fatal = errorMsg("Fatal");
$annoy = errorMsg("Annoying");

&$severe("Divide by zero");
&$fatal("Did you forget to use a semi-colon?");
&$annoy("Uninitialized variable in use");
　结果输出如下：

Err Level Severe:Divide by zero
Err Level Fatal:Did you forget to use a semi-colon?
Err Level Annoying:Uninitialized variable in use
　上例中，子程序errorMsg使用了局域变量$lvl，用于返回给调用者。当errorMsg被调用时，$lvl的值设置到返回的子程序内容中，虽然是用的my函数。三次调用设置了三个不同的$lvl变量值。当errorMsg返回时，$lvl的值保存到每次被声明时所产生的子程序代码中。最后三句对产生的子程序引用进行调用时$msg的值被替换，但$lvl的值仍是相应子程序代码创建时的值。
　很混淆是吗？是的，所以这样的代码在Perl程序中很少见。
七、数组与子程序
　数组利于管理相关数据，本节讨论如何向子程序传递多个数组。前面我们讲过用@_传递子程序的参数，但是@_是一个单维数组，不管你传递的参数是多少个数组，都按序存贮在@_中，故用形如my(@a,@b)=@_; 的语句来获取参数值时，全部值都赋给了@a，而@b为空。那么怎么把一个以上的数组传递给子程序呢？方法是用引用。见下例：

#!/usr/bin/perl
@names = (mickey, goofy, daffy );
@phones = (5551234, 5554321, 666 );
$i = 0;
sub listem {
  my ($a,$b) = @_;
  foreach (@$a) {
　 print "a[$i] = " . @$a[$i] . " " . "\tb[$i] = " . @$b[$i] ."\n";
　 $i++;
  }
}
&listem(\@names, \@phones);
　结果输出如下：

a[0] = mickey　　 b[0] = 5551234
a[1] = goofy　　　b[1] = 5554321
a[2] = daffy　　　b[2] = 666

注意：
1、当想传递给子程序的参数是多于一个的数组时一定要使用引用。
2、一定不要在子程序中使用形如 (@variable)=@_; 的语句处理参数，除非你想把所有参数集中到一个长的数组中。
八、文件句柄的引用
　有时，必须将同一信息输出到不同的文件，例如，某程序可能在一个实例中输出到屏幕，另一个输出到打印机，再一个输出到记录文件，甚至同时输出到这三个文件。相比较于每种处理写一个单独的语句，可以有更好的实现方式如下：
　 spitOut(\*STDIN);
　 spitOut(\*LPHANDLE);
　 spitOut(\*LOGHANDLE);
　其中子程序spitOut的代码如下：

sub spitOut {
  my $fh = shift;
  print $fh "Gee Wilbur, I like this lettuce\n";
}
　注意其中文件句柄引用的语法为\*FILEHANDLE。

赞一下(5人)

回复此楼

6楼2005-06-14 19:18:11

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 9 个回答

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

应助: 0 (幼儿园)
贵宾: 16.6
金币: 13289.9
红花: 4
帖子: 4967
在线: 10.3小时
虫号: 56231
注册: 2005-01-07
专业: 金属有机化学

★
yuefour(金币+1):辛苦了

第三章操作符
一、算术操作符：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)
  (1)乘幂的基数不能为负，如 (-5) ** 2.5 # error；
  (2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error
  (3)取余的操作数如不是整数，四舍五入成整数后运算；运算符右侧不能为零
  (4)单目负可用于变量： - $y ; # 等效于 $y * -1
二、整数比较操作符

Table 3.1. 整数比较操作符
操作符描述
<小于
>大于
==等于
<=小于等于
>=大于等于
!=不等于
<=>比较，返回 1, 0, or -1

操作符<=>结果为：
  0 - 两个值相等
  1 - 第一个值大
  1 - 第二个值大
三、字符串比较操作符

Table 3.2. 字符串比较操作符
操作符描述　
lt 小于　
gt 大于　
eq 等于　
le 小于等于　
ge 大于等于　
ne 不等于　
cmp 比较，返回 1, 0, or -1　

四、逻辑操作符
  逻辑或：$a || $b 或 $a or $b
  逻辑与：$a && $b 或 $a and $b
  逻辑非：! $a 或 not $a
  逻辑异或：$a xor $b
五、位操作符
  位与：&
  位或：|
  位非：~
  位异或：^
  左移：$x << 1
  右移：$x >> 2
  注：不要将&用于负整数，因为PERL将会把它们转化为无符号数。
六、赋值操作符

Table 3.3. 赋值操作符
操作符描述
=Assignment only
+=Addition and assignment
-=Subtraction and assignment
*=Multiplication and assignment
/=Division and assignment
%=Remainder and assignment
**=Exponentiation and assignment
&=Bitwise AND and assignment
|=Bitwise OR and assignment
^=Bitwise XOR and assignment

Table 3.4. 赋值操作符例子
表达式等效表达式
$a = 1; none (basic assignment)
$a -= 1; $a = $a - 1;
$a *= 2; $a = $a * 2;
$a /= 2; $a = $a / 2;
$a %= 2; $a = $a % 2;
$a **= 2; $a = $a ** 2;
$a &= 2; $a = $a & 2;
$a |= 2; $a = $a | 2;
$a ^= 2; $a = $a ^ 2;

.=可在一个赋值语句中出现多次，如：
  $value1 = $value2 = "a string";
.=作为子表达式
  ($a = $b) += 3;
  等价于
  $a = $b;
  $a += 3;
  但建议不要使用这种方式。
七、自增自减操作符：++、--(与C++中的用法相同)
.不要在变量两边都使用此种操作符：++$var-- # error
.不要在变量自增/减后在同一表达式中再次使用：$var2　 = $var1 + ++$var1; # error
.在PERL中++可用于字符串，但当结尾字符为'z'、'Z'、'9'时进位，如：
  $stringvar = "abc";
  $stringvar++; # $stringvar contains "abd" now

  $stringvar = "aBC";
  $stringvar++; # $stringvar contains "aBD" now

  $stringvar = "abz";
  $stringvar++; # $stringvar now contains "aca"

  $stringvar = "AGZZZ";
  $stringvar++; # $stringvar now contains "AHAAA"

  $stringvar = "ab4";
  $stringvar++; # $stringvar now contains "ab5"

  $stringvar = "bc999";
  $stringvar++; # $stringvar now contains "bd000"
.不要使用--，PERL将先将字符串转换为数字再进行自减
  $stringvar = "abc";
  $stringvar--; # $stringvar = -1 now

.如果字符串中含有非字母且非数字的字符，或数字位于字母中，则经过++运算前值转换为数字零，因此结果为1，如：
  $stringvar = "ab*c";
  $stringvar++;
  $stringvar = "ab5c";
  $stringvar++;
八、字符串联结和重复操作符
  联接: .
  重复：x
  联接且赋值(类似+=)： .=
例：
  $newstring = "potato" . "head";
  $newstring = "t" x 5;
  $a = "be";
  $a .= "witched"; # $a is now "bewitched"
九、逗号操作符
  其前面的表达式先进行运算，如：
  $var1 += 1, $var2 = $var1;
  等价于
  $var1 += 1;
  $var2 = $var1;
  使用此操作符的唯一理由是提高程序的可读性，将关系密切的两个表达式结合在一起，如：
  $val = 26;
  $result = (++$val, $val + 5); # $result = 32
  注意如果此处没有括号则意义不同：
  $val = 26;
  $result = ++$val, $val + 5; # $result = 27
十、条件操作符
  与C中类似，条件?值1:值2，当条件为真时取值1，为假时取值2，如：
  $result = $var == 0 ? 14 : 7;
  $result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);
  PERL 5中，还可以在赋值式左边使用条件操作符来选择被赋值的变量，如：
  $condvar == 43 ? $var1 : $var2 = 14;
  $condvar == 43 ? $var1 = 14 : $var2 = 14;
十一、操作符的次序

Table 3.6. 操作符次序
操作符描述
++, -- 自增，自减
-, ~, ! 单目
** 乘方
=~, !~ 模式匹配
*, /, %, x 乘，除，取余，重复
+, -, . 加，减，联接
<<, >> 移位
-e, -r, etc. 文件状态
<, <=, >, >=, lt, le, gt, ge 不等比较
==, !=, <=>, eq, ne, cmp 相等比较
& 位与
|, ^ 位或，位异或
&& 逻辑与
|| 逻辑或
.. 列表范围
? and : 条件操作符
=, +=, -=, *=, 赋值
and so on　
,逗号操作符
not Low-precedence logical NOT
and Low-precedence logical AND
or, xor Low-precedence logical OR and XOR

.操作符结合性(associativity)：

Table 3.7. 操作符结合性
操作符结合性
++, -- 无
-, ~, ! Right-to-left
** Right-to-left
=~, !~ Left-to-right
*, /, %, x Left-to-right
+, -, . Left-to-right
<<, >> Left-to-right
-e, -r, 无
<, <=, >, >=, lt, le, gt, ge Left-to-right
==, !=, <=>, eq, ne, cmp Left-to-right
& Left-to-right
|, ^ Left-to-right
&& Left-to-right
|| Left-to-right
.. Left-to-right
? and : Right-to-left
=, +=, -=, *=, Right-to-left
and so on　
,Left-to-right
not Left-to-right
and Left-to-right
or, xor Left-to-right

建议：
  1、当你不确定某操作符是否先执行时，一定要用括号明确之。
  2、用多行、空格等方式提高程序的可读性。
第四章列表和数组变量
一、列表
  列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1, 5.3 , "hello" , 2)，空列表：()。
  注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。
  列表例：
　 (17, $var, "a string"

　 (17, 26 << 2)
　 (17, $var1 + $var2)
　 ($value, "The answer is $value"

二、数组--列表的存贮
列表存贮于数组变量中，与简单变量不同，数组变量以字符"@"打头，如：
　 @array = (1, 2, 3);
注：
(1)数组变量创建时初始值为空列表：()。
(2)因为PERL用@和$来区分数组变量和简单变量，所以同一个名字可以同时用于数组变量和简单变量，如：
　 $var = 1;
　 @var = (11, 27.1 , "a string"

;
  但这样很容易混淆，故不推荐。
1、数组的存取
  .对数组中的值通过下标存取，第一个元素下标为0。试图访问不存在的数组元素，则结果为NULL，但如果给超出数组大小的元素赋值，则数组自动增长，原来没有的元素值为NULL。如：
　 @array = (1, 2, 3, 4);
　 $scalar = $array[0];
　 $array[3] = 5; # now @array is (1,2,3,5)
　 $scalar = $array[4]; # now $scalar = null;
　 $array[6] = 17; # now @array is (1,2,3,5,"","",17)
  .数组间拷贝
　 @result = @original;
  .用数组给列表赋值
　 @list1 = (2, 3, 4);
　 @list2 = (1, @list1, 5); # @list2 = (1, 2, 3, 4, 5)
  .数组对简单变量的赋值
　 (1) @array = (5, 7, 11);
　 ($var1, $var2) = @array; # $var1 = 5, $var2 = 7, 11被忽略
　 (2) @array = (5, 7);
　 ($var1, $var2, $var3) = @array; # $var1 = 5, $var2 = 7, $var3 ="" (null)
  .从标准输入(STDIN)给变量赋值
　 $var = ;
　 @array = ; # ^D为结束输入的符号
2 、字符串中的方括号和变量替换
　 "$var[0]" 为数组@var的第一个元素。
　 "$var\[0]" 将字符"["转义，等价于"$var". "[0]"，$var被变量替换，[0]保持不变。
　 "$[0]" 亦等价于"$var" ."[0]"。
　 "$\"则取消了大括号的变量替换功能，包含文字：$.
3、列表范围：
　 (1..10) = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
　 (2, 5..7, 11) = (2, 5, 6, 7, 11)
　 (3..3) = (3)
  .用于实数
　 (2.1..5.3) = (2.1, 3.1 ,4.1, 5.1)
　 (4.5..1.6) = ()
  .用于字符串
　 ("aaa".."aad"

= ("aaa","aab", "aac", "aad"

　 @day_of_month = ("01".."31"

.可包含变量或表达式
　 ($var1..$var2+5)
.小技巧：
　 $fred = "Fred";
　 print (("Hello, " . $fred . "!\n"

x 2);
其结果为：
　 Hello, Fred!
　 Hello, Fred!
4、数组的输出：
(1) @array = (1, 2, 3);
　 print (@array, "\n"

;
结果为：
　 123
(2) @array = (1, 2, 3);
　 print ("@array\n"

;
  结果为：
　 1 2 3
5、列表/数组的长度
  当数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。
　 @array = (1, 2, 3);
　 $scalar = @array; # $scalar = 3,即@array的长度
　 ($scalar) = @array; # $scalar = 1,即@array第一个元素的值
  注：以数组的长度为循环次数可如下编程：
　 $count = 1;
　 while ($count <= @array) {
　 print ("element $count: $array[$count-1]\n"

;
　 $count++;
　 }
6、子数组
　 @array = (1, 2, 3, 4, 5);
　 @subarray = @array[0,1]; # @subarray = (1, 2)
　 @subarray2 = @array[1..3]; # @subarray2 = (2,3,4)
　 @array[0,1] = ("string", 46); # @array =("string",46,3,4,5) now
　 @array[0..3] = (11, 22, 33, 44); # @array = (11,22,33,44,5) now
　 @array[1,2,3] = @array[3,2,4]; # @array = (11,44,33,5,5) now
　 @array[0..2] = @array[3,4]; # @array = (5,5,"",5,5) now
可以用子数组形式来交换元素：
　 @array[1,2] = @array[2,1];
7、有关数组的库函数
(1)sort--按字符顺序排序
　 @array = ("this", "is", "a","test"

;
　 @array2 = sort(@array); # @array2 = ("a","is", "test", "this"

　 @array = (70, 100, 8);
　 @array = sort(@array); # @array = (100, 70, 8) now
( 2)reverse--反转数组
　 @array2 = reverse(@array);
　 @array2 = reverse sort (@array);
(3)chop--数组去尾
　 chop的意义是去掉STDIN（键盘）输入字符串时最后一个字符--换行符。而如果它作用到数组上，则将数组中每一个元素都做如此处理。
　 @list = ("rabbit", "12345","quartz"

;
　 chop (@list); # @list = ("rabbi", "1234","quart"

now
( 4)join/split--连接/拆分
　 join的第一个参数是连接所用的中间字符，其余则为待连接的字符数组。
　 $string = join(" ", "this", "is","a", "string"

; # 结果为"this is a string"
　 @list = ("words","and"

;
　 $string = join("::", @list, "colons"

; #结果为"words::and::colons"
　 @array = split(/::/,$string); # @array = ("words","and", "colons"

now
(未完)

赞一下(5人)

回复此楼

2楼2005-06-14 19:15:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

应助: 0 (幼儿园)
贵宾: 16.6
金币: 13289.9
红花: 4
帖子: 4967
在线: 10.3小时
虫号: 56231
注册: 2005-01-07
专业: 金属有机化学

第五章文件读写
一、打开、关闭文件
  语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。
　 open(FILE1,"file1");
　 open(FILE1, "/u/jqpublic/file1");
  打开文件时必须决定访问模式，在PERL中有三种访问模式：读、写和添加。后两种模式的区别在于写模式将原文件覆盖，原有内容丢失，形式为：open(outfile,">outfile");而添加模式则在原文件的末尾处继续添加内容，形式为：open(appendfile, ">>appendfile")。要注意的是，不能对文件同时进行读和写/添加操作。
  open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：
　 if (open(MYFILE, "myfile")) {
　 # here's what to do if the file opened successfully
　 }
  当文件打开失败时结束程序：
　 unless (open (MYFILE, "file1")) {
　 die ("cannot open input file file1\n");
　 }
  亦可用逻辑或操作符表示如下：
　 open (MYFILE, "file1") || die ("Could not open file");
  当文件操作完毕后，用close(MYFILE); 关闭文件。
二、读文件
  语句$line = ;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。为标准输入文件，通常为键盘输入，不需要打开。
  语句@array = ;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。
三、写文件
  形式为：
　 open(OUTFILE, ">outfile");
　 print OUTFILE ("Here is an output line.\n");
  注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕，且不需要打开。
四、判断文件状态
1、文件测试操作符
  语法为：-op expr，如：
　 if (-e "/path/file1") {
　 print STDERR ("File file1 exists.\n");
　 }

文件测试操作符
操作符描述
-b是否为块设备
-c 是否为字符设备
-d 是否为目录
-e 是否存在
-f 是否为普通文件
-g 是否设置了setgid位
-k 是否设置了sticky位
-l 是否为符号链接
-o 是否拥有该文件
-p 是否为管道
-r 是否可读
-s 是否非空
-t 是否表示终端
-u 是否设置了setuid位
-w 是否可写
-x 是否可执行
-z 是否为空文件
-A 距上次访问多长时间
-B 是否为二进制文件
-C 距上次访问文件的inode多长时间
-M 距上次修改多长时间
-O 是否只为“真正的用户”所拥有
-R 是否只有“真正的用户”可读
-S 是否为socket
-T 是否为文本文件
-W 是否只有"真正的用户"可写
-X 是否只有"真正的用户"可执行
注：“真正的用户”指登录时指定的userid，与当前进程用户ID相对，命令suid可以改变有效用户ID。

  例：
　 unless (open(INFILE, "infile")) {
　 die ("Input file infile cannot be opened.\n");
　 }
　 if (-e "outfile") {
　 die ("Output file outfile already exists.\n");
　 }
　 unless (open(OUTFILE, ">outfile")) {
　 die ("Output file outfile cannot be opened.\n");
　 }
  等价于
　 open(INFILE, "infile") && !(-e "outfile") &&
　 open(OUTFILE, ">outfile") || die("Cannot open files\n");
五、命令行参数
  象C一样，PERL也有存储命令行参数的数组@ARGV，可以用来分别处理各个命令行参数；与C不同的是，$ARGV[0]是第一个参数，而不是程序名本身。
　 $var = $ARGV[0]; # 第一个参数
　 $numargs = @ARGV; # 参数的个数
  PERL中，<>操作符实际上是对数组@ARGV的隐含的引用，其工作原理为：
1、当PERL解释器第一次看到<>时，打开以$ARGV[0]为文件名的文件；
2、执行动作shift(@ARGV); 即把数组@ARGV的元素向前移动一个，其元素数量即减少了一个。
3、<>操作符读取在第一步打开的文件中的所有行。
4、读完后，解释器回到第一步重复。
  例：
　 @ARGV = ("myfile1", "myfile2"); #实际上由命令行参数赋值
　 while ($line = <>) {
　 print ($line);
　 }
  将把文件myfile1和myfile2的内容打印出来。
六、打开管道
  用程序的形式也可以象命令行一样打开和使用管道(ex:ls > tempfile)。如语句open (MYPIPE, "| cat >hello"); 打开一个管道，发送到MYPIPE的输出成为命令"cat >hello"的输入。由于cat命令将显示输入文件的内容，故该语句等价于open(MYPIPE, ">hello"); 用管道发送邮件如下：
　 open (MESSAGE, "| mail dave");
　 print MESSAGE ("Hi, Dave! Your Perl program sent this!\n");
　 close (MESSAGE);
第六章模式匹配
一、简介
　模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);
二、匹配操作符 =~、!~
　=~检验匹配是否成功：$result = $var =~ /abc/;若在该字符串中找到了该模式，则返回非零值，即true，不匹配则返回0，即false。!~则相反。
　这两个操作符适于条件控制中，如：
　if ($question =~ /please/) {
　　print ("Thank you for being polite!\n");
　}
　else {
　　print ("That was not very polite!\n");
　}
三、模式中的特殊字符
　PERL在模式中支持一些特殊字符，可以起到一些特殊的作用。
1、字符 +
　+意味着一个或多个相同的字符，如：/de+f/指def、deef、deeeeef等。它尽量匹配尽可能多的相同字符，如/ab+/在字符串abbc中匹配的将是abb，而不是ab。
　当一行中各单词间的空格多于一个时，可以如下分割：
　　@array = split (/ +/, $line);
　注：split函数每次遇到分割模式，总是开始一个新单词，因此若$line以空格打头，则@array的第一个元素即为空元素。但其可以区分是否真有单词，如若$line中只有空格，则@array则为空数组。且上例中TAB字符被当作一个单词。注意修正。
2、字符 []和[^]
　[]意味着匹配一组字符中的一个，如/a[0123456789]c/将匹配a加数字加c的字符串。与+联合使用例：/d[eE]+f/匹配def、dEf、deef、dEdf、dEEEeeeEef等。^表示除其之外的所有字符，如：/d[^deE]f/匹配d加非e字符加f的字符串。
3、字符 *和?
　它们与+类似，区别在于*匹配0个、1个或多个相同字符，?匹配0个或1个该字符。如/de*f/匹配df、def、deeeef等；/de?f/匹配df或def。
4、转义字符
　如果你想在模式中包含通常被看作特殊意义的字符，须在其前加斜线"\"。如：/\*+/中\*即表示字符*，而不是上面提到的一个或多个字符的含义。斜线的表示为/\\/。在PERL5中可用字符对\Q和\E来转义。
5、匹配任意字母或数字
　上面提到模式/a[0123456789]c/匹配字母a加任意数字加c的字符串，另一种表示方法为：/a[0-9]c/，类似的，[a-z]表示任意小写字母，[A-Z]表示任意大写字母。任意大小写字母、数字的表示方法为：/[0-9a-zA-Z]/。
6、锚模式

锚描述
^ 或 \A仅匹配串首
$ 或 \Z仅匹配串尾
\b匹配单词边界
\B单词内部匹配

　例1：/^def/只匹配以def打头的字符串，/$def/只匹配以def结尾的字符串，结合起来的/^def$/只匹配字符串def(?)。\A和\Z在多行匹配时与^和$不同。
　例2：检验变量名的类型：
　　if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/) {
　　　print ("$varname is a legal scalar variable\n");
　　} elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/) {
　　　print ("$varname is a legal array variable\n");
　　} elsif ($varname =~ /^[A-Za-z][_0-9a-zA-Z]*$/) {
　　　print ("$varname is a legal file variable\n");
　　} else {
　　　print ("I don't understand what $varname is.\n");
　 }
　例3：\b在单词边界匹配：/\bdef/匹配def和defghi等以def打头的单词，但不匹配abcdef。/def\b/匹配def和abcdef等以def结尾的单词，但不匹配defghi，/\bdef\b/只匹配字符串def。注意：/\bdef/可匹配$defghi，因为$并不被看作是单词的部分。
　例4：\B在单词内部匹配：/\Bdef/匹配abcdef等，但不匹配def；/def\B/匹配defghi等；/\Bdef\B/匹配cdefg、abcdefghi等，但不匹配def,defghi,abcdef。
7、模式中的变量替换
　将句子分成单词：
　　$pattern = "[\\t ]+";
　　@words = split(/$pattern/, $line);
8、字符范围转义

E 转义字符描述范围
\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]

　例：/[\da-z]/匹配任意数字或小写字母。
9、匹配任意字符
　字符"."匹配除换行外的所有字符，通常与*合用。
10、匹配指定数目的字符
　字符对{}指定所匹配字符的出现次数。如：/def/匹配def,deef和deeef；/def/匹配deeef；/def/匹配不少于3个e在d和f之间；/def/匹配不多于3个e在d和f之间。
11、指定选项
　字符"|"指定两个或多个选择来匹配模式。如：/def|ghi/匹配def或ghi。
　例：检验数字表示合法性
　if ($number =~ /^-?\d+$|^-?0[xX][\da-fa-F]+$/) {
　　print ("$number is a legal integer.\n");
　} else {
　　print ("$number is not a legal integer.\n");
　}
　其中 ^-?\d+$ 匹配十进制数字，^-?0[xX][\da-fa-F]+$ 匹配十六进制数字。
12、模式的部分重用
　当模式中匹配相同的部分出现多次时，可用括号括起来，用\n来多次引用，以简化表达式：
/\d([\W])\d\1\d/ 匹配：
　　12-05-92
　　26.11.87
　　07 04 92等
　注意：/\d([\W])\d\1\d/ 不同于/(\d)([\W])\1\2\1/ ，后者只匹配形如17-17-17的字符串，而不匹配17-05-91等。
13、转义和特定字符的执行次序
　象操作符一样，转义和特定字符也有执行次序：

特殊字符描述
()模式内存
+ * ? {}出现次数
^ $ \b \B锚
|选项

14、指定模式定界符
　缺省的，模式定界符为反斜线/，但其可用字母m自行指定，如：
　　m!/u/jqpublic/perl/prog1! 等价于/\/u\/jqpublic\/perl\/prog1/
　注：当用字母'作为定界符时，不做变量替换；当用特殊字符作为定界符时，其转义功能或特殊功能即不能使用。
15、模式次序变量
　在模式匹配后调用重用部分的结果可用变量$n，全部的结果用变量$Content$amp;。
　　$string = "This string contains the number 25.11.";
　　$string =~ /-?(\d+)\.?(\d+)/; # 匹配结果为25.11
　　$integerpart = $1; # now $integerpart = 25
　　$decimalpart = $2; # now $decimalpart = 11
　　$totalpart = $Content$amp;; # now totalpart = 25.11
四、模式匹配选项

选项描述
g匹配所有可能的模式
i忽略大小写
m将串视为多行
o只赋值一次
s将串视为单行
x忽略模式中的空白

1、匹配所有可能的模式(g选项)
　@matches = "balata" =~ /.a/g; # now @matches = ("ba", "la", "ta")
　匹配的循环：
　while ("balata" =~ /.a/g) {
　　$match = $Content$amp;;
　　print ("$match\n");
　}
　结果为：
　　ba
　　la
　　ta
　当使用了选项g时，可用函数pos来控制下次匹配的偏移：
　　$offset = pos($string);
　　pos($string) = $newoffset;
2、忽略大小写(i选项)例
　/de/i 匹配de,dE,De和DE。
3、将字符串看作多行(m选项)
　在此情况下，^符号匹配字符串的起始或新的一行的起始；$符号匹配任意行的末尾。
4、只执行一次变量替换例
　$var = 1;
　$line = ;
　while ($var < 10) {
　　$result = $line =~ /$var/o;
　　$line = ;
　　$var++;
　}
　每次均匹配/1/。
5、将字符串看作单行例
　/a.*bc/s匹配字符串axxxxx \nxxxxbc，但/a.*bc/则不匹配该字符串。
6、在模式中忽略空格
　/\d ([\W]) \d \1 \d/x等价于/\d([\W])\d\1\d/。
五、替换操作符
　语法为s/pattern/replacement/，其效果为将字符串中与pattern匹配的部分换成replacement。如：
　　$string = "abc123def";
　　$string =~ s/123/456/; # now $string = "abc456def";
　在替换部分可使用模式次序变量$n，如s/(\d+)/[$1]/，但在替换部分不支持模式的特殊字符，如{},*,+等，如s/abc/[def]/将把abc替换为[def]。
　替换操作符的选项如下表：

选项描述
g改变模式中的所有匹配
i忽略模式中的大小写
e替换字符串作为表达式
m将待匹配串视为多行
o仅赋值一次
s将待匹配串视为单行
x忽略模式中的空白

　注：e选项把替换部分的字符串看作表达式，在替换之前先计算其值，如：
　　$string = "0abc1";
　　$string =~ s/[a-zA-Z]+/$Content$amp; x 2/e; # now $string = "0abcabc1"
六、翻译操作符
　这是另一种替换方式，语法如：tr/string1/string2/。同样，string2为替换部分，但其效果是把string1中的第一个字符替换为string2中的第一个字符，把string1中的第二个字符替换为string2中的第二个字符，依此类推。如：
　　$string = "abcdefghicba";
　　$string =~ tr/abc/def/; # now string = "defdefghifed"
　当string1比string2长时，其多余字符替换为string2的最后一个字符；当string1中同一个字符出现多次时，将使用第一个替换字符。
　翻译操作符的选项如下：

选项描述
c翻译所有未指定字符
d删除所有指定字符
s把多个相同的输出字符缩成一个

　如$string =~ tr/\d/ /c;把所有非数字字符替换为空格。$string =~ tr/\t //d；删除tab和空格；　$string =~ tr/0-9/ /cs；把数字间的其它字符替换为一个空格。

七、扩展模式匹配
　PERL支持PERL4和标准UNIX模式匹配操作所没有的一些模式匹配能力。其语法为：(?pattern)，其中c是一个字符，pattern是起作用的模式或子模式。
1、不存贮括号内的匹配内容
　在PERL的模式中，括号内的子模式将存贮在内存中，此功能即取消存贮该括号内的匹配内容，如/(?:a|b|c)(d|e)f\1/中的\1表示已匹配的d或e，而不是a或b或c。
2、内嵌模式选项
　通常模式选项置于其后，有四个选项：i、m、s、x可以内嵌使用，语法为：/(?option)pattern/，等价于/pattern/option。
3、肯定的和否定的预见匹配
　肯定的预见匹配语法为/pattern(?=string)/，其意义为匹配后面为string的模式，相反的，(?!string)意义为匹配后面非string的模式，如：
　　$string = "25abc8";
　　$string =~ /abc(?=[0-9])/;
　　$matched = $Content$amp;; # $Content$amp;为已匹配的模式，此处为abc，而不是abc8
4、模式注释
　PERL5中可以在模式中用?#来加注释，如：
　　if ($string =~ /(?i)[a-z](?# match two or three alphabetic characters)/ {
　　　...
　　}

赞一下

回复此楼

3楼2005-06-14 19:16:56

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

miRNA

至尊木虫 (职业作家)

水王之王（愚愚学园管理员）

应助: 0 (幼儿园)
贵宾: 16.6
金币: 13289.9
红花: 4
帖子: 4967
在线: 10.3小时
虫号: 56231
注册: 2005-01-07
专业: 金属有机化学

第七章控制结构
一、条件判断
  if ( {
　
  }
  elsif ( ) {
　
  }
  ...
  else{
　
  }
二、循环：
1、while循环
  while ( ) {
　
  }
2、until循环
  until ( ) {
　
  }
3、类C的for循环，如
  for ($count=1; $count <= 5; $count++) {
　 # statements inside the loop go here
  }
下面是在for循环中使用逗号操作符的例子：
  for ($line = , $count = 1; $count <= 3;　 $line = , $count++) {
　 print ($line);
  }
它等价于下列语句：
  $line = ;
  $count = 1;
  while ($count <= 3) {
　 print ($line);
　 $line = ;
　 $count++;
  }
4、针对列表(数组)每个元素的循环：foreach，语法为：
  foreach localvar (listexpr) {
　 statement_block;
  }
例：
  foreach $word (@words) {
　 if ($word eq "the"

{
　　 print ("found the word 'the'\n"

;
　 }
  }
注：
(1)此处的循环变量localvar是个局部变量，如果在此之前它已有值，则循环后仍恢复该值。
(2)在循环中改变局部变量，相应的数组变量也会改变，如：
  @list = (1, 2, 3, 4, 5);
  foreach $temp (@list) {
　 if ($temp == 2) {
　　 $temp = 20;
　 }
  }
此时@list已变成了(1, 20, 3, 4, 5)。
5、do循环
  do {
　 statement_block
  } while_or_until (condexpr);
  do循环至少执行一次循环。
6、循环控制
  退出循环为last，与C中的break作用相同；执行下一个循环为next，与C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。
7、传统的goto label;语句。

三、单行条件
  语法为statement keyword condexpr。其中keyword可为if、unless、while或until，如：
　 print ("This is zero.\n"

if ($var == 0);
　 print ("This is zero.\n"

unless ($var != 0);
　 print ("Not zero yet.\n"

while ($var-- > 0);
　 print ("Not zero yet.\n"

until ($var-- == 0);
  虽然条件判断写在后面，但却是先执行的
第八章子程序
一、定义
  子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：
  sub subroutine{
　 statements;
  }
二、调用
  调用方法如下：
1、用&调用
  &subname;
  ...
  sub subname{
　 ...
  }
2、先定义后调用，可以省略&符号
  sub subname{
　 ...
  }
  ...
  subname;
3、前向引用，先定义子程序名，后面再定义子程序体
  sub subname;
  ...
  subname;
  ...
  sub subname{
　 ...
  }
4、用do调用
  do my_sub(1, 2, 3);等价于&my_sub(1, 2, 3);
三、返回值
  缺省的，子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval，retval可以为列表。
四、局部变量
  子程序中局部变量的定义有两种方法：my和local。其区别是：my定义的变量只在该子程序中存在；而local定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中(在PERL4中没有my)。定义时可以给其赋值，如：
  my($scalar) = 43;
  local(@array) = (1, 2, 3);
五、子程序参数传递
1、形式
  &sub1(&number1, $number2, $nubmer3);
  ...
  sub sub1{
　 my($number1, $number2, $number3) = @_;
　 ...
  }
2、传送数组
  &addlist (@mylist);
  &addlist ("14", "6", "11"

;
  &addlist ($value1, @sublist, $value2);
  ...
  sub addlist {
　 my (@list) = @_;
　 ...
  }
参数为数组时，子程序只将它赋给一个数组变量。如
  sub twolists {
　 my (@list1, @list2) = @_;
  }
中@list2必然为空。但简单变量和数组变量可以同时传递：
  &twoargs(47, @mylist); # 47赋给$scalar，@mylist赋给@list
  &twoargs(@mylist); # @mylist的第一个元素赋给$scalar，其余的元素赋给@list
  ...
  sub twoargs {
　 my ($scalar, @list) = @_;
　 ...
  }
六、递归子程序
  PERL中，子程序可以互相调用，其调用方法与上述相同，当调用该子程序本身时，即成了递归子程序。递归子程序有两个条件：1、除了不被子程序改变的变量外，所有的变量必须的局部的；2、该子程序要含有停止调用本身的代码。
七、用别名传递数组参数
1、用前面讲到的调用方法&my_sub(@array)将把数组@array的数据拷贝到子程序中的变量@_中，当数组很大时，将会花费较多的资源和时间，而用别名传递将不做这些工作，而对该数组直接操作。形式如：
  @myarray = (1, 2, 3, 4, 5);
  &my_sub(*myarray);
  sub my_sub {
　 my (*subarray) = @_;
  }
2、此方法类似于C语言中的传递数组的起始地址指针，但并不一样，在定义数组的别名之后，如果有同名的简单变量，则对该变量也是起作用的。如：
  $foo = 26;
  @foo = ("here's", "a", "list"

;
  &testsub (*foo);
  ...
  sub testsub {
　 local (*printarray) = @_;
　 ...
　 $printarray = 61;
  }
  当子程序执行完，主程序中的$foo的值已经成了61，而不再是26了。
3、用别名的方法可以传递多个数组，如：
  @array1 = (1, 2, 3);
  @array2 = (4, 5, 6);
  &two_array_sub (*array1, *array2);
  sub two_array_sub {
　 my (*subarray1, *subarray2) = @_;
  }
  在该子程序中，subarray1是array1的别名，subarray2是array2的别名。
八、预定义的子程序
  PERL5预定义了三个子程序，分别在特定的时间执行，它们是：BEGIN子程序在程序启动时被调用；END子程序在程序结束时被调用；AUTOLOAD子程序在找不到某个子程序时被调用。你可以自己定义它们，以在特定时间执行所需要的动作。如：
  BEGIN {
　 print("Hi! Welcome to Perl!\n"

;
}
AUTOLOAD{
　 print("subroutine $AUTOLOAD not found\n"

; # 变量$AUTOLOAD即未找到的子程序名
　 print("arguments passed: @_\n"

;
}
若同一个预定义子程序定义了多个，则BEGIN顺序执行，END逆序执行。

赞一下

回复此楼