perl学习笔记4

hncys

　　匹配FRED 时，也能匹配上fred, Fred，可以使用修饰符/i。
　　点(.)不匹配换行符，这对于“单行中查找”的问题能很好解决。
　　如果你的字符串中有换行符，那可以使用/s 这个修饰符。
　　$_="I saw Barney\ndown at the bowling alley\nwith Fred\nlast night.\n";
if(/Barney.*Fred/s){
print "That string mentions Fred after Barney!\n";
}else{
print "No matched!"
}
　　
　　/x 修饰符，允许你在模式中加入任何数量的空白，以方便阅读。
　　/-?\d+\.?\d*/ #这是什么含义？
　　/ -? \d+ \.? \d* /x #要好些
　　由于/x 允许模式中使用空白，那么模式中的空格，制表符将被忽略。
　　可以在空格前加上反斜线或者使用\t，但匹配空白更常用的方法是使用\s(\s*或\s+)。
　　符号^(脱字字符◆)表示在字符串的开头进行匹配，而符号$则表示在结尾。
　　词界锚定，\b，是针对单词使用的。如/\bfred\b/可以匹配上单词fred，但不能匹配frederick。
　　非词界锚定为\B。它将在任何非\b 匹配的点上进行匹配。
　　模式/\bsearch\B/将匹配searches, searching, searched, 但不能匹配search，或者researching。
　　
　　绑定操作符，=~
　　对$_进行匹配只是默认的行为，使用绑定操作符(=~)将告诉Perl 将右边的模式在左边的字符串上进行匹配，而非对$_匹配。
　　其含义是：“这个模式默认将对$_进行匹配，但此时将对左边的字符串进行匹配”。如果没有绑定操作符，则此表达式将对$_匹配。
　　my $some_other = "I dream of betty rubble.";
if($some_other =~ /\brub/){
print "Aye, there's the rub.\n";
}else{
print "No matched!";
}
　　
　　输入的字符不会自动存储在$_中，除非行输入操作（<STDIN>）单独出现在while 循环的条件判断部分。
　　
　　模式内的内插
　　my $what = “larry”;
　　if(/^($what)/){ #在字符串前面进行匹配
　　...
　　
　　在命令行中输入需要匹配的模式，使用参数@ARGV：
　　my $what = shift @ARGV;
　　
　　三个奇怪的变量：
　　if("Hello there,neighor"=~/\S(\w+),/){
print "$&"."\n";
print "$`"."\n";
print "$'"."\n";
}
　　输出：
　　there,
Hello
neighor
　　三个变量的值可能是空的。
　　
　　如果结尾有两个或两个以上的换行符◆，chomp 仅去掉一个。
　　要分辨其是undef 还是空串，可以使用defined 函数，它将在为undef 时返回false，其余返回true。
　　
　　列表值也可以赋给变量：
　　
　　($fred, $barney, $dino) = (“flintstone”, “rubble”, undef);
　　($fred, $barney) = ($barney, $fred) #交换两个变量
　　
　　可以使用如下的一行代码来创建按一个字符串数组：
　　（$rocks[0],$rocks[1],$rocks[2],$rocks[3]） = qw/talc mica feldspar quartz/;
　　如果之前的$rocks[7]非空。那，这个赋值语句将不会改变其值。
　　@rocks = qw / bedrock slate lava /; #@rocks来引用整个数组。
　　@copy = @quarry; #将一个数组中的值拷贝的另一个数组中
　　
　　pop 操作将数组的最后一个元素取出并返回：
　　@array = 5..9;
　　$fred = pop(@array); #$fred 得到9，@array 现在为（5，6，7，8）
　　push，它可以将一个元素（或者一列元素）加在数组的末尾：
　　push(@array,0); #@array 现在为(5,6,7,8,0)
　　push @array,1．．10; #@array 现在多了10 个元素
　　
　　push 和pop 对数组的末尾进行操作。
　　unshift 和shift 对一个数组的开头进行操作。
　　@array = qw# dino fred barney #;
　　$m = shift (@array); #$m 得到“dino”, @array 现在为(“fred”, “barney”)
　　unshift(@array,5); #@array 现在为（fred,barney,5）
　　
　　@rocks = qw{ flintstone slate rubble };
　　print “quartz @rocks limestone\n”; #输出为5 种rocks 由空格分开
　　输出：quartz flintstone slate rubble limestone
　　
　　Perl 最常用的默认变量：$_
　　

foreach(1..10){ #使用默认的变量$_

print “I can count to $_!\n”;

　　}

　　
　　@fred = 6 ．．10;
　　@barney = reverse (@fred); #得到10，9，8，7，6