Public Scratchpad | Download, Select Code To D/L |
use File::Find; my @dir = 'Y:/mis/'; my @path; find sub { push @path, $File::Find::name if -f }, @dirs; return @path;
Public Scratchpad | Download, Select Code To D/L |
use File::Find; my @dir = 'Y:/mis/'; my @path; find sub { push @path, $File::Find::name if -f }, @dirs; return @path;