一个正则表达式的问题。

xueyan

谁知道如何用正则表达式匹配如下格式的字符串？
AABC.
ABC可为任意汉字。比如：嗷嗷直叫，哈哈大笑
只是单纯的匹配英文字符的话如下的
(\w)\1(\w)[^\2]
即可，但是一旦换成中文字就不行了。请高手指教。

flw

翻精华帖

cnangel

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @str = ("嗷嗷直叫", '哈哈大笑', 'AABC', "嗷嗷直嗷", 'abcd');
   
7. foreach my $str(@str)
   
8. {
   
9.         if ($str =~ /(.+?)\1(.{1,2})(.{1,2})/)
   
10.         {
    
11.                 print "$str is fail!\n" if ($1 eq $3 or $1 eq $2);
    
12.                 print "$1|$1|$2|$3\n";
    
13.         }
    
14.         else
    
15.         {
    
16.                 print "$str is fail!\n";
    
17.         }
    
18. }

复制代码

[ 本帖最后由 cnangel 于 2007-7-28 22:57 编辑 ]