请教一个正则表达式的问题，急。。。

cbofnh

现有一个比较棘手的问题，希望高手能解答一下。
我希望通过正则表达式进行字符串匹配和分割。
比如针对字符串MMM BBSSS，我想将该字符串通过空格分割为2个部分，而且第一个单词中不包含字符串AAA。这是应该能够存储字符串MMM和BBSSS。
比如，如果此时的被匹配字符串为MAAAM BBSSS，就不应该得到匹配。
不知道我说明清楚了没有？
我自己写了一个正则表达式的式子，但总是不成功，希望高手能够指正一下。
(\S*?(?!AAA)\S*?)\s+

兰花仙子

原帖由 "cbofnh" 发表：
现有一个比较棘手的问题，希望高手能解答一下。
我希望通过正则表达式进行字符串匹配和分割。
比如针对字符串MMM BBSSS，我想将该字符串通过空格分割为2个部分，而且第一个单词中不包含字符串AAA。这是应该能够?.........

不是很明白你的意思。
这样可否：

1. grep { $_ !~ /AAA/ } split;

复制代码

它返回一个匹配的列表。

兰花仙子

[quote]原帖由 "snojasper"]不是很明白，[/quote 发表：


不明白什么？

cbofnh

其实我就是想返回匹配的字符串，比如说以空格为分隔符，如果空格以前的字符串不包含AAA，空格以后的字符串BBB包含SS就算匹配成功。
这样的正则表达式应该怎么写？
主要是不包含AAA这个比较困难。

兰花仙子

原帖由 "cbofnh" 发表：
其实我就是想返回匹配的字符串，比如说以空格为分隔符，如果空格以前的字符串不包含AAA，空格以后的字符串BBB包含SS就算匹配成功。
这样的正则表达式应该怎么写？
主要是不包含AAA这个比较困难。

1. #!/usr/bin/perl
   
2. 
   
3. $_='YYY MAAAM BBSSS';
   
4. 
   
5. @tmp=grep { $_ !~ /AAA/ } split;
   
6. print join (' ',@tmp),"\n";

复制代码

$ perl t2.pl
YYY BBSSS

is right?

cbofnh

能不能解释一下怎么实现的？
太强了，可惜看不懂啊。

cbofnh

现在是必须要用正则表达式来完成的。

兰花仙子

[quote]原帖由 "cbofnh"]现在是必须要用正则表达式来完成的。[/quote 发表：

1. grep { $_ !~ /AAA/ } split;

复制代码

这个也是正则表达式嘛。
split默认操作$_，它返回分割标量后的一个列表。
grep就是从上述列表里，排除掉包含AAA的元素。然后它返回结果列表。

1. perldoc -f split
   
2. perldoc -f grep

复制代码