Perl之正则表达式--模式匹配

大家用过unix或者linux系统，对vi,sed,grep,awk等使用工具不会陌生，应该了解用于定界符搜索模式的正则表达式和元字符。那么什么是正则表达式呢？正则表达式是一种序列或者字符模式，负责在搜索或者替换文本时对文本内容进行字符串匹配。简单的正则表达式直接由待匹配字符串或字符集构成。

正则表达式一般以斜杠(/)做界定符。实际上任何字符串都可以成为界定符。例如:/abc/, ?abc?

表达式修饰符与简单语句

常见修饰符：if unless while until foreach

if条件修饰符

格式 Expression2 if Expression1 如果Expression1表达式为真，则执行Expression2表达式内容。

demo

(1) $x=5;

print $x if x==5; ====>输出5

(2) $_="xabcy\n";

print if /abc/; ====>输出xabcy

(3) $_="I lost my gloves in the clover.";

print "Found love in gloves!\n" if /love/; ====>输出Found love in gloves!

unless修饰符

格式 Expression2 unless Expression1 如果Expression1为假，则执行Expression2表达式内容。

demo

(1) $x=5;

print $x unless $x==6; ====>输出5

while循环修饰符

格式 Expression2 while Expression1 只要第一个表达式为真，while循环修饰符便会重复执行第二个表达式。

demo

(1) $x=1;

print $x++,"\n" while $x!=5; ====>输出1,2,3,4

until修饰符

格式 Expression2 until Expression1 只要第一个表达式为假， while循环修饰符便会重复执行第二个表达式

demo

(1) $x=1;

print $x++,"/n" until $x==5; ====>输出1,2,3,4

foreach修饰符

会逐个判断列表中每个元素的值，并通过标量$_以此引用各个列表元素。

demo

(1) @alpha=(a .. z,"\n");

print foreach @alpha; ====>abcdefghijkmnopqrstuvwxyz

正则表达式运算符

m运算符与匹配

demo

(1) while (<DATA>){

print if /Betty/ ====>输出 Betty Boop

}

__DATA__

Steve Blenheim

Betty Boop

Igor Chevsky

Norma Cord

(2)while (<DATA>){

print if m#Jon#; ====>输出Jon DeLoach

}

__DATA__

Steve Blenheim

Betty Boop

Igor Chevsky

Norma Cord

Jon DeLoach

g全局修饰符

i修饰符：大小写不敏感

demo

(1)$_="I lost my gloves in the clover,Love.";

@list=/love/gi;

print "@list . \n"; ====>love love Love

x表达修饰符用于在正则表达式中放入注释或者空白字符，以便让正则表达式含义更明确。

demo

(1) $_="San Francisco to Hong Kong \n";

/Francisco

/x;

print "Comments and spaces were removed and \$& is $&\n"; ====>输出Comments and spaces were removed and $& is Francisco

S运算符与替换

demo

(1)$_="knock at heaven's door. \n";

s/knock/"knock," *2."knocking"/ei;

print "He's $_"; ====>He's knock,knock,knocking at heaven's door.

模式绑定运算符

=~ !~

demo

(1) while($_=<DATA>){

print $_if $_=~/Igor/; ====>输出Igor Chevsky

}

__DATA__

Steve Blenheim

Betty Boop

Igor Chevsky

Norma Cord

(2) while ($_=<DATA>){

print $_ if $_!~/Igor/; ====>输入除Igor Chevsky以外的名称

}

__DATA__

Steve Blenheim

Betty Boop

Igor Chevsky

Norma Cord