正则求助

sunzhiguolu

104359176 发表于 2016-10-30 14:14
想建立自己的正则表达式集合，就建立一个模块，定期更新，CPAN 上有许多类似的模块。

对于目前的我来说, 建立自己的正则表达式集合 还是一个远大的目标啊.
编写一个匹配 全部 由字母和数字组成的字符串的表达式 是不是只能依靠 CPAN 上面的模块才能搞定啊???!!!

jason680

回复 11# sunzhiguolu

what are you talking about?
where is your example?

1. input data
2. procedure
3. output data

sunzhiguolu

回复 12# jason680

#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>){
    chomp;
    next if (/pattern/);
    print "$_\n"; #print string "S1trong168S6tring" only
}

__DATA__
ab1@3
0ab中
S1trong168S6tring

还请您指点, 谢谢...

jason680

回复 13# sunzhiguolu

$ perl -lane '{print if(/\d+/&&/[a-z]/i&&/^[a-z\d]+$/i)}' FILE
S1trong168S6tring

sunzhiguolu

回复 14# jason680
大神 还得向您请教下. 像这个匹配字母数字的问题.
是不是只能依靠程序语言本身的功能才能完成 利用正则表达式匹配的结果来判断的话 是不是超出了正则表达式的能力范围了?

jason680

回复 15# sunzhiguolu

是你不会问问题....

依你的举例，/^[a-z\d]+/i 也是可以

sunzhiguolu

回复 16# jason680

if(/\d+/&&/[a-z]/i&&/^[a-z\d]+$/i)

我的确漏掉了如 全数字或者全字母的情形, 但是什么样的问题能够逃得出这三个条件判断?
如果将测试数据加上全数字或者全字母的情况, 在不依赖程序语言本身的功能 正则表达式还能够完成匹配任务吗?
我重新列举测试数据, 如下:

ab@3
0ab中
12324
sadfsd
S1trong168S6tring

输出结果依然是 "S1trong168S6tring". 谢谢您指点.

jason680

回复 17# sunzhiguolu

会举例，差不多就解题...

A = abcd...
N = 0,1,2,3,...

Number start

1. NA
2. NAN
3. NANA
4. NANAN
5. NANANA
...
N. NANANAN....X   (X=N or A)

Pattern = NA(N|A)*

String start
1. AN
2. ANA
3. ANAN
4. ANANA
5. ANANAN
...
N. ANANAN....X   (X=N or A)

Pattern = AN(A|N)*


$ perl -lane '{print if(/\d+/&&/[a-z]/i&&/^[a-z\d]+$/i)}' FILE
S1trong168S6tring
a3
2b
a33
a33B
3bB1
3aA

$ perl -lane '{$A=qr/[a-z]+/i;$N=qr/\d+/;print if(/^($A$N($A|$N)*|$N$A($A|$N)*)$/)}' FILE
S1trong168S6tring
a3
2b
a33
a33B
3bB1
3aA

sunzhiguolu

回复 18# jason680
大神 我现在才发现我的正则还是没有入门啊! 谢谢大神指点.

sunzhiguolu

这个问题难点在于如何确保整个字符串必须包含字母字符和数字字符两者.
观看字符串的结构才发现:
每种字符串的构成无非两种: (只说全部由字母数字组成的字符串)
1.> 以字母开始的字符串, 后面至少跟有一个数字 通过量词 '*' 重复一个分组 (\d+|[a-z]+)*, 如果这个模式能够匹配成功 并且到达字符串的结束位置 那么就萌萌哒!
2.> 以数字开始的字符串, 后面至少跟有一个字母 通过量词 '*' 重复一个分组 (\d+|[a-z]+)*, 如果这个模式能够匹配成功 且后面的 '$' 能够匹配成功, 依然萌萌哒!!!