perl /g

最新推荐文章于 2019-09-18 11:48:39 发布

scan724

最新推荐文章于 2019-09-18 11:48:39 发布

阅读量796

点赞数

分类专栏： Perl 正则

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/53789807

版权

Perl 正则专栏收录该内容

20 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

[oracle@oadb test]$ cat t2.pl 
my $str='1a2';
if ($str =~ /[b]*/){print "1111111111\n"};
[oracle@oadb test]$ cat t2.pl 
my $str='1a2';
if ($str =~ /[b]*/){print "1111111111\n"};
[oracle@oadb test]$ perl t2.pl 
1111111111

匹配 0 次或多次b



[oracle@oadb test]$ cat t2.pl 
my $str='1a2';
if ($str =~ /[b]?/){print "1111111111\n"};
[oracle@oadb test]$ perl t2.pl 
1111111111

匹配 0 次或一次 b字符串



[oracle@oadb test]$ cat t2.pl 
my $str='1a';
if ($str =~ /[b]+/){print "1111111111\n"};
[oracle@oadb test]$ perl t2.pl 
[oracle@oadb test]$ 


+ 匹配 1 次或多次b


[oracle@oadb test]$ cat t2.pl 
my $str='b1a';
if ($str =~ /[b]+/){print "1111111111\n"};
[oracle@oadb test]$ perl t2.pl 
1111111111


[oracle@oadb test]$ cat t1.pl 
my $sql="where `lc`.`tb`.`xx` = 1 and `tb

了解本专栏

订阅专栏解锁全文

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

scan724

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
打赏
0
评论
perl /g

[oracle@oadb test]$ cat t2.pl my $str='1a2';if ($str =~ /[b]*/){print "1111111111\n"};[oracle@oadb test]$ cat t2.pl my $str='1a2';if ($str =~ /[b]*/){print "1111111111\n"};[oracle@oadb test]$ pe
复制链接

扫一扫