0

我正在尝试学习 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");
        }
     }
4

1 回答 1

5

如果没有找到所需的文件，wanted则不会调用子程序。

我通常所做的正是您建议的 - 在调用之前将标志设置为 false find，并将其wanted设置为 true。

那是在我实际上需要知道这些信息的情况下——我实际上已经有一段时间不需要它了。

事实上，计数可能比标志更好，因为它提供了更多信息。以下代码：

use File::Find;

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

$quant = 0;
File::Find::find({wanted => \&wanted}, '/nosuchdir');
print ("Found $quant files in /nosuchdir\n");

$quant = 0;
File::Find::find({wanted => \&wanted}, '/tmp');
print ("Found $quant files in /tmp\n");

在我的系统上生成以下输出：

Found 0 files in /nosuchdir
Found 39 files in /tmp

那样的话，a$count为零意味着没有找到文件，其他任何东西都告诉你有文件（也告诉你有多少）。

于 2012-08-21T02:37:40.800 回答