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} }
In reply to Re: Open a folder
by nithins
in thread Open a folder
by Dr Manhattan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |