in reply to Full path to files
use Data::Dumper; use File::Find qw/find/; my $dir = 'c:/test'; my @res; find( { wanted => sub { -f and /\.xml$/ and push @res, $File::Find::na +me }, follow => 1 }, $dir ); print Dumper( \@res ); [download]
www.com | www.net | www.org
No recent polls found