perl输出含有指定字符串的单词

[waiwaiyuyu]

open(FIL,"test.txt") or die $!;
while(<FIL>)
{
  chomp;
  $string="mum"; 
  @list=split(/s+/,$string); 
  print "@list\n";
}

输出的只是指定字符串的那部分，没有输出含有这个指定字符串的单词，出错在哪里啊

[bugs2k]

open(FIL,"test.txt") or die "$!";
while (<FIL>) {
    print if /mum/;
}

[waiwaiyuyu]

你这个不对啊，输出了整个文件内容，不是指定的单词哦

[bugs2k]

没看的很明白你的意思

[waiwaiyuyu]

读test.txt，如果其中的单词含有mum这三个连续的字母，就输出这些单词；我错在只输出了匹配的字母

[bugs2k]

open FIL,"test.txt" or die "$!";
for my $line (<FIL>) {
    my @words = split /\s+/, $line;
    for my $word (@words) {
        if ($word =~ /mum/) {
            print "$word\n";
        }
    }
}
close FIL;

[waiwaiyuyu]

哦，我知道了，我的思路就不对，最起码就应该遍历所有的单词，不能捡简便，thanks

[proorck6]

程序中使用了变量 $_
但是你一会儿用$_ ，一会儿用$string
不知道是怎么回事。

例如print; 默认的就是打印 print $_;
还有chomp; 它的意思是 chomp $_;

[waiwaiyuyu]

我写的蛮乱，不过也是初步学习阶段，呵呵呵

[liuweichuan]

你这个输出只是mum， 你把mum进行了空格split ，结果还是mum 的。

用 m/(\s+)(\w+mum\w+)(\s+)/ 来匹配就好了

[liuweichuan]

#usr/bin/perl
my @line;
open(H,"date");
while(<H>){
@line = split;#分割到了单词
foreach my $w (@line){
if($w =~ m/(\s+)(\w+mum\w+)(\s+)/){
print $2;
}
}
}