Perl之正则表达式

正则表达式(regular expression)描述了一种字符串匹配的模式，可以用来检查一个串是否含有某种子串、将匹配的子串做替换或者从某个串中取出符合某个条件的子串等。
Perl语言的正则表达式功能非常强大，基本上是常用语言中最强大的，很多语言设计正则式支持的时候都参考Perl的正则表达式。
Perl的正则表达式的三种形式，分别是匹配、替换和转化：
匹配：m//（还可以简写为//，略去m）
替换：s///
转化：tr///
这三种形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

1.匹配操作符

匹配操作符 m// 用于匹配一个字符串语句或者一个正则表达式。
例如，匹配标量str中的字符串”123”;

#! /usr/bin/perl
$str="正则表达式使用,匹配参数123,456,798!";
if($str=~"123")#=~表示相匹配
{printf("匹配成功\n");
}
else
{printf("匹配失败\n");
}

2.模式匹配修饰符

在这里插入图片描述

正则表达式变量
perl处理完后会给匹配到的值存在三个特殊变量名:
$`: 匹配部分的前一部分字符串
$&: 匹配的字符串
$': 还没有匹配的剩余字符串

示例：

#! /usr/bin/perl
$str="正则表达式使用,匹配参数123,456,798!";
print "原始字符串:$str\n";
if($str=~"123")#=~表示相匹配
{printf("匹配成功,匹配字符串之前内容:$`\n");printf("要匹配的字符串:$&\n");printf("匹配的字符串之后的内容:$'\n");
}
else
{printf("匹配失败\n");
}

不区分大小写示例：

#! /usr/bin/perl
$str="hello,welcomewByQ";
if($str=~/WBYQ/i) #i表示不区分大小写
{print "匹配成功，匹配字符串:$&\n";print "匹配前面字符:$`";
}

示例：

[wbyq@wbyq 0709]$ ./1.pl
匹配成功，匹配字符串:wByQ
匹配前面字符:hello,welcome

3.替换操作符

替换操作符s///是匹配操作符的扩展，使用新的字符串替换指定的字符串。基本格式如下：
格式：s/PATTERN/REPLACEMENT/;
PATTERN 为替换内容；
REPLACEMENT 为要替换的字符串；
示例：

#! /usr/bin/perl
$str="hello,wbyq,welcome!";
print "$str\n";
$str=~s/wbyq/WBYQ/; #将"wbyq"替换为"WBYQ"
print "$str\n";

运行效果：

[wbyq@wbyq 0709]$ ./1.pl
hello,wbyq,welcome!
hello,WBYQ,welcome!

4.替换操作修饰符

替换操作修饰符如下表所示：
在这里插入图片描述

5.转化操作符

以下是转化操作符相关的修饰符：
在这里插入图片描述

#! /usr/bin/perl
$str="hello,welcomewByQ";
$str=~tr/a-z/A-Z/;#将所有的小写转换为大写
print "$str\n";
$str="hello,aaa,bbb,ccc,DDD";
print "原字符串:$str\n";
$str=~tr/a-z,A-Z//s; #将重复的字符删除
print "原字符串:$str\n";