perl学习笔记（二）

 

               Perl学习笔记2

                               Eddy0825

 

 

1：perl与C语言的不同：

   A：整数与浮点数均被看作双精度浮点数。

   B：对于长的整数，perl用下划线来分隔，如：123456，可以表示为

123_456。

   C：perl中NULL没有特殊的含义，不能靠null来判断字符串是否结束。

   D：perl变量，数组使用前无须声明，但函数使用前需要声明。

   E：空的控制语句如if，不能省略{ }，而c语言可以。

   F：perl无Boolean类型，真假原则如下：

如值为数字，0为false,其余为真。

如值为字符串，则空串（‘’）为false,其余为真。

特殊之处：perl将0与‘0’相同对待。

   G：交换变量的值：

（$fred，$barney） = （$barney，$fred），而C语言需要临时变量。

   H：数组直接拷贝：

       @copy = @quarry；#将一个数组中的值拷贝到另一个数值中。

2：单引号双引号区别：

       单引号字符串中的/n不会被当作换行符来处理，其仅仅是两个字符/和n。只有在反斜线/后面接的是/或单引号’时，其才会被当作特殊字符使用。

   串联操作符：.

   字符串重复操作符（string repetition operator）：由小写的字母x表示，把操作符左边的字符串重复操作符右边数字那么多次数。

3：perl warnings

   可以在命令行用－w参数打开警告：

      $perl –w my_program

   打开警告提醒的方法：

      UNIX：#! /usr/bin/perl –w

      WINDOWS：#! Perl –w

   获得更多的诊断信息：

      #! /usr/bin/pelr

      use diagnostics;   #diagnostics（诊断）

4：字符串变量知识：

        当一个字符串由双引号括起来时，如果变量前面没有反斜线，其变量值将被内插，即字符串中的变量被其值代替。

     其中：单独一个变量，引号没有意义。

        Print “$fred”;等价于print $fred;

5：字符串的比较运算符

       相等：   eq

       不等：   ne

       小于：   lt

       大于：   gt

       小于或等于：le

       大于或等于：ge

6： chomp操作：

    功能：去掉字符串结尾的换行符。

举例：chomp(#text =<STDIN>)；＃读入，但不含换行符

注：如结尾有两个或两个以上的换行符，chomp仅去掉一个。

7：Pop与Push操作：对数组的末尾进行操作。

   pop操作将数组的最后一个元素取出并返回。

   Push操作将一个元素或一列元素加在数组的结尾。

   形式如下：pop(数组变量)；push（数组变量，添加的元素）

   举例：@array = 5..9；

         $fred = pop(@array)；#$fred得到9，@array为（5，6，7，8）

         push（@array,0）;#@array变为（5，6，7，8，0）

   与pop/push相似，shif/unshift操作符对一个数组的开头进行操作。

8：标量与列表上下文（重点）

   上下文：即表达式存在的地方。

   标量与列表的区别：

   举例：  $fred = something;        #标量context

           @pebbles = something;    #列表context

           ($Wilma,$sjej) = something; #列表context

           ($fred) = something;       #列表context （注意与第一个区别）

       如在reverse，在列表context中，返回反转的列表；在标量context中，返回反转的字符串

   函数scalar：强制将列表context转换为标量context。

9：定义子程序（subroutine）：使用关键字sub，子程序的名字（无&这个符号）

    sub marine

    {

       $n+=1;

       print “Hello,sailor numners $n!/n”;

}

子程序调用的规则：计算每一步的值，返回子程序中最后计算的值。

且子程序的定义是全局的。

子程序的调用方法：&marine;(*)

10：最大值程序：

$maximum = &max(3,5,10,4,6);

 

sub max

{

 my($max_so_far) = shift @_; //从参数数组@_中取出

foreach (@_)             //foreach循环遍历@_剩下的值

{

  if($_>max_so_far)      //循环中默认控制变量为$_,第一次循环$_为5

  {

    $max_so_far = $_;

  }

}

$max_so_far;

}

创建私有变量的方法：my,如：my($m,$n);

my操作不会改变赋值残暑的context.

注：use strict； #迫使程序采取严格的检测

11：<>输入操作符：程序如下，

while(<>)

{

chomp;

print “It was $_ that I saw!/n”;

}

其中，chomp使用了默认参数，没有变量时，chomp将对$_操作。

      <>通常被用来处理所有的输入。

12：区别程序：

   打印数组与内插一个数组是不同的。

@array = qw /fred barney betty/;

 print @array;   #打印出元素的列表

 print “@array”; #打印一个字符串（包含一个内插的数组）

 第一个输出：fredbarneybetty

 第二个输出：fred barney betty（由空格分开）

13：当print调用的方法看起来是函数调用，它就是函数调用。

Print原则：

  当print后面无括号时，print是一列表调用。

  当print后面有括号时，print为函数调用，输出括号中的内容。

如：print (2+3)*4;

  表示：输出5，将print的返回值1乘以4，结果被丢弃。

14：数组与printf：

my @items = qw( Wilma dino pebbles);

my $format = “The items are:/n”.(“%10s/n”x@items);

printf $format,@items;

等价于：

printf “The items are:/n”.(“%10s/n”x @items),@items;

其中，@items使用了两次，一次在标量context中，取其元素的个数；一次在列表context中取元素。

注：x操作符：确定字符串要重复的次数。

15：文件句柄（filehandle）：是程序I/O连接的名字，不是文件的名字。

Perl自带了六个文件句柄：STDIN,STDOUT,STDERR,DATA,ARGV,ARGVOUT

文件句柄的打开：

open CONFIG,”dino”

   打开名为CONFIG的文件句柄，指向dino文件。默认是输入。

open CONFIG，”<dino”;

   功能同上，<明确指明：使用这个文件进行输入操作。

open BEDROCK,”>fred”;

   打开文件句柄BEDROCK,输出到新文件fred中。

open LOG,.”>>logfile”;

   >>打开一个文件，数据追加到文件后面。

Perl 5.6版本以后支持三参数的文件格式：

Open CONFIG,”<”,”dino”;

Open BEDROCK,”>”,$file_name;

16：关闭文件句柄：

close BEDROCK;

die函数：

die函数创建自己的严重错误，打印出给定的错误信息，die自动将程序的名字和行数输出在消息的末尾。

If(!open LOG,”>>logfile”)

{

 die “Cannot create logfile:$!”;

}

注：其中的$!指系统产生的一些可读的信息。

Select操作符：改变默认的输出句柄。

注：关于文件句柄的重新打开，只有perl成功的重新打开新的连接，否则不会关闭以前的连接。

17：哈希（hashes）

哈希元素的提取：

$hash{$some_key}

注：此处下标（key）使用的是花括号{},key的表达式是字符串，而不是数字，且key必须是唯一的。

  引用整个hash：使用%号作为前缀。

  Hash的值（在列表context）是一个key/value对的列表。

  大箭头符号：（=>）,用于识别key与value

    举例：my %last_name =

{

  “fred” => “flintstone”,

   “betty” => “rubble”,

}

18：哈希函数：

A：keys与values函数

   Keys返回此hash中所有的keys，values函数返回所有的values.

   My %hash = (“a”=>1,”b”=>2,”c”=>3);

   My @k = keys%hash;

   My @v =values%hash;

   在标量context中：

    my $count = keys%hash;#返回hash中元素的个数。

B：each函数（通常用在while循环中）

   While(($key,$value) = each %hash)

{

   print “$key =>$value/n”;

}

C：exists函数：查看hash中是否存在某个key

   If(exists $books{$dino})

   {

     print “Hey,there’s a libaray card for dino!/n”;

   }

D：delete函数：从hash中删除某个key

    My $person = “betty”;

    Delete $books {$person};#将$person的借书卡删除掉

E：hash元素的内插：用于在双引号的字符串中使用单个元素。

   Foreach $person (sort  keys %books)

   {

     if($books{$person})

      {

        print “$person has $books{$person} items/n”

}

   }

19：正则表达式(regular Expessions)：在perl中也称为模式（pattern）.

注：and与or在正则表达式中不是操作符，仅仅是个单词。

点(.)通配符：可以匹配任何单个的字符，不包括换行符（“/n”）.

*：表示匹配前一字符0次或者多次。

.*：能匹配任何字符串（除了换行符）。

＋：可以匹配前面的字符一次或多次。

？：匹配前面的字符一次或0次。

|（竖线）：匹配左边或右边的。

[]：匹配括号内出现的任意单个字符。

/d：任意数字的类，[0-9]。

/w：称为word字符，[A-Za-z0-9]，注/w不能匹配单词，只能匹配单个字符，

   word由字母，数字。下划线组成。

/s：匹配空白（whitespace），等价于：[/f/t/n/r]

20：正则表达式中可选的修饰符：

/i：不区分大小写

/s：匹配任何字符

/x：添加空格

/b：词界锚定，针对单词的。

＝～：绑定操作符，告诉perl将右边的模式在左边的字符串上进行匹配，而不是对$_匹配。

 如：print “Do you like Perl?”;

     my $likes_perl = (<STDIN> =~//byes/b/I); #括号可以省去，＝~优先级高

      ……  #Times passes…

      if($likes_perl)

      {

         print “You said earlier that you like Perl,So…/n”;

}

匹配变量：

   $_ = “Hello there,neighbor”;

   if(//s(/w+),/)    #匹配空格和逗号之间的词

  {

    print “the world was $1/n”;#the world was there

}

21：perl中提供的三个自动匹配的变量：$&,$`,$’

如：if（”Hello there,neighbor” =~//s(/w+),/）

    {

      print “That was ($`)($&)($')”;

}

输出的消息为：（Hello）(there,)(neighbor).

其中：$&保存整个被匹配的部分，$`保存匹配部分的前一部分。

      $'保存匹配部分的后一部分。

22： 正则表达式处理文件

    全局替换：

$_ = “home,sweet home!”;

s/home/cave/g;

print “$_/n”; #“cave,sweet cave!”;

其他举例：

  s//s+/ /g; #将多个空格用单个空格代替。

  s/^/s+//;  #将开头的空白去掉

  s//s+$//;  #将结尾的空白去掉

  s/^/s+|/s+$//g; #去掉开头结尾的空白

大小写转换：

   $_ = “I saw Barney with Fred.”;

   s/(fred|barney)//U$1/gi;  #$_现在是：I saw BARNEY with FRED.

   /U:转换大写

   /L:转换小写

   /u/L:第一个字符大写，其他字符均小写。

23： 加号的非贪婪类型是：+?,星号的非贪婪类型是：*?

贪婪类型是：.+         贪婪类型是：.*

更新文件：

#! /sur/bin/perl –w

use strict;

 

chomp (my $data =‘date’);

#获取系统的当前时间，更好的方法是localtime函数

# my $date = localtime;

$^I = “.bak”;

 

while(<>)

{

  s/^Author:.*/Author:Randal L. Scharwartz/;

  s/^Phone:.*/n//;

  s/^Date:.*/Date:$date/;

  print;

}

24：perl控制语句：

unless:除非条件为真。

elsif:注意只有一个e

next：结束本次循环，进行下一次循环。

redo：继续执行本次循环

last：立及结束循环，等同于C语言中的break语句。

Perl实现了C中所有的操作符。

举例：？：三目运算符，利用？：编写分支程序小技巧：

  my $size =

      ($width<10)?”small”:

      ($width<20)?”medium”:

      ($width<50)?”large”:

          “extra_large”; #default

25：文件检验

文件检验操作：

如：die “Oops! A file called ‘$filename’ already exists./n”

      if –e $filename;

    # -e选项检测是否存在相同名字的文件。

其他常见的选项有：

   －M:修改的时间

    -T:文本文件

   －B：二进制文件

   －A：访问的时间

   －s：文件或目录存在，大小大于0（值为文件的大小，字节）

例：将文件移动备份磁带

    my @original_files = qw/ fred barney betty Wilma pebbles dino 

                             bam-bamm/;

    my @big_old_files;

    foreach(@original_files)

    {

       push @big_old_files,$_

         if (-s)>100_100 and –A_>90;#比下面的效率高

         #第一次检测使用了默认的变量$_.

         #第二次检测使用_这个文件句柄。

         #if –s $filename >100_100 and –A$filename >90;

}

26：目录操作：

chdir：改变工作目录(等价于Unix中的cd)

   chdir “/etc” or die “cannot chdir to /etc:$!”;

globbing：将文件名模式转换成它所匹配的文件名

   my @all_files = glob “*”;

   #@all_files得到了当前目录下的所有文件，安字母排序，不包括由点.开头的文件

   等价于Unix中的echo命令

目录句柄：

   打开：Opendir,读：readdir.关闭：closedir

删除文件：

   unlink，删除文件（Unix中用rm删除文件）

   unlink glob “*.o”;

    #删除所有文件后缀为.o的文件，unlink返回值为成功删除的文件数。

重命名文件：

   rename,(Unix中用mv命令)

   rename “old”,”new”;

连接与文件：

   link函数。创建一个新的连接。

创建删除目录：

   mkdir,创建新目录。

      Mkdir “fred”,0755 or warn “cannot make fred directory:$!”;

       #0755,表示目录设置的初始权限。

   rmdir：删除目录

修改权限：

   chmod，与Unix相似

   chmod  0755,”fred”,”barney”;

      #chmod返回其成功改变的个数。

改变所有者：

   chown：改变一批文件的所有者及所在的组。

   如：My $user = 1004;

       My $group = 100;

       Chown &user,$group,glob “*.o”;#两者同时修改

改变时间戳：

   utime函数

   my $now = time;

   my $ago = $now-24*60*60;

   utime $now,$ago,glob “*”;

 

27：字符串与排序

使用索引寻找字串

  $where = index($big,$small);

#返回第一个字符的位置，字符位置从0开始。

  rindex:返回字符最后一次出现的位置。

使用substr操作字串

  $part = substr($string,$initial_position,$length);

  三个参数：一个字符串，一个从0开始编号的初始位置，以及字串的长度。

           返回一个子串

  my $mineral = substr(“Fred J.Flintstone”,8,5);

          #得到”Flint”

  my $long =”some very long string”;

 my $right = substr($long,index($long,”l”));

      #返回字符串中字母l后的子串

 继续举例：

  my $string = “Hello,world!”;

  substr($string,0,5) = “Goodbye”;

  #$string现在变为“Goodbye,world!”;

substr($string,-20) =~s/fred/barney/g;

   #将字符串最后20个字符串中的fred改为barney