Opening the files of a particular directory

[Poto]

Hello:

Iam triying to open all the files that are located in one particular directory using a perl script.
this is how I tryed :

unless (opendir (DIR,"$dirname")){
print "Can't open the directory $dirname \n";
exit;
}
 
while ($file = readdir(DIR)){
next if $file =~ /^\.\.?$/;
foreach ($file){
#si no se puede abrir, avisarlo y salir
unless(open (POSFILE,"+< \ Cr2L\$file")){
print "Can't open the file $file \n";
next;
}

the script failed because it is unable to open the files.

Does someone know what i must do?

Thank you very much
Patricia Carreira

[rickumali]

I keyed in your program, and observed that the likely culprit is your file name escaping. On Windows, I had to use something like this:

$dirname = "C:\\cygwin\\home\\rick\\perl\\test";

and:

unless(open (POSFILE,"+< $dirname\\$file")){

Notice the use of the "\\" to escape the "backslash". You might want to sprinkle some printfs or use the Perl debugger to examine your dirname and filename.

[KevinADC]

You can use forward slashes with windows directory paths, this avoids the meta character interpolation that is a problem with perl when using backslashes:

unless(open (POSFILE,"+</Cr2L/$file")){

[kershell]

Hello:

Iam triying to open all the files that are located in one particular directory using a perl script.
this is how I tryed :

unless (opendir (DIR,"$dirname")){
print "Can't open the directory $dirname \n";
exit;
}

while ($file = readdir(DIR)){
next if $file =~ /^\.\.?$/;
foreach ($file){
#si no se puede abrir, avisarlo y salir
unless(open (POSFILE,"+< \ Cr2L\$file")){
print "Can't open the file $file \n";
next;
}
the script failed because it is unable to open the files.

Does someone know what i must do?

Thank you very much
Patricia Carreira

Have a look at the File::Find module. It is a part of Perl installation which means nothing needs to be installed.

[nithinpes]

The following script worked for me in reading each file from a directory:

$dirpath="C:\\Temp\\Directory\\";
opendir(IN,"$dirpath") or die "opening directory failed:$!";
while (defined ($file = readdir(IN)) ) {
@files=split / /,$file;
foreach $filename (@files)
{
open (INPUT, "$dirpath".$filename) or warn "Can't open the file $filename\n:$!";
until (eof(INPUT)) {
chomp($line = <INPUT>);
 # print contents of the file or do anything
              }
}
}
 
 closedir(IN);
 

[KevinADC]

thats good, but it has nothing to do with the original question, which is now 8 months old.