Perl语言入门笔记 第七章 漫游正则表达式王国

=pod
正则表达式(regular expression)，在perl里面通常也叫做模式(pattern)，是用来表示匹配或不匹配某个字符串的特征模板。
	文件名通配与正则表达式是两个概念。
grep指令：
	$grep 'flint.*stone' chapter*.txt #查看chaper*.txt文件中，有哪行出现过flint且后面跟着stone
	
使用简单模式：
	$_ = "yabba dabba doo";
	if(/abba/)
	{
		print "Matched!\n";
	}
	有许多字符属于空白符，相应属性为space；
	if(/\p{Space}/)
	{
		print "The string has some whitespace\n";
	}
	如果要匹配数字，可以用Digit属性：
		if(/\p{Digit}/)
		[
			print "The string has digit.\n";
		}
	检查连续含有两个十六进制的字符：
		if(/\p{Hex}\p{Hex}/) #\p表示匹配后面跟的属性的意思
		{
			print "The string has a pair of hex digits\n";
		}
		\P表示不匹配后面跟的属性
		
元字符： 元字符前面加上反斜线，元字符就失去了它原有的属性
	.	匹配除\n外所有的字符，一个
	匹配\需要一个\线来转义
	
简单的量词：
	*	匹配前面的那个字符的0次或多次
	.*	匹配任意多个字符(除\n外)，俗称捡破烂(any old junk)
	+	匹配一个或多个
	?	匹配一个或零个
	()	对字符串分组
	/(fred)+/	匹配fredfredfred类的字符串
	
	$_ = "abba"; #匹配'bb'
	if(/(.)\1) #\1是反向引用
	{	}
	$_ = "yabba dabba doo";
	if(/y(.)(.)\2\1/) #匹配'abba'
	
use 5.010;
$_ = "aa11bb";	
if(/(.)\g{1}11){}	#\g{N}写法

use 5.010;
$_ = "xaa11bb";
if(/(.)(.)\g{-1}11/) { } #反向引用，相对于自己的位置

择一匹配：
	竖线|通常读作或，fred|barney|betty能匹配任何含有fred或者barney或者betty的字符串
	/fred(|\t)+barney/	匹配fred和barney之间出现一次以上空格、制表符或两者混合的字符串。加号表示重复一次或更多。每次只要有重复，(|\t)就能匹配空格或制表符，在这两个名字之间至少要有一个空格或制表符。
	/fred(+|\t+)barney/ 中间不是空格就是\t
	/fred(and|or)barney/匹配含有fredandbarney或者fredorbarney

字符集：
	[a-zA-Z] [^adg] 匹配其中的一个，或除其中的一个
	\h	匹配水平空白符
	\v	匹配垂直空白符	\h+\v = \p{Space}
	\R	匹配任意一种断行符，如\r\n还是\n
	\w	匹配任意字符0-9a-zA-Z,下划线也是的

反义简写:
	[^\d] = [\D]
	[^\w] = [\W]
	[^\s] = [\S]
	[\d\D]	匹配任意字符，包括换行
	[^\d\D]	什么都不匹配
	
	
=cut

简单练习：

#!/usr/bin/perl -w
use strict;
=pod
#ex7_1
while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /fred/) and print "$line\n";	
}
=cut
=pod
#ex7_2
while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /[Ff]red/) and print "$line\n";	
}
=cut

=pod
#ex7_3
while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /\./) and print "$line\n";	
}
=cut
=pod
#ex7_4
while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /^[A-Z][a-zA-Z]*[a-z]+[a-zA-Z]*/) and print "$line\n";	
}
=cut
=pod
#ex7_5
while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /(\S)\1/) and print "$line\n";	
}
=cut

while(1)
{
	chomp(my $line = <STDIN>);
	($line =~ /[\d\D]*wilma[\d\D]*fred[\d\D]*|[\d\D]*fred[\d\D]*wilma[\d\D]*/) and print "$line\n";	
}


system "pause";