Hi,
Or you could either use opendir function to open up the folder in question and then, get each of the file with readdir function to "work" on like so:
use warnings;
use strict;
opendir my $dh, $ARGV[0] or die "can't open directory: $!";
while ( readdir $dh ) {
chomp;
next if $_ eq '.' or $_ eq '..';
#..... get each file to work on ....
}
closedir $dh or die "can't close directory: $!";
### or use File::Find like so:
use File::Find qw(find);
find( sub { print $_, $/ }, $ARGV[0] );
The Anonymous subroutine, could be used to do what you want on each of the file in the folder.
Please check the following for more info:
- perldoc -f opendir
- perldoc -f readdir
- perldoc File::Find
Hope this helps.
|