小骆驼上的一道题。

which

[7]写一个模式，它能匹配$what 当前的内容的3 份连续拷贝。也就是说，如果$what 为fred，则此模式能匹配fredfredfred。
如果$what 为fred|barney，则此模式能匹配fredfredbarney, barneyfredfred, barneybarneybarney,或者其它的变种。（提示：
你应当在程序的顶端设置$what 的值，如my $what = ‘fred|barney’;）

我怎么想都没想明白。

which

1. 
   
2. !/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. my @what = qw{fred|barney fredfredfred fredfredbarney barneyfredfred barneybarneybarney};
   
7. 
   
8. foreach(@what)
   
9. {
   
10.     if(m/((fred)*|(barney)*)+/)
    
11.     {
    
12.         print "matched\n";
    
13.     }
    
14.     else
    
15.     {
    
16.         print "not matched\n";
    
17.     }
    
18. }
    

复制代码

which

这样写不对啊，哪位给指点指点。

shijiang1130

if(m/((fred){3}|(barney){3})/)

libiqing77

#!/usr/bin/perl -w $what = "fred|arney"; @word = qw{fred|barney fredfredfred fredfredbarney barneyfredfred barneybarneybarney}; foreach $x (@word) { if ($x =~/$what{3}/ ) {print "$x\n";} }

which

貌似你们写的和我写的都不对。

shaneqi

以前写的，记不住是不是这个了

#!/usr/bin/perl my $what='fred|barney'; $_="barneyfredfred"; if(/($what){3}/) {print "$_n"; }

which

原帖由 shaneqi 于 2009-3-24 14:45 发表
以前写的，记不住是不是这个了
#!/usr/bin/perl

my $what='fred|barney';
$_="barneyfredfred";
if(/($what){3}/)
{print "$_n";
}

嗯，这样应该是对的，谢谢。我开始的时候没读懂题。