read a directory

[Carl Johnson]

Hello group,
 
I'm trying to read the directory "C:\GIS\wrapped_data" and write record. My 
scripts is erroring with "can't open directory: no such  file or directory. 
What am I missing?
 
$outfile = "$infile.txt";
my $dir = "C:\GIS\wrapped_data";
opendir(DIR,"$dir") or die "Can't open $dir directory: $!";
open (OUT, ">$outfile") or die "Error, cannot open file: $outfile. $!"; 
$record = "";
$index=0;
while ( $numbytes = read(DIR, $record, 1200) ) {
   $index++;
   if ($numbytes == 1200) {
      print OUT "$record";
   } else {
      die "File Read Error on record $index: $numbytes bytes read; Should be 
1200.\n"; 
   }
}
close DIR;
close OUT;


 

Carl Johnson
Principal Consultant
214-914-9509 - P
214-242-2020 - F
[EMAIL PROTECTED]