perl学习笔记4
匹配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,$rocks,$rocks,$rocks） = qw/talc mica feldspar quartz/;
如果之前的$rocks非空。那，这个赋值语句将不会改变其值。
@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
页:
[1]