您的位置:首页 > 健康 > 美食 > Perl之正则表达式

Perl之正则表达式

2024/10/14 3:59:40 来源:https://blog.csdn.net/weixin_44453694/article/details/140447772  浏览:    关键词: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";

运行效果:

[wbyq@wbyq 0709]$ ./1.pl
HELLO,WELCOMEWBYQ
原字符串:hello,aaa,bbb,ccc,DDD
原字符串:helo,a,b,c,D

版权声明:

本网仅为发布的内容提供存储空间,不对发表、转载的内容提供任何形式的保证。凡本网注明“来源:XXX网络”的作品,均转载自其它媒体,著作权归作者所有,商业转载请联系作者获得授权,非商业转载请注明出处。

我们尊重并感谢每一位作者,均已注明文章来源和作者。如因作品内容、版权或其它问题,请及时与我们联系,联系邮箱:809451989@qq.com,投稿邮箱:809451989@qq.com