0

我想编写一个遍历目录及其子目录的脚本，获取所有 XML 文件并解析它们。我遇到了麻烦chdir。这工作正常：

my $search = "/home/user/books";
chdir($search) or die "cant change dir to $search $!";
system("ls");

但我希望用户决定他想要搜索它的路径，所以我正在使用Getopt::Long：

use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
use Getopt::Long;

my $outputFile = '';
my $searchPath = "";
my $debug      = 0;
GetOptions('outputFile=s' => \$outputFile, 'searchPath=s' => \$searchPath);
if ($outputFile eq '' or $searchPath = '') {
    die("parameter --outpulFile=s is required.");
}
$searchPath =~ s/\/*$/\//;
my @founddirs = `cd $searchPath`;
foreach my $foundfiles (@founddirs) {
    print $foundfiles;
    chdir($foundfiles) or die "cant change dir to $searchPath $!";
    chdir('..');
}

运行命令：

perl sample.pl --outputFile=books.txt --searchPath=/home/user/june18

我想从子目录中获取所有 recursive.xml 文件并解析它们。有谁知道如何做到这一点？

4

2 回答 2

1 
#!/usr/bin/perl --
use strict; use warnings;
use Data::Dump qw/ dd /;
use File::Find::Rule qw/ find /;
my @files = find(
    file =>
    name => '*.xml',
    in => \@ARGV
);

dd \@files;

__END__
$ perl ffrule
[]

$ perl ffrule ../soap
[
 "../soap/ex1.xml",
 "../soap/ex2.xml",
 "../soap/ex3.xml",
]
于 2012-06-15T06:28:52.547 回答
1

这里有几个问题：

  • $searchPath = ''在输入验证期间将搜索路径设置为空字符串。改用eq（不是==）

  • @founddirs将不包含任何内容，因为反引号运算符将不返回任何内容。这是因为

    my @founddirs = `cd $searchPath`;

    不打印由换行符分隔的找到的目录。也许你在追求ls $searchPath

顺便说一句，为什么不File::Find改用呢？

use strict;
use warnings;

use File::Find;
use Getopt::Long;

my $outputFile;
my $searchPath;

GetOptions(
            'outputFile=s' => \$outputFile,
            'searchPath=s' => \$searchPath,
          );

die "Usage : perl sample.pl -outputFile -searchPath\n"
  unless $outputFile && $searchPath;

die "No such directory found: $searchPath\n" unless -d $searchPath;

find( sub { print "$File::Find::name\n" if /$outputFile/ }, $searchPath );
于 2012-06-14T20:03:07.190 回答