How to read a directory and it's files

[bluewavessurf]

I want to implement a Perl Program that takes a directory path, ex (d:\programs) as an INPUT and this directory could have multiple files for this program let’s say 5 files (doc1, doc2, doc3, doc4, and doc5). This program should print the average time to open and read all these five files into OUTPUT. How can I read the files in blocks of 64 KB?

[numberwhun]

Please post the code that you have tried thus far and we will guide you to learning how to do this.

Regards,

Jeff

[bluewavessurf]

opendir MYDIR, "c:\data";
@contents = readdir MYDIR;
closedir MYDIR;
 
foreach $listitem ( @contents )
{
  print $listitem;
}

But I am not sure if I am going correct way and kind of lost

[Greg R]

opendir(DIR,"c:/data") or die "Error: $!";
@files = readdir(DIR);
closedir(DIR);
 
foreach $file (@files) {
   print $file;
}
 

[RonB]

How can I read the files in blocks of 64 KB?

See:
perldoc -f sysopen
perldoc -f sysread