How to read files under directory without giving file name?

[eileen1017]

I know to read a file you can use open () by giving the file name. However, the situation I have is that under /apps/as400 directory I have lots and lots of files. I need to read them one by one. I can not hard code the file name to open because I need to open the first file, perform some tasks, and then go to the next file to read it and perform some tasks. How will I able to achieve that? Does anyone have any ideas about it? Thanks.

 

[Kirsle]

opendir (DIR, "/apps/as400");
foreach my $file (readdir(DIR)) {
   next if $file =~ /^\./; # skip ., .., .htaccess, etc
   open (FILE, "/apps/as400/$file");
   my @lines = <FILE>;
   close (FILE);
}
closedir (DIR);

 

[KevinADC]

What are the tasks you need to perform?