正则的问题
时间:2011-03-17
来源:互联网
[ 02:30:32 root@test2 perl]$perl -e 'open(HD,"reg1.pl");while(<HD>){print if /a{2,4}b/;}'
$_salary='aabcdZA';
aab
aaab
aaaaab
aaaaaab
aaaaaaab
aaaaaabc
[ 02:30:35 root@test2 perl]$cat reg1.pl
#!/usr/bin/perl
#auth youcz March 2nd Wednesday
$_=5050;
$temp='aa';
$_salary='aabcdZA';
$_salary=~tr/a-z/A-Z/;
print $_salary;
aab
aaab
aaaaab
aaaaaab
aaaaaaab
abc
aaaaaabc
能解释下匹配原则吗,为什么都打出来了?
$_salary='aabcdZA';
aab
aaab
aaaaab
aaaaaab
aaaaaaab
aaaaaabc
[ 02:30:35 root@test2 perl]$cat reg1.pl
#!/usr/bin/perl
#auth youcz March 2nd Wednesday
$_=5050;
$temp='aa';
$_salary='aabcdZA';
$_salary=~tr/a-z/A-Z/;
print $_salary;
aab
aaab
aaaaab
aaaaaab
aaaaaaab
abc
aaaaaabc
能解释下匹配原则吗,为什么都打出来了?
作者: youcz 发布时间: 2011-03-17
本帖最后由 jason680 于 2011-03-17 14:52 编辑
printf if /a{2,4}b/
aab ==> match
aaab ==> match
aaaaab ==> match
aaaaaab ==> match
aaaaaaab ==> match
abc ==> not match
aaaaaabc ==> match
QUOTE:
[ 02:30:32 root@test2 perl]$perl -e 'open(HD,"reg1.pl"while(){print if /a{2,4}b/;}'
$_salary='aab ...
youcz 发表于 2011-03-17 14:32
$_salary='aab ...
youcz 发表于 2011-03-17 14:32
printf if /a{2,4}b/
aab ==> match
aaab ==> match
aaaaab ==> match
aaaaaab ==> match
aaaaaaab ==> match
abc ==> not match
aaaaaabc ==> match
作者: jason680 发布时间: 2011-03-17
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28