正则表达式语句求解

小时间抓紧我

while ($line =~ s/([\s]*.[\s]*.[\s]*).?/g){
print $1, " ";

q1208c

你确定你这条语句能执行 ?
我怎么觉得会是语法错误呢 ?

小时间抓紧我

完整的是这样
my $file = "file6";

open(FILE, '<'.$file) or die("Can not open $file!\n";
while (my $line = <FILE> {
    chomp $line;
    if ($line =~ /^>/) {
        print $line, "\n";
    } else {
        print $line, "\n";
        while ($line =~ /([\s]*.[\s]*.[\s]*).?/g){
            print $1, " ";
        }
        print "\n";
        print $line, "\n";
    }
}

close(FILE);

exit 0;
回复 2# q1208c


   

q1208c

1. while ($line =~ s/([\s]*.[\s]*.[\s]*).?/g){
   
2. print $1, " ";

复制代码

1.         while ($line =~ /([\s]*.[\s]*.[\s]*).?/g){
   
2.             print $1, " ";
   

复制代码

你这两句根本就不一样, 差得远了.

你只发了代码, 不知道你想问什么呢?

旋转小马

LZ想要得到什么结果？？？

yakczh_cu

输入文件内容是啥，要匹配什么？

104359176

s/([\s]*.[\s]*.[\s]*).?/g

1. 第一个S代表是一个替换操作，但没有替换内容，语法错误。
2. 最后一个g代表是全文替换，这是一个类似全文替换捕获位置的用途。
3. \s 代表空格类字符， *代表和前面一样的字符有几个都可以， 点代表任意字符，方括号这里没什么用，多此一举。问号代表前面的字符可有可无。

这个正则似乎是一个新手写的，想匹配一个空格一个字符的连续形式。似乎是匹配了几个，但是错的。如果想匹配三个空格间隔的情形，应当这样写：

1. /\S.*?\s\S.*\s\S.*?\s/

复制代码

pitonas

好久不见大神104359176...

回复 7# 104359176