perl - 找到特定文件后，如何摆脱递归查找功能？

Question

我正在使用 File::Find遍历目录树的模块。找到特定文件后，我想停止搜索。我怎样才能做到这一点？

   find (\$processFile, $mydir);

   sub processFile() {
      if ($_ =~ /target/) {
         # How can I return from find here?
      }
   }

Answer 1

似乎你将不得不死:

eval {
    find (\$processFile, $mydir);
};

if ( $@ ) {
   if ( $@ =~ m/^found it/ ) {
        # be happy
    }
    else ( $@ ) {
        die $@;
    }
}
else {
   # be sad
}


sub processFile() {
   if ($_ =~ /target/) {
      die 'found it';
   }
}