in reply to Open a folder
use opendir function , it will help i belive for example
#!/usr/bin/perl use strict; use warnings; my $dir ="./files"; opendir ( DIR, $dir ) || die "Error in opening dir $dir\n"; while( (my $filename = readdir(DIR))){ print "$filename\n"; open (FH,'<',"./files/$filename"); while(<FH>){ ##do your task here} }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Open a folder
by Lotus1 (Vicar) on Jan 08, 2013 at 14:39 UTC |
In Section
Seekers of Perl Wisdom