小编use*_*091的帖子

我正在尝试学习perl,特别是使用File :: Find模块搜索图片的目录树,看看是否有任何文件名与相机上的文件名相匹配.如果文件名在那里,我将假设该文件已经从该相机传输,并且不再进一步处理.如果找不到文件名,我想对文件采取某种操作.

我使用find2perl创建了一个基本结构,它可以用来查找文件.但我似乎无法找到一种方法来判断发现是否失败.File :: Find :: find似乎没有返回任何值来处理,我不确定如何操作,或使用它正在使用的'&wanted'子目录中的任何返回值.

确定File :: Find :: find是否未成功找到任何匹配文件的最佳方法是什么？我应该使用在程序顶部设置为特定值的全局标志变量,只有在查找成功时才更改？我想我可以在查找之后检查该值,看看它是否已经改变(成功)或者没有找到(没有找到).

任何想法或建议？

这是基本结构:

  # Traverse desired filesystems
  File::Find::find({wanted => \&wanted}, '/files/multimedia/pictures/');
  exit;


  sub wanted {
      my ($dev,$ino,$mode,$nlink,$uid,$gid);

     if ( (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) && /^$ARGV[0]\z/si ) {
        print("found: $name\n");
        }
     }