我正在尝试解析位于一个目录的子目录中的特定 XML 文件。出于某种原因,我收到错误消息说文件不存在。如果该文件不存在,它应该移动到下一个子目录。
这是我的代码
use strict;
use warnings;
use Data::Dumper;
use XML::Simple;
my @xmlsearch = map { chomp; $_ } `ls`;
foreach my $directory (@xmlsearch) {
print "$directory \n";
chdir($directory) or die "Couldn't change to [$directory]: $!";
my @findResults = `find -name education.xml`;
foreach my $educationresults (@findResults){
print $educationresults;
my $parser = new XML::Simple;
my $data = $parser->XMLin($educationresults);
print Dumper($data);
chdir('..');
}
}
ERROR
music/gitar/education.xml
File does not exist: ./music/gitar/education.xml