0

快速说明：我已经被这个问题困扰了好几天，我不一定希望找到答案，但任何可能“启发”我的帮助。我还想提一下，我是 Perl 的初学者，所以我的知识不是很广，在这种情况下递归不是我的强项。开始：

我希望我的 Perl 脚本执行以下操作：

  • 将目录作为参数
  • 进入传递的目录及其子目录以查找 *.xml 文件
  • 将找到的 *.xml 文件的完整路径存储到一个数组中。

以下是我到目前为止的代码，但我还没有设法使它工作：

#! /usr/bin/perl -W

my $path;
process_files ($path);

sub process_files
{
    opendir (DIR, $path) or die "Unable to open $path: $!";

    my @files =
        # Third: Prepend the full path
        map { $path . '/' . $_ }
        # Second: take out '.' and '..'
        grep { !/^\.{1,2}$/ }
        # First: get all files
        readdir (DIR);

    closedir (DIR);

    for (@files)
    {
          if (-d $_)
          {            
            push @files, process_files ($_);
          }
          else
          {
             #analyse document
          }
    }
    return @files;
}

有人有任何线索可以为我指明正确的方向吗？或者更简单的方法？

谢谢你，sSmacKk :D

4

1 回答 1

4

听起来你应该使用File::Find. 它的find子程序将递归地遍历一个目录。

use strict;
use warnings;
use File::Find;

my @files;
my $path = shift;
find(
    sub { (-f && /\.xml$/i) or return; 
           push @files, $File::Find::name; 
    }, $path);

该子例程将在它找到的文件上执行它包含的任何代码。这只是将 XML 文件名（带有完整路径）推送到@files数组中。在该模块的文档中File::Find阅读更多信息，该模块是 perl 5 中的核心模块。

于 2012-12-27T15:00:11.353 回答