To process xml files within multiple subfolders in perl

[codewalker]

Hi, I Just want process all xml files within multiple subfolders

But my current code is used to grep the files within the folder

use strict;
undef $/;
my $path = $ARGV[0];
my $out = $ARGV[1];

opendir(DIR, $path) || die "cannot read folder path";
my @xmlfiles = grep {/\.xml$/i} readdir(DIR);
closedir(DIR);

foreach my $xml(@xmlfiles) {
open(FIN, "$path/$xml") or die("Couldn't open input File!!");
my $file = <FIN>;

Can anyone knows how to process within multiple folders in perl

[dasgar]

I'd recommend checking out File::Find or File::Find::Rule to search for your XML files. Personally, I prefer File::Find::Rule. For what you're trying to do, the example code in the Synopsis of File::Find::Rule can be easily modified to look for *.xml instead of *.pm.

[Corion]

See File::Find.