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 );
In reply to Re: Full path to files
by borisz
in thread Full path to files
by gasho
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |