perl小结

以下纯属个人学习总结，如有问题或疑问请指出

perl语言学习总结：

1.获取用户输入

$line = <STDIN>;

if($line eq "/n"){

 print "你按下了回车";

}else{

 print "你没有按下回车";

}

2.去除换行符

$text = "a line of text/n";

chomp($text);

3.while控制结构

$count = 0;

while($count<10){

$count += 2;

print "count is now $count/n";# 2 4 6 8 10

}

4.如何定义一个数组以及怎么访问数组中的元素

@fred = ("11","22","33","44","55");

print $fred[0];#控制台打印11

$count = 0 ; 

while($count<$#fred+1){#  $#fred 获取数组的索引  

 print "$fred[$count],";//#  控制台打印 11,22,33,44,

 $count++;

}

5.列表直接量

("11","22","33","44");

6.pop和push操作符

pop 获取数组中的最后一个元素

@array = 5..9;

$fred = pop(@array);# 在控制台打印的是9

push 添加一个元素（或是一串元素）到数组的尾端

push(@array , 0); # @array 现在是5,6,7,8,9,0

7.shift和unshift操作符，shift与unshift操作符是对数组的"开头"或"结尾"进行相应的操作

@array = qw# hello word #;

$m = shift(@array); # $m 变成"hello",@array 现在是("word")

unshift(@array,"hello"); # @array 现在是("hello","word")

8.字符串的数组内插

@rocks = qw{hello word};

print "my first @rocks";

9.foreach 控制结构

foreach $example (qw/ hello word /){

 print "$example/n";

}

10.perl 中的$_ 使用  术语：perl的 老地方

foreach(1..10){

 print "$_";

}

11.reverse 操作符, 该操作符会读取列表的值(可能来自数组),并按相反的次序返回该列表

@array = 1..5;

print reverse(@array);

12.sort 操作符的使用，将数组进行相应的排序

@array = ("dd","aa","cc","bb");

print sort(@array); # 控制台输出 aa bb cc dd

13.标题上下文与列表上下文

@array = ("aa","bb","cc");

@list = @array; 

print @list; # 控制台输出 aa bb cc 列表赋值

$n = 1+@array;

print $n; # 控制台输出4  标量赋值

14.强制指定标量上下文

@rocks = qw(hello word);

print @rocks;

print scalar(@rocks);

15.子程序(就象java中的方法)

#创建

sub xx(){

 $_[0]+$_[1];

}

#调用 

$number = &xx(1,2);

print $number; # 控制台输出3

16.子程序中的私有变量

sub max(){

 my($m,$n) = @_;# 将保存在@_中的参数赋值给具体的变量

 if($m>$n){

  $m

 }else{

  $n  

 }

}

17.长度可变的参数列表

sub max(){

 if(@_ != 2){

  print "你传入的参数个数不正确!";

 }

 my($m,$n) = @_;# 将保存在@_中的参数赋值给具体的变量

 if($m>$n){

  $m

 }else{

  $n  

 }

}

18.更好的&max 子程序,可以让它能接受任意数目的参数

sub max(){

 my($max_so_far) = shift(@_);# 数组中的第一个值,暂时把它当成最大值

 foreach(@_){# 遍历数组 @_中的其他元素

  if($_ > $max_so_far){# 看看是否当前的元素比$max_so_far大?

   $max_so_far = $_; 

  }

 }

 $max_so_far;

}

#上面的程序使用了"高水线"的算法

print max(1,6,21,32);# 32

19.关于词法(my) 变量

my $aa,$bb;# $bb 没有声名

my($aa,$bb);# 正确

my @cc # 也可以声名私有数组

20. use strict

个人感觉没有什么太大用途

21.return 的使用

my @names = ("aa","bb","cc","dd","ee");

my $value = &which_element_is("cc",@names);

print $value;

sub which_element_is{

 my($what,@list)=@_;

 foreach(0..$#list){

  if($what eq @list[$_]){

   return $_;

  }

 }

 -1;# 这里也可以写成-1

}

 

其他控制结构

1.unless控制结构：他与if中的条件刚好相反if(true){....} unless(false){....}

2.Until 控制结构：他与while中的条件刚好相反while(true){....} Until(false){.....}

3.条件修饰词：print "$n is a negative number./n" if $n < 0 相当于if($n < 0){print "$n is a negative number./n"}

4.last操作符，相当于java中的break

5.next操作符，相当于java中的continue

6.redo操作符，它能将控制返回到本次环的顶端，不经过任何条件测试，也不会进入下一次循环迭代

哈唏  {} 哈唏必须以花括号进行处理

1. $hash{"xx"} = "xxx";# 给xx这个哈唏进行赋值

print $hash{"xx"};# 输出xxx

2. %hash=("a"=>1,"b"=>2,"c"=>3);#这是一个哈唏列表,a,b,c 都是key ，而1,2,3则是值

print %hash;#输出a1b2c3.这里的输出不一定是这种顺序的，因为哈唏出来的值是无序的

3. keys 和 values 函数

my %hash = ("a"=>1,"b"=>2,"c"=>3);

my @key = keys(%hash);# 输出abc

my @value = values(%hash);# 输出123

print @key , @value;

4.each函数 罗列哈唏的每个键/值对

while(($key , $value) = each %hash){

 print "$key => $value/n";

}

5.exists函数  检查哈希中是否有某个键

if(exists $hash{"a"}){

 print "这个hash中有这个键";

}

6.delete 函数 从哈希中删除指定的键及其相对应的值,假如没有这个键  也不会出现任何警告或错误信息

delete $hash{"a"};

正则表达式：正则表达式，在perl中常常叫做模式，是一个匹配某字符串的模板

1. $_ = "hello world";

if(/llo/){#查看llo在整个标量中是否存在

 print "";

}

2.关于元字符

点号 .   /wyl.xx/ # 说明wyl 任意字符(必须是一个字符) xx

星号(量词) * /wyl*xx/ # 说明wyl 任意字符(可以有任意多个字符) xx

点星.*  捡破烂模式

加号(量词) + /wyl +xx/ # 说明wyl 空格(必须要有一个的空格才行?) xx  如果是wylxx 这样不满足条件的

问号(量词) ? /wyl?xx/ # 之间也可以有字符也可以没有字符

圆括号 () /(wyl)+/ # 他会匹配wylwylwyl这种字符串

/1 /2 /3 反向引用  $_ = "abba";if(/a(.)/1/){print "true";}#输出true

或符号 | 择一匹配  $_ = "wyl and wxs"; if(/wyl and|or wxs/){print "true";}#输出true

字符集 是指一串可能出现的字符集合,通过写在方括号[]内来表示.它只匹配单个字符，但可以是字符集里列出的任何一个.

第一个经典的字符集  [a-zA-Z] :这个字符集可以匹配52个字母中的任何一个

[abcwxyz] 会匹配这7个字符中的任何一个。

脱字符 (^)   [^abc] 会匹配这三个字符(包含这三个字符)以外的任何字符. [^n/-z] 则匹配n 、连字符与z以外的任何字符

字符集简写

[0-9] 可以简写成/d

[A-Za-z0-9_] 可以简写成/w

/s 简写擅长处理空白，它相当于[/f/t/n/r]  比较常见的做法是使用/s*来匹配任意数目的空白(也包括零个空白),或用/s+来匹配一个以上的空白字符

/h 简写能匹配横向空白，其实就是一个包含制表符和空格的字符集[/t ]

/v 这个简写用来匹配纵向的空格，其实也就是写[/f/n/r]的快捷方式

/r 简写能匹配任何类型的断行，这给跨操作系统的断行匹配带来了便利，因为/r知道各种风格的断行方式.

[/d/D] 表示任何数字或非数字

 

以正则表达式进行匹配

1. 以m//进行匹配

m// 就是前面的/xxx/ 的简写。向 / / 符号就是定界符. 还有其它的如：m(xxx),m<xxx>,m{xxx},m[xxx] 等等

这里有个简写：如果你选择双斜线作为定界符，那么你可以省略开头的m。因为perl程序员们喜欢省略多余的字符，所以大部分的模式匹配都会以双斜线来编写，就象/xxx/这样。

常见的定界符是花括号。在程序员专用的编辑器里，可能会具有从左花括号跳到相应右花括号的功能，这在维护上有很大的帮助。

2.可选修饰符

定义：这是一些可有可无的修饰字符，有时候称为开头。它们可以成组附加在某个正则表达式结尾的定界符的右边，并改变正则表达式的默认行为。

用/i 来进行大小写无关的匹配

chomp($_=<STDIN>);

if(/yes/i){

 print "true";#  如果你输入YES，控制台也会打印true 

}

用/s来匹配任意字符 

$_="how are you/nwang yl";

if(/are.*yl/s){

 print "yes true";# 控制台会打印yes true

}

用/x加入空白

这个修饰符能够在模式里面随意加上空白，目的是使它更容易阅读、理解。

/-?/d+/.?/d*/ # 都挤在一起，很难看清是什么意思

/ -? /d+ /.? /d* /x # 加入空白后，稍微清楚些

组合选项修饰符

如果在一个模式中使用多个修饰符，可将它们连在一起使用。它们之间的先后顺序并不会影响匹配的结果：

if(/xx/is){# 同时使用 /i 和 /s

}

# 可以进行注释

$_="how are you/nwang yl";

if(

 m{

  are # 这是一个数量词

  .* # 之间的任何东西

  yl # 随便写的

 }sx #匹配任意字符

){

 print "yes true";

}

锚位

锚位：默认情况下，模式匹配的过程开始于待匹配字符串的开头，如果不相符就往字符串后面浮动，看其它位置能否匹配。但是加入一些锚位，可以让模式直接匹配字符串的某处。

^ 脱字符 是一个锚位 用来标示字符串的开头，

$ 也是一个锚位，用来标示字符串的结尾

单词锚位

锚位并不局限于字符串的首尾。比如/b是单词边界锚位，它匹配任何单词的首尾。

//bwangyl/b/  它只能匹配 wangyl     而不能匹配wangylhowareyou

这里所说的单词并不是一般的英文单词，而是由一组/w字符构成的字符集，也就是由普通英文字母、数字与下划线组成的单词。/b 锚位匹配的是一组/w字符的开头或结尾。

单词边界锚位非常有用，它保证我们不会意外地在delicatessen中找cat、在boondoggle中找到dog或在selfishness中找到fish。有时候、你只会用到一个单词边界锚位、像用//b/来匹配hunt、hunting或hunter，而排除了shunt；或是用/stone/b/ 来匹配standstone事flintstone，但不包括capstones。

非单词边界锚位是/B,它能匹配所有/b不能匹配的位置。

因此，模式//bsearch/B/会匹配searches、searching与searched，但不匹配search或researching。

绑定操作符

默认的情况下模式匹配的对象$_,绑定操作符=~ 则能让perl拿右边的模式来匹配左边的字符串，而非匹配$_。相当于java中的==  equal()

实例：

my $some_other = "hello wangyl , how are you.";

if($some_other =~ //byo/){

 print "true";#控制台输出true；因为$some_other 中包含yo

}

模式串中的内插

 $what = "sky";

while(<>){

 if(/^($what)/){

  print "$what of $_";#当输入sky  则在控制台输出sky of sky

 }

}

捕获变量  看的我有点头晕

字符串操作与排序

用index进行搜索字符串

my $stuff = "hello world!";

my $where = index($stuff,"word");#控制台输出6

my $where = index($stuff,"word",2);# 这里的2的意思是从第二个字符开始搜索，这样会提高搜索效率。

用rindex进行匹配最后一次出现一个字符的位置

my $stuff = "hello world!";

my $where = rindex($stuff,"d");#输出10

my $where = rindex($stuff,"d",2);# 这里的2的意思是从第二个字符开始搜索，这样会提高搜索效率。

用substr处理子串

语法：

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

它需要三个参数：一个字符串、一个从零起算的起始位置(类似index的返回值)以及子串的长度。找到的子串会被返回。

my $xx = substr("hello wangyl",6,5);#wangy

my $xx = substr("hello wangyl",6);#wangyl

my $xx = substr("hello wangyl",6,50000);#wangyl

my $xx = substr("hello wangyl",-3,2);#gy

my $xx = substr("hello wangyl",-3,2000);#gyl

sprintf 进行相应的格式化

my $money = sprintf "%.2f", 2.49997;#2.50

目标操作