perl详细讲解

地址

目录

ftp.netlabs.com

IP地址：192.94.48.152
目录 /pub/outgoing/perl5.0

ftp.cis.ufl.edu

IP地址： 128.227.100.198
目录 /pub/perl/src/5.0

ftp.uu.net

IP地址： 192.48.96.9
目录 /languages/perl

ftp.khoros.unm.edu

IP地址： 198.59.155.28
目录 /pub/perl

ftp.cbi.tamucc.edu

IP地址： 165.95.1.3
目录 /pub/duff/Perl

ftp.metronet.com

IP地址： 192.245.137.1
目录 /pub/perl/sources

genetics.upenn.edu

IP地址： 128.91.200.37
目录 /perl5

Site

Location

ftp.cs.ruu.nl

IP地址： 131.211.80.17
目录 /pub/PERL/perl5.0/src

ftp.funet.fi

IP地址： 128.214.248.6
目录 /pub/languages/perl/ports/perl5

ftp.zrz.tu-berlin.de

IP地址： 130.149.4.40
目录 /pub/unix/perl

src.doc.ic.ac.uk

IP地址： 146.169.17.5
目录 /packages/perl5

Site

Location

sungear.mame.mu.oz.au

IP地址： 128.250.209.2
目录 /pub/perl/src/5.0

Site

Location

ftp.inf.utfsm.cl

IP地址： 146.83.198.3
目录 /pub/gnu

Escape Sequence

Description

\a

Bell (beep)

\b

Backspace

\cn

The Ctrl+n character

\e

Escape

\E

Ends the effect of \L, \U or \Q

\f

Form Feed

\l

Forces the next letter into lowercase

\L

All following letters are lowercase

\n

Newline

\r

Carriage return

\Q

Do not look for special pattern characters

\t

Tab

\u

Force next letter into uppercase

\U

All following letters are uppercase

\v

Vertical tab

*** 作符

描述

< 

小于

> 

大于

==

等于

<=

小于等于

>=

大于等于

!=

不等于

<=>

比较，返回 1,or -1

*** 作符

描述

lt

小于

gt

大于

eq

等于

le

小于等于

ge

大于等于

ne

不等于

cmp

比较，返回 1,51); Font-family:Arial; Font-size:14px; line-height:26px"> 四、逻辑 *** 作符 
  逻辑或：$a || $b 或 $a or $b
  逻辑与：$a && $b 或 $a and $b
  逻辑非：! $a 或 not $a
  逻辑异或：$a xor $b
五、位 *** 作符 
  位与：&
  位或：|
  位非：~
  位异或：^
  左移：$x << 1
  右移：$x >> 2
  注：不要将&用于负整数，因为PERL将会把它们转化为无符号数。
六、赋值 *** 作符 

table 3.3. 赋值 *** 作符

table 3.4. 赋值 *** 作符例子

.=可在一个赋值语句中出现多次，如：
  $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.  *** 作符次序

. *** 作符结合性(associativity)：

table 3.7. *** 作符结合性

建议：
  1、当你不确定某 *** 作符是否先执行时，一定要用括号明确之。
  2、用多行、空格等方式提高程序的可读性。

第四章 列表和数组变量

一、列表
  列表是包含在括号里的一序列的值，可以为任何数值，也可为空，如：(1,5.3,"hello",2)，空列表：()。
  注：只含有一个数值的列表(如：(43.2) )与该数值本身(即：43.2 )是不同的，但它们可以互相转化或赋值。
  列表例：
    (17,$var,"a string")

    ($value,"The answer is $value")
二、数组--列表的存贮 
  列表存贮于数组变量中，与简单变量不同，数组变量以字符"@"打头，如：
    @array =(1,2,3);
  注：
 (1)数组变量创建时初始值为空列表：()。
 (2)因为PERL用@和$来区分数组变量和简单变量，所以同一个名字可以同时用于数组变量和简单变量，如：
    $var = 1;
    @var = (11,27.1,"a string");
  但这样很容易混淆，故不推荐。
1、数组的存取 
  .对数组中的值通过下标存取，第一个元素下标为0。试图访问不存在的数组元素，则结果为NulL，但如果给超出数组大小的元素赋值，则数组自动增长，原来没有的元素值为NulL。如：
    $scalar =$array[0];
    $array[3] =5; # Now @array is (1,5)
    $scalar =$array[4]; # Now $scalar = null;
    $array[6] =17; # Now @array is (1,5,"",17)
  .数组间拷贝
    @result =@original; 
  .用数组给列表赋值
    @List1 =(2,51); Font-family:Arial; Font-size:14px; line-height:26px">    @List2 =(1,@List1,5); # @List2 = (1,4,51); Font-family:Arial; Font-size:14px; line-height:26px">  .数组对简单变量的赋值
    (1) @array= (5,7,11);
    ($var1,$var2) = @array; # $var1 = 5,$var2 = 7,11被忽略
    (2) @array= (5,7);

  .从标准输入(STDIN)给变量赋值
    $var =<STDIN>;
    @array =<STDIN>; # ^D为结束输入的符号
2 、字符串中的方括号和变量替换 
    "$var[0]"为数组@var的第一个元素。
    "$var\[0]"将字符"["转义，等价于"$var". "[0]"，$var被变量替换，[0]保持不变。
    "${var}[0]"亦等价于"$var"."[0]"。
    "$\{var}"则取消了大括号的变量替换功能，包含文字：${var}.
3、列表范围： 
    (1..10) =(1,6,8,9,10)
    (2,5..7,11) = (2,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!
4、数组的输出： 
(1) @array = (1,51); Font-family:Arial; Font-size:14px; line-height:26px">    print(@array,"\n");
  结果为：
    123
(2) @array = (1,51); Font-family:Arial; Font-size:14px; line-height:26px">    print("@array\n");
    1 2 3
5、列表/数组的长度 
  当数组变量出现在预期简单变量出现的地方，则PERL解释器取其长度。
    $scalar =@array; # $scalar = 3,即@array的长度
    ($scalar) =@array; # $scalar = 1,即@array第一个元素的值
  注：以数组的长度为循环次数可如下编程：
    $count = 1;
    while($count <= @array) {
    print("element $count: $array[$count-1]\n");
    $count++;
    }
6、子数组 
    @subarray =@array[0,1]; # @subarray = (1,2)
    @subarray2= @array[1..3]; # @subarray2 = (2,4)
    @array[0,1]= ("string",46); # @array =("string",46,5) Now 
    @array[0..3]= (11,22,33,44); # @array = (11,44,5) Now
    @array[1,3]= @array[3,4]; # @array = (11,51); Font-family:Arial; Font-size:14px; line-height:26px">    @array[0..2]= @array[3,4]; # @array = (5,51); Font-family:Arial; Font-size:14px; line-height:26px">  可以用子数组形式来交换元素：
7、有关数组的库函数 
(1)sort--按字符顺序排序
    @array =("this","is","a","test");
    @array2 =sort(@array); # @array2 = ("a","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","string"); # 结果为"this is astring"
    @List =("words","and");
    $string =join("::",@List,"colons"); #结果为"words::and::colons"
    @array =split(/::/,$string); # @array = ("words","and","colons") Now

第五章 文件读写

一、打开、关闭文件 
  语法为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'swhat 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 = <MYfile>;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。<STDIN>为标准输入文件，通常为键盘输入，不需要打开。
  语句@array = <MYfile>;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。
三、写文件 
  形式为：
    open(OUTfile,">outfile");
    printOUTfile ("Here is an output line.\n");
  注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕，且不需要打开。
四、判断文件状态 
1、文件测试 *** 作符
  语法为：-op expr，如：
    if (-e"/path/file1") {
    printSTDERR ("file file1 exists.\n");
    }

文件测试 *** 作符

  例：
    unless (open(INfile,"infile")) {
    dIE ("input file infile cannot beopened.\n");
    }
    if (-e "outfile") {
    dIE ("Output file outfile alreadyexists.\n");
    }
    unless (open(OUTfile,">outfile")) {
    dIE ("Output file outfile cannot beopened.\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 sentthis!\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、锚模式 

   例1：/^def/只匹配以def打头的字符串，/$def/只匹配以def结尾的字符串，结合起来的/^def$/只匹配字符串def(?)。\A和\Z在多行匹配时与^和$不同。
   例2：检验变量名的类型：
     if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/) {
       print ("$varname is a legal scalarvariable\n");
     } elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/) {
       print ("$varname is a legal arrayvariable\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、字符范围转义 

   例：/[\da-z]/匹配任意数字或小写字母。
9、匹配任意字符 
   字符"."匹配除换行外的所有字符，通常与*合用。
10、匹配指定数目的字符 
   字符对{}指定所匹配字符的出现次数。如：/de{1,3}f/匹配def,deef和deeef；/de{3}f/匹配deeef；/de{3,}f/匹配不少于3个e在d和f之间；/de{0,3}f/匹配不多于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{2}([\W])\d{2}\1\d{2}/ 匹配：
     12-05-92
     26.11.87
     07 04 92等
   注意：/\d{2}([\W])\d{2}\1\d{2}/ 不同于/(\d{2})([\W])\1\2\1/ ，后者只匹配形如17-17-17的字符串，而不匹配17-05-91等。
13、转义和特定字符的执行次序 
   象 *** 作符一样，转义和特定字符也有执行次序：

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

1、匹配所有可能的模式(g选项) 
   @matches ="balata" =~ /.a/g; # Now @matches = ("ba","la","ta")
   匹配的循环：
   while("balata" =~ /.a/g) {
     $match =$&;
     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 = <STDIN>;
   while ($var < 10){ 
     $result =$line =~ /$var/o;
     $line =<STDIN>; 
     $var++;
   }
   每次均匹配/1/。
5、将字符串看作单行例 
   /a.*bc/s匹配字符串axxxxx \nxxxxbc，但/a.*bc/则不匹配该字符串。
6、在模式中忽略空格 
   /\d{2} ([\W]) \d{2} \1\d{2}/x等价于/\d{2}([\W])\d{2}\1\d{2}/。
五、替换 *** 作符 
   语法为s/pattern/replacement/，其效果为将字符串中与pattern匹配的部分换成replacement。如：
     $string = "abc123def";
     $string =~s/123/456/; # Now $string = "abc456def";
   在替换部分可使用模式次序变量$n，如s/(\d+)/[$1]/，但在替换部分不支持模式的特殊字符，如{},*,+等，如s/abc/[def]/将把abc替换为[def]。
   替换 *** 作符的选项如下表：

   注：e选项把替换部分的字符串看作表达式，在替换之前先计算其值，如：
     $string = "0abc1";
     $string =~ s/[a-zA-Z]+/$& 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中同一个字符出现多次时，将使用第一个替换字符。
   翻译 *** 作符的选项如下：

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

七、扩展模式匹配 
   PERL支持PERL4和标准UNIX模式匹配 *** 作所没有的一些模式匹配能力。其语法为：(?<c>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 = $&; # $&为已匹配的模式，此处为abc，而不是abc8
4、模式注释 
   PERL5中可以在模式中用?#来加注释，如：
     if ($string =~ /(?i)[a-z]{2,3}(?# match two or threeAlphabetic characters)/ {
       ...
     }

第七章 控制结构

一、条件判断 
  if ( <Expression>) {
    <statement_block_1>
  }
  elsif ( <Expression> ) {
    <statement_block_2>
  ...
  else{
    <statement_block_3>
二、循环： 
1、while循环 
  while ( <Expression> ) {
    <statement_block>
2、until循环 
  until ( <Expression> ) {
3、类C的for循环 ，如
  for ($count=1; $count <= 5;$count++) {
    # statements insIDe theloop go here
下面是在for循环中使用逗号 *** 作符的例子：
  for ($line = <STDIN>,$count =1; $count <= 3;   $line = <STDIN>,$count++) {
    print ($line);
它等价于下列语句：
  $line = <STDIN>;
  $count = 1;
  while ($count <= 3) { 
    $line = <STDIN>;
    $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,51); Font-family:Arial; Font-size:14px; line-height:26px; text-align:left">  foreach $temp (@List) {
    if ($temp == 2) {
      $temp = 20;
此时@List已变成了(1,20,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 iszero.\n") if ($var == 0);
    print ("This iszero.\n") unless ($var != 0);
    print ("Not zeroyet.\n") while ($var-- > 0);
    print ("Not zeroyet.\n") until ($var-- == 0);
  虽然条件判断写在后面，但却是先执行的。

第八章 子程序

一、定义 
  子程序即执行一个特殊任务的一段分离的代码，它可以使减少重复代码且使程序易读。PERL中，子程序可以出现在程序的任何地方。定义方法为：
  sub subroutine{
    statements;
二、调用 
  调用方法如下：
1、用&调用 
  &subname;
  sub subname{
    ...
2、先定义后调用 ，可以省略&符号
  subname;
3、前向引用 ，先定义子程序名，后面再定义子程序体
  sub subname;
4、用do调用 
  do my_sub(1,3);等价于&my_sub(1,51); Font-family:Arial; Font-size:14px; line-height:26px; text-align:left">三、返回值 
  缺省的，子程序中最后一个语句的值将用作返回值。语句return (retval);也可以推出子程序并返回值retval，retval可以为列表。
四、局部变量 
  子程序中局部变量的定义有两种方法：my和local。其区别是：my定义的变量只在该子程序中存在；而local定义的变量不存在于主程序中，但存在于该子程序和该子程序调用的子程序中(在PERL4中没有my)。定义时可以给其赋值，如：
  my($scalar) = 43;
  local(@array) = (1,51); Font-family:Arial; Font-size:14px; line-height:26px; text-align:left">五、子程序参数传递 
1、形式 
  &sub1(&number1,$number2,$nubmer3);
  sub sub1{
    my($number1,$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,51); Font-family:Arial; Font-size:14px; line-height:26px; text-align:left">  &my_sub(*myarray);
  sub my_sub {
    my (*subarray) = @_;
2、此方法类似于C语言中的传递数组的起始地址指针，但并不一样，在定义数组的别名之后，如果有同名的简单变量，则对该变量也是起作用的。如：
  $foo = 26;
  @foo = ("here's","List");
  &testsub (*foo);
  sub testsub {
    local (*printarray) = @_;
    $printarray = 61;
  当子程序执行完，主程序中的$foo的值已经成了61，而不再是26了。
3、用别名的方法可以传递多个数组，如：
  @array1 = (1,51); Font-family:Arial; Font-size:14px; line-height:26px; text-align:left">  @array2 = (4,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 toperl!\n");
  autoLOAD{
    print("subroutine $autoLOADnot found\n"); # 变量$autoLOAD即未找到的子程序名
    print("argumentspassed: @_\n");
  若同一个预定义子程序定义了多个，则BEGIN顺序执行，END逆序执行。

第九章 关联数组哈希表

一、数组变量的限制
    在前面讲的数组变量中，可以通过下标访问其中的元素。例如，下列语句访问数组@array的第三个元素：
    $scalar =$array[2];
    虽然数组很有用，但它们有一个显著缺陷，即很难记住哪个元素存贮的什么内容。假如我们来写一个程序计算某文件中首字母大写的单词出现的次数，用数组来实现就比较困难，程序代码如下：

1 : #!/usr/local/bin/perl
2 :
3 : while ($inputline = <STDIN>) {
4 :   while ($inputline =~ /\b[A-Z]\S+/g) {
5 :     $word = $&;
6 :     $word =~ s/[;.,:-]$//; # remove punctuation
7 :     for ($count = 1; $count <= @wordList;
8 :         $count++) {
9 :       $found = 0;
10:       if ($wordList[$count-1] eq $word) {
11:         $found = 1;
12:         $wordcount[$count-1] += 1;
13:         last;
14:       }
15:     }
16:     if ($found == 0) {
17:       $oldlength = @wordList;
18:       $wordList[$oldlength] = $word;
19:       $wordcount[$oldlength] = 1;
20:     }
21:   }
22: }
23: print ("CAPItalized words and number of occurrences:\n");
24: for ($count = 1; $count <= @wordList; $count++) {
25:   print ("$wordList[$count-1]: $wordcount[$count-1]\n");
26: }

    运行结果如下：

Here is a line of input.
This input contains some CAPItalized words.
^D
CAPItalized words and number of occurrences:
Here: 1
input: 2
This: 1
CAPItalized: 1

    这个程序每次从标准输入文件读一行文字，第四行起的循环匹配每行中首字母大写的单词，每找到一个循环一次，赋给简单变量$word。在第六行中去掉标点后，查看该单词是否曾出现过，7~15行中在@wordList中挨个元素做此检查，如果某个元素与$word相等，@wordcount中相应的元素就增加一个数。如果没有出现过，即@wordList中没有元素与$word相等，16~20行给@wordList和@wordcount增加一个新元素。
二、定义
    正如你所看到的，使用数组元素产生了一些问题。首先，@wordList中哪个元素对应着哪个单词并不明显；更糟的是，每读进一个新单词，程序必须检查整个列表才能知道该单词是否曾经出现过，当列表变得较大时，这是很耗费时间的。
    这些问题产生的原因是数组元素通过数字下标访问，为了解决这类问题，Perl定义了另一种数组，可以用任意简单变量值来访问其元素，这种数组叫做关联数组，也叫哈希表。
    为了区分关联数组变量与普通的数组变量，Perl使用%作为其首字符，而数组变量以@打头。与其它变量名一样，%后的第一个字符必须为字母，后续字符可以为字母、数字或下划线。
三、访问关联数组的元素
    关联数组的下标可以为任何简单/标量值，访问单个元素时以$符号打头，下标用大括号围起来。例如：

$fruit{"bananas"}
$number{3.14159}
$integer{-7}

    简单变量也可作为下标，如：
    $fruit{$my_fruit}
四、增加元素
    创建一个关联数组元素最简单的方法是赋值，如语句$fruit{"bananas"} = 1；把1赋给关联数组%fruit下标为bananas的元素，如果该元素不存在，则被创建，如果数组%fruit从未使用过，也被创建。
    这一特性使得关联数组很容易用于计数。下面我们用关联数组改写上面的程序，注意实现同样的功能此程序简化了许多。

1 : #!/usr/local/bin/perl
2 :
3 : while ($inputline = ) {
4 :   while ($inputline =~ /\b[A-Z]\S+/g) {
5 :     $word = $&;
6 :     $word =~ s/[;.,:-]$//; # remove punctuation
7 :     $wordList{$word} += 1;
8 :   }
9 : }
10: print ("CAPItalized words and number of occurrences:\n");
11: foreach $capword (keys(%wordList)) {
12:   print ("$capword: $wordList{$capword}\n");
13: }

Here is a line of input.
This input contains some CAPItalized words.
^D
CAPItalized words and number of occurrences:
This: 1
input: 2
Here: 1
CAPItalized: 1

    你可以看到，这次程序简单多了，读取输入并存贮各单词数目从20行减少到了7行。
    本程序用关联数组%wordList跟踪首字母大写的单词，下标就用单词本身，元素值为该单词出现的次数。第11行使用了内嵌函数keys()。这个函数返回关联数组的下标列表，foreach语句就用此列表循环。
    注：关联数组总是随机存贮的，因此当你用keys()访问其所有元素时，不保证元素以任何顺序出现，特别值得一提的是，它们不会以被创建的顺序出现。
    要想控制关联数组元素出现的次序，可以用sort()函数对keys()返回值进行排列，如：

foreach $capword (sort keys(%wordList)) {
  print ("$capword: $wordList{$capword}\n");
}

五、创建关联数组
    可以用单个赋值语句创建关联数组，如：
    %fruit =("apples",17,"bananas","oranges","none");
    此语句创建的关联数组含有下面三个元素：

·  下标为apples的元素，值为17

·  下标为bananas的元素，值为9

·  下标为oranges的元素，值为none

    注：用列表给关联数组赋值时，Perl5允许使用"=>"或","来分隔下标与值，用"=>"可读性更好些，上面语句等效于：
    %fruit =("apples"=>17,"bananas"=>9,"oranges"=>"none");
六、从数组变量复制到关联数组
    与列表一样，也可以通过数组变量创建关联数组，当然，其元素数目应该为偶数，如：
    @fruit = ("apples","none");
    %fruit =@fruit;
    反之，可以把关联数组赋给数组变量，如：
    %fruit =("grapes",11,"lemons",27);
    @fruit =%fruit;
    注意，此语句中元素次序未定义，那么数组变量@fruit可能为("grapes",27)或("lemons",27,"grapes",11)。
    关联数组变量之间可以直接赋值，如：%fruit2 = %fruit1; 还可以把数组变量同时赋给一些简单变量和一个关联数组变量，如：
    ($var1,%myarray) = @List;
    此语句把@List的第一个元素赋给$var1，第二个赋给$var2，其余的赋给%myarray。
    最后，关联数组可以通过返回值为列表的内嵌函数或用户定义的子程序来创建，下例中把split()函数的返回值--一个列表--赋给一个关联数组变量。

1: #!/usr/local/bin/perl
2:
3: $inputline = <STDIN>;
4: $inputline =~ s/^\s+|\s+\n$//g;
5: %fruit = split(/\s+/,$inputline);
6: print ("Number of bananas: $fruit{\"bananas\"}\n");

oranges 5 apples 7 bananas 11 cherrIEs 6
Number of bananas: 11

七、元素的增删
    增加元素已经讲过，可以通过给一个未出现过的元素赋值来向关联数组中增加新元素，如$fruit{"lime"}= 1;创建下标为lime、值为1的新元素。
    删除元素的方法是用内嵌函数delete，如欲删除上述元素，则：
    delete($fruit{"lime"});
注意：

1、一定要使用delete函数来删除关联数组的元素，这是唯一的方法。
2、一定不要对关联数组使用内嵌函数push、pop、shift及splice，因为其元素位置是随机的。

八、列出数组的索引和值
    上面已经提到，keys()函数返回关联数组下标的列表，如：

%fruit = ("apples",

         "bananas",23,51); Font-family:Arial; Font-size:14px; line-height:26px">          "cherrIEs",11);

@fruitsubs = keys(%fruits);

    这里，@fruitsubs被赋给apples、bananas、cherrIEs构成的列表，再次提请注意，此列表没有次序，若想按字母顺序排列，可使用sort()函数。
    @fruitindexes= sort keys(%fruits);
    这样结果为("apples","cherrIEs")。类似的，内嵌函数values()返回关联数组值的列表，如：

          "bananas",51); Font-family:Arial; Font-size:14px; line-height:26px">           "cherrIEs",51); Font-family:Arial; Font-size:14px; line-height:26px"> @fruitvalues = values(%fruits);

    这里，@fruitvalues可能的结果为(9,23.11)，次序可能不同。
九、用关联数组循环
    前面已经出现过利用keys()函数的foreach循环语句，这种循环效率比较低，因为每返回一个下标，还得再去寻找其值，如：

foreach $holder (keys(%records)){
  $record = $records{$holder};
}

    Perl提供一种更有效的循环方式，使用内嵌函数each()，如：

%records = ("Maris",61,"Aaron",755,"Young",511);
while (($holder,$record) = each(%records)) {
  # stuff goes here
}

    each()函数每次返回一个双元素的列表，其第一个元素为下标，第二个元素为相应的值，最后返回一个空列表。
    注意：千万不要在each()循环中添加或删除元素，否则会产生不可预料的后果。
十、用关联数组创建数据结构
    用关联数组可以模拟在其它高级语言中常见的多种数据结构，本节讲述如何用之实现：链表、结构和树。
1、(单)链表
    链表是一种比较简单的数据结构，可以按一定的次序存贮值。每个元素含有两个域，一个是值，一个是引用（或称指针），指向链表中下一个元素。一个特殊的头指针指向链表的第一个元素。
    在Perl中，链表很容易用关联数组实现，因为一个元素的值可以作为下一个元素的索引。下例为按字母顺序排列的单词链表：

%words =("abel","baker",51); Font-family:Arial; Font-size:14px; line-height:26px">           "baker","charlIE",51); Font-family:Arial; Font-size:14px; line-height:26px">           "charlIE","delta",51); Font-family:Arial; Font-size:14px; line-height:26px">           "delta","");

$header ="abel";

    上例中，简单变量$header含有链表中第一个单词，它同时也是关联数组第一个元素的下标，其值baker又是下一个元素的下标，依此类推。
    下标为delta的最后一个元素的值为空串，表示链表的结束。
    在将要处理的数据个数未知或其随程序运行而增长的情况下，链表十分有用。下例用链表按字母次序输出一个文件中的单词。

1 : #!/usr/local/bin/perl
2 :
3 : # initialize List to empty
4 : $header = "";
5 : while ($line = <STDIN>) {
6 :   # remove leading and trailing spaces
7 :   $line =~ s/^\s+|\s+$//g;
8 :   @words = split(/\s+/,$line);
9 :   foreach $word (@words) {
10:     # remove closing punctuation,if any
11:     $word =~ s/[.,;:-]$//;
12:     # convert all words to lower case
13:     $word =~ tr/A-Z/a-z/;
14:     &add_word_to_List($word);
15:   }
16: }
17: &print_List;
18:
19: sub add_word_to_List {
20:   local($word) = @_;
21:   local($pointer);
22:
23:   # if List is empty,add first item
24:   if ($header eq "") {
25:     $header = $word;
26:     $wordList{$word} = "";
27:     return;
28:   }
29:   # if word IDentical to first element in List,
30:   # do nothing
31:   return if ($header eq $word);
32:   # see whether word should be the new
33:   # first word in the List
34:   if ($header gt $word) {
35:     $wordList{$word} = $header;
36:     $header = $word;
37:     return;
38:   }
39:   # find place where word belongs
40:   $pointer = $header;
41:   while ($wordList{$pointer} ne "" &&
42:     $wordList{$pointer} lt $word) {
43:     $pointer = $wordList{$pointer};
44:   }
45:   # if word already seen,do nothing
46:   return if ($word eq $wordList{$pointer});
47:   $wordList{$word} = $wordList{$pointer};
48:   $wordList{$pointer} = $word;
49: }
50:
51: sub print_List {
52:   local ($pointer);
53:   print ("Words in this file:\n");
54:   $pointer = $header;
55:   while ($pointer ne "") {
56:     print ("$pointer\n");
57:     $pointer = $wordList{$pointer};
58:   }
59: }

Here are some words.
Here are more words.
Here are still more words.
^D
Words in this file:
are
here
more
some
still
words

    此程序分为三个部分：

·  主程序：读取输入并转换到相应的格式。

·  子程序：add_word_to_List，建立排序单词链表。

·  子程序：print_List，输出单词链表

    第3~17行为主程序，第4行初始化链表，将表头变量$header设为空串，第5行起的循环每次读取一行输入，第7行去掉头、尾的空格，第8行将句子分割成单词。9~15行的内循环每次处理一个单词，如果该单词的最后一个字符是标点符号，就去掉。第13行把单词转换成全小写形式，第14行传递给子程序add_word_to_List。
    子程序add_word_to_List先在第24行处检查链表是否为空。如果是，第25行将单词赋给$header，26行创建链表第一个元素，存贮在关联数组%wordList中。如果链表非空，37行检查第一个元素是否与该单词相同，如果相同，就立刻返回。下一步检查这一新单词是否应该为链表第一个元素，即其按字母顺序先于$header。如果是这样，则：
    1、创建一个新元素，下标为该新单词，其值为原第一个单词。
    2、该新单词赋给$header。
    如果该新单词不该为第一个元素，则40~44行利用局域变量$pointer寻找其合适的有效位置，41~44行循环到$wordList{$pointer}大于或等于$word为止。接下来46行查看该单词是否已在链表中，如果在就返回，否则47~48行将其添加到链表中。首先47行创建新元素$wordList{$word}，其值为$wordList{$pointer}，这时$wordList{$word}和$wordList{$pointer}指向同一个单词。然后，48行将$wordList{$pointer}的值赋为$word，即将$wordList{$pointer}指向刚创建的新元素$wordList{$word}。
    最后当处理完毕后，子程序print_List()依次输出链表，局域变量$pointer含有正在输出的值，$wordList{$pointer}为下一个要输出的值。
    注：一般不需要用链表来做这些工作，用sort()和keys()在关联数组中循环就足够了，如：

foreach $word (sortkeys(%wordList)) {
  # print the sorted List,or whatever }

    但是，这里涉及的指针的概念在其它数据结构中很有意义。
2、结构
    许多编程语言可以定义结构(structure)，即一组数据的集合。结构中的每个元素有其自己的名字，并通过该名字来访问。
    Perl不直接提供结构这种数据结构，但可以用关联数组来模拟。例如模拟C语言中如下的结构：

struce{
  int fIEld1;
  int fIEld2;
  int fIEld3; }mystructvar;

    我们要做的是定义一个含有三个元素的关联数组，下标分别为fIEld1、fIEld2、fIEld3，如：

%mystructvar = ("fIEld1",
      "fIEld2",
      "fIEld3",);

    像上面C语言的定义一样，这个关联数组%mystrctvar有三个元素，下标分别为fIEld1、fIEld2、fIEld3，各元素初始值均为空串。对各元素的访问和赋值通过指定下标来进行，如：
    $mystructvar{"fIEld1"}= 17;
3、树
    另一个经常使用的数据结构是树。树与链表类似，但每个节点指向的元素多于一个。最简单的树是二叉树，每个节点指向另外两个元素，称为左子节点和右子节点（或称孩子），每个子节点又指向两个孙子节点，依此类推。
    注：此处所说的树像上述链表一样是单向的，每个节点指向其子节点，但子节点并不指向父节点。
    树的概念可以如下描述：

·  因为每个子节点均为一个树，所以左/右子节点也称为左/右子树。（有时称左/右分支）

·  第一个节点（不是任何节点的子节点的节点）称为树的根。

·  没有孩子（子节点）的节点称为叶节点。

    有多种使用关联数组实现树结构的方法，最好的一种应该是：给子节点分别加上left和right以访问之。例如，Alphaleft和Alpharight指向Alpha的左右子节点。下面是用此方法创建二叉树并遍历的例程：

1 : #!/usr/local/bin/perl
2 :
3 : $rootname = "parent";
4 : %tree = ("parentleft","child1",
5 :          "parentright","child2",
6 :          "child1left","grandchild1",
7 :          "child1right","grandchild2",
8 :          "child2left","grandchild3",
9 :          "child2right","grandchild4");
10: # traverse tree,printing its elements
11: &print_tree($rootname);
12:
13: sub print_tree {
14:   local ($nodename) = @_;
15:   local ($leftchildname,$rightchildname);
16:
17:   $leftchildname = $nodename . "left";
18:   $rightchildname = $nodename . "right";
19:   if ($tree{$leftchildname} ne "") {
20:     &print_tree($tree{$leftchildname});
21:   }
22:   print ("$nodename\n");
23:   if ($tree{$rightchildname} ne "") {
24:     &print_tree($tree{$rightchildname});
25:   }
26: }

    结果输出如下：

grandchild1
child1
grandchild2
parent
grandchild3
child2
grandchild4

    该程序创建的二叉树如下图：

    注意函数print_tree()以次序“左子树、节点、右子树”来输出各节点的名字，这种遍历次序称为“左序遍历”。如果把第22行移到19行前，先输出节点明，再输出左子树、右子树，则为“中序遍历”，如果把第22行移到25行后，输出次序为左子树、右子树、节点，则为“右序遍历”。
    可以用同样的方法，即连接字符串构成下标，来创建其它的数据结构，如数据库等。

我们已经见过用print函数将原始的未格式化的文本输出到文件，本章讲述如何用函数write和打印格式来生成格式化的输出。
二、显示打印格式
    打印格式的显示有两步：
     1、将系统变量$~设成所要使用的格式
     2、调用函数write
    例如：

1 : #!/usr/local/bin/perl
2 : 
3 : $~ = "MYFORMAT";
4 : write;
5 : 
6 : format MYFORMAT =
7 : ===================================
8 : Here is the text I want to display.
9 : ===================================
10: .

$ program
===================================
Here is the text I want to display.
===================================
$

    如果不用$~指定打印格式，Perl解释器就假定要使用的格式名与要写入的文件变量同名，在本例中，如果不指定使用MYFORMAT，则Perl解释器试图使用名为STDOUT的打印格式。
三、在打印格式中显示值
    我们使用打印格式的主要原因当然是格式化存贮在简单变量或数组变量中的值从而生成可读性好的输出，这一目的用“值域”来实现。每个值域指定一个值，如变量或表达式，调用write函数时，该值就以值域指定的格式显示。
1、通用的打印格式
    打印格式的一个缺点是定义中包含了变量名，例如：

format MYFORMAT =
==========================================================
The winning number is @<<<<<<!
$winnum
==========================================================.

    当调用write输出此格式时，必须记着它使用了变量$winnum。用子程序和局域变量就可以创建更通用的打印格式。下例从STDIN输入一个文件并输出五个出现频率最高的字母及出现次数。

1 : #!/usr/local/bin/perl
2 : 
3 : while ($line = ) {
4 :   $line =~ tr/A-Z/a-z/;
5 :   $line =~ s/[^a-z]//g;
6 :   @letters = split(//,$line);
7 :   foreach $letter (@letters) {
8 :     $lettercount{$letter} += 1;
9 :   }
10: }
11: 
12: $~ = "WRITEheader";
13: write;
14: $count = 0;
15: foreach $letter (reverse sort occurrences
16:       (keys(%lettercount))) {
17:   &write_letter($letter,$lettercount{$letter});
18:   last if (++$count == 5);
19: }
20: 
21: sub occurrences {
22:   $lettercount{$a} <=> $lettercount{$b};
23: }
24: sub write_letter {
25:   local($letter,$value) = @_;
26: 
27:   $~ = "WRITELETTER";
28:   write;
29: }
30: format WRITEheader =
31: The five most frequently occurring letters are:
32: .
33: format WRITELETTER =
34:   @: @<<<<<<
35:   $letter,$value
36: .

$ program

This is a testfile.

This test filecontains some input.

The quickbrown fox jumped over the lazy dog.

^D

The five mostfrequently occurring letters are:

        t: 10

        e: 9

        i: 8

        s: 7

        o: 6

$

2、格式和局域变量
    在上例中，你可能已经注意到子程序write_letter调用write输出字母及其出现次数，即使格式定义在子程序外部仍能正常工作。在第17行中将字母及其出现次数传递给该子程序，在子程序中，打印格式使用局域变量$letter和$value，这样保证了在foreach循环中每次输出当前的字母和值。
    然而要注意的是，使用my定义的局域变量要求格式定义在子程序内部，否则就不会输出，因此，用write输出的局域变量一定要用local定义。（local和my详见《子程序》一章）
    注：Perl4中没有my函数，故不会有此问题。
3、选择值域格式
    我们已经知道了打印格式和write函数怎么工作，现在来看看值域的格式，见下表：

    每个值域的第一个字符是行填充符，当使用@字符时，不做文本格式化。对文本的格式化稍后来讲。
    在上表中，除了多行值域@*，域宽都等于其指定的包含字符@在内的字符个数，例如：
     @###.##
    表示七个字符宽，小数点前四个，小数点后两个。
4、输出值域字符
    在打印格式里，特定字符如@、<和>被看作值域定义，那么如何将它们输出呢？方法如下：

format SPECIAL =
This line contains the special character @.
"@"
.

四、输出到其它文件
    缺省地，函数write将结果输出到标准输出文件STDOUT，我们也可以使它将结果输出到任意其它的文件中。最简单的方法就是把文件变量作为参数传递给write，如：
     write(MYfile);
    这样，write就用缺省的名为MYfile的打印格式输出到文件MYfile中，但是这样就不能用$~变量来改变所使用的打印格式。系统变量$~只对缺省文件变量起作用，我们可以改变缺省文件变量，改变$~，再调用write，例如：
     select(MYfile);
     $~ ="MYFORMAT";
     write;
    当select改变缺省文件变量时，它返回当前缺省文件变量的内部表示，这样我们就可以创建子程序，按自己的想法输出，又不影响程序的其它部分，如下：

sub write_to_stdout {
  local ($savefile,$saveformat);
  $savefile = select(STDOUT);
  $saveformat = $~;
  $~ = "MYFORMAT";
  write;
  $~ = $saveformat;
  select($savefile);
}

五、分页
    在输出到打印机时，可以在每页顶部输出相应的信息，这样的特殊文本叫页眉。定义页眉实际上就是定义名为filename_top的打印格式，例如给标准输出文件定义页眉如下：
     formatSTDOUT_top =
    ConsolIDated Widgets Inc. 1994 Annual Report
     .
    在页眉的定义中也可以包含值域，页眉中经常使用的一个特殊值是当前页码，存贮在系统变量$%中，如：
     formatSTDOUT_top =
     Page@<<.
     $%
     .
    我们也可以通过改变系统变量$^改变定义页眉的打印格式名，与$~一样，$^只对当前缺省文件起作用，因此可以与select函数结合使用。
    缺省情况下，每页长度为60行，可以通过改变$=来改变页长，如：
     $= = 66; #页长设为66行
    此赋值语句必须出现在第一个write语句前。
    注：一般使用分页机制时不用print函数，因为当用write输出时，Perl解释器跟踪每页的当前行号。如果必须使用print而又不打乱页计数，可以调整系统变量$-。$-的含义是当前行到页末之间的行数，当$-达到零时，就开始新的一页，调整方法如：
     print("Here is a line of output\n");
     $- -= 1;
六、格式化长字符串
    我们已经学过值域@*可以输出多行文本，但它完全将字符串原样输出，不加以格式化。在Perl中对长字符串（包含换行）进行格式化的值域定义很简单，只需把打头的@字符换成^就行了，这种文本格式化中，Perl解释器在一行中放置尽可能多的单词。每当输出一行文本，被输出的子串就从变量中删除，再次在域值中使用该变量就把剩下的字符串继续按格式输出。当内容已输出完毕，该变量就成了空串，再输出就会输出空行，为避免输出空行，可以在值域格式行首加一个~字符。见下例：

1 : #!/usr/local/bin/perl
2 : 
3 : @quotation = <STDIN>;
4 : $quotation = join("",@quotation);
5 : $~ = "QUOTATION";
6 : write;
7 : 
8 : format QUOTATION =
9 : Quotation for the day:
10: -----------------------------
11: ~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
12: $quotation
13: ~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
14: $quotation
15: ~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
16: $quotation
17: -----------------------------
18: .

$ program
Any sufficIEntly advanced programming
language is indistinguishable from magic.
^D
Quotation for the day:
-----------------------------
   Any sufficIEntly advanced programming language is 
   indistinguishable from magic. 
-----------------------------
$

    如果把打印格式中行首的~字符去掉，上面的输出结果中就会多一行空行。很明显，当字符串长度不明确时，这种用法很不方便，原因就在于它指明了输出的行数上限，超过这一上限的字符就不会被输出，解决方法很简单，就是在域值格式行首加两个~字符，这样就会持续按格式输出文本直到输出完毕，用此方法把上述程序改写如下：

6 : write;
7 : 
8 : format QUOTATION =
9 : Quotation for the day:
10: -----------------------------
11: ~~^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
12: $quotation
13: -----------------------------
14: .

    这样运行结果相同。
七、用printf格式化输出
    还有一种容易掌握和使用的格式化输出函数，那就是printf，它与C语言中的printf基本上是相同的。printf有两个参数，一个是字符串，其中含有一个或多个域值形式，另一个是与各域值相对应的变量值按一定格式替换，如：
    printf("The number I want to print is %d.\n",$number);
    各种域值形式如下表：

    一些使用细节如下：

1、在格式d、o、u或x中，如果整数值较大或可能较大，可加个l字符，意为长整型，如%ld。
2、%字符后加正整数表示该域的最小宽度，如果输出结果宽度不足，则向右对齐，前面用空格补足，如果该正整数以数字0打头，则补足字符为0。若%字符后为负整数，则结果向右对齐。
3、浮点数域值(%c、%f和%g)中可以指定小数点前后的宽度，如%8.3f意为总宽度为8个字符，小数点后（即小数部分）为3个字符，多出的小数部分四舍五入。
4、在整数、字符或字符串的值域中使用如上的小数形式n.m，整数部分n为总宽度，小数部分m为输出结果的最大宽度，这样就保证了输出结果前至少有n-m个空格。

本章所讲的函数多数使用了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 = <WOUT>;
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 1day,6:37,6 users,load average: 0.79,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 STDOUTFailed");
4: open (STDERR,">&STDOUT") || dIE ("open STDERRFailed");
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 STDOUTFailed");
4 : open (STDERR,">&STDOUT") || dIE ("open STDERRFailed");
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");
     printOUTfile ("Hello,there!\n");
    第一句输出到当前缺省文件中，若未调用select，则为STDOUT。第二句输出到由文件变量OUTfile指定的文件中。
    printf函数先格式化字符串再输出到指定文件或当前缺省文件中，如：
     printfOUTfile (“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 aline from the first file.
     Here is thelast line of the first file.
    file2的内容为：
     This is aline from the second and last file.
     Here isthe 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,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、跳过和重读数据

3、系统读写函数

函数名

sysread

调用语法

sysread (filevar,skipval);

解说

更快的读取数据，与UNIX函数read等效，参数与read相同。

函数名

getc

调用语法

$char = getc (infile);

解说

从文件中读取单个字符。

函数名

binmode

调用语法

binmode (filevar);

解说

当你的系统（如类DOS系统）对文本文件和二进制文件有所区别时使用。必须在打开文件后、读取文件前使用。

函数名

mkdir

调用语法

mkdir (dirname,permissions);

解说

创建新目录，参数为：
1、dirname：将要创建的目录名，可以为字符串或表达式
2、permissions：8进制数，指定目录的访问权限，其值和意义见下表，权限的组合方法为将相应的值相加。

函数名

rename

调用语法

rename (oldname,newname);

解说

改变文件名或移动到另一个目录中，参数可为字符串或表达式。

函数名

link

调用语法

link (newlink,file);

解说

创建现有文件的链接--硬链接，file是被链接的文件，newlink是被创建的链接。
成功返回真，失败返回假。
当删除这两个链接中的一个时，还可以用另一个来访问该文件。

函数名

chmod

调用语法

chmod (permissions,fileList);

解说

改变文件的访问权限。参数为：
1、permissions为将要设置的权限，其含义见上述mkdir中权限表
2、fileList为欲改变权限的文件列表

函数名

truncate

调用语法

truncate (filename,length);

解说

将文件的长度减少到length字节。如果文件长度已经小于length，则不做任何事。其中filename可以为文件名，也可以为文件变量

函数名

dbmopen

调用语法

dbmopen (array,dbmfilename,permissions);

解说

将关联数组与DBM文件相关联。参数为：
1、array：所用关联数组
2、dbmfilename：将打开的DBM文件名
3、访问权限，详见mkdir

integer

使用整数运算

Diagnostics  

输出较多的诊断信息（警告）

English

允许英文名用作系统变量的别名

Env

导入环境变量的Perl模块

POSIX

POSIX标准（IEEE 1003.1）的Perl接口  

Socket

装载C语言的套接字处理机制