使用 File::Find 忽略隐藏文件

Question

我正在使用 file::find 遍历目录结构并将其打印出来，但在排除隐藏文件时遇到问题。这是我到目前为止所得到的：

find(\&todo, $start_dir);
sub todo 
{
  if ($_ =~ /^./) 
  {
     print "hidden file $_\n";
  }
  else
  {
    if (-f $_) #check for file
    {
      file;
    }
    elsif (-d $_) #check for directory
    {
      directory($File::Find::dir);
    }
    else
    {
       print "ERROR: $_\n";
    }
  }
}        

如果我删除 if ($_ =~ /^./) 检查，文件和目录工作正常，但添加此操作会将所有内容打印为隐藏文件。正如你所看到的，我只需要这个就可以在 unix 上工作。 有人能指出我正确的方向吗？

编辑：我忘记了前面的反斜杠。 - 应该是 if ($_ =~ /^./)，但是 find() 是否有忽略隐藏文件/目录的默认方式？ 谢谢！

Answer 1

正则表达式中的 . 匹配任何字符；使用 \. 来匹配文字 .。您可能应该了解正则表达式。

Answer 2

请参阅 geekosaur 以获取对您问题的解释。在这样的简单情况下， substr 可能会更好调用而不是正则表达式：

if(substr($_, 0, 1) eq '.') {

正则表达式是一个很棒的工具，但它们不应该是您工具箱中的唯一东西。

Answer 3

/^./ 是一个正则表达式。句点表示任何单个字符，因此您所说的是匹配以任何字符开头的任何字符串，并且几乎匹配所有文件名。

您需要在句号前添加反斜杠，或使用 \Q 和 '\E'。 \Q 禁用元字符匹配，这意味着它基本上消除了所有魔力，使所有内容都成为普通的字符串。在这种情况下，反斜杠会更好，但您可以想象尝试匹配更复杂的东西，并且 \Q 和 \E 会更好

：这些会起作用：

 if ($_ =~ /^\./) 
 {
     print "hidden file $_\n";
 }


 if ($_ =~ /^\Q.\E/) 
 {
     print "hidden file $_\n";
 }

Answer 4

如果您使用的是 Windows，perl 模块 Win32::File会告诉您文件是否隐藏。 ActivePerl 中默认安装 Win32::File。

不幸的是 Win32::File 没有附带任何示例，（我希望 cpan 向 PHP 站点等每个页面添加注释功能。当然有 Annocpan，但额外的点击意味着几乎没有人为其做出贡献）< /em>，但是这个线程会帮助 http://www.perlmonks.org/?node_id=194011

还有更好的面向对象Win32::File::Object 但它仅适用于文件，除非您应用此补丁:( https://rt.cpan.org/Public/Bug/Display .html?id=60735

结果看起来很奇怪，因为很多文件除了被隐藏或系统之外都是隐藏的，我最终放弃了，只是修改了它以忽略某些文件夹：

if( $_ =~ /(RECYCLER)|(System Volume Information)/ ) {
    $File::Find::prune = 1;
}