Perl Open: No such file or directory

Question

I'm trying to read every text file in a directory into a variable then print the first 100 characters, including line breaks. However, Perl says that the files don't exist even though they really do exist.

use strict; use warnings; my $dir = "C:\\SomeFiles"; my @flist; open(my $fh, "dir /a:-d /b $dir |") || die "$!"; while (<$fh>) { if ($_ =~ /.*(.txt)$/i) { push(@flist, $_); } } foreach my $f (@flist) { print "$dir\\$f"; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$f") || die "$!"; <$ff>; }; print substr($txt, 0, 100); }

When I run the script, the following is written to the console:

C:\SomeFiles\file1.txt No such file or directory at script.pl line 19, <$fh> chunk 10.

It's looking at the right file and I'm certain that the file exists. When I try using this method to open a single file rather than getting each file via an array with foreach, it works just fine. Is there something obvious that I've overlooked here?

Also, reading the entire file into memory in order to print just the first 100 characters is wasteful. Why not use read? — ThisSuitIsBlackNot
– ThisSuitIsBlackNot, Commented Dec 19, 2013 at 23:16
@ThisSuitIsBlackNot: Printing the first 100 characters is a sample task for the purpose of explaining the issue I'm having. My true task does involve the entire document and isn't relevant to the open issue. (The error occurs when trying to open the document, before trying to use it for anything.) — Alex A.
– Alex A., Commented Dec 19, 2013 at 23:19
Oh, well you should have just said that! :) As for the error, that was the reason for my comment about chomp. You're not stripping the trailing end-of-line characters from your file names before you try to open them. — ThisSuitIsBlackNot
– ThisSuitIsBlackNot, Commented Dec 19, 2013 at 23:23
You're trying to open C:\SomeFiles\C:\SomeFiles\file1.txt. — Jim Davis
– Jim Davis, Commented Dec 20, 2013 at 13:37

Wes Hardaker · Accepted Answer · 2013-12-20 22:10:38Z

4

A better solution is to use readdir() instead (or File::Find if you ever want to do it recursively):

my $dir = "C:\\SomeFiles"; opendir(my $dh, $dir) || die "$!"; while (my $file = readdir($dh)) { if ($file =~ /\\.txt$/i) { print $file . "\n"; my $txt = do { local $/ = undef; open(my $ff, "<", "$dir\\$file") || die "$!"; <$ff>; }; print substr($txt, 0, 100) . "\n"; } } closedir($dh);

edited Dec 20, 2013 at 22:10

answered Dec 19, 2013 at 22:56

Wes Hardaker

22.3k2 gold badges42 silver badges70 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

TLP Over a year ago

You should probably remove the pipe symbol from the opendir command.

Alex A. Over a year ago

Thanks for quick and helpful answer! I made a couple edits to get it to work properly. I'm not familiar with File::Find; could you please provide an example of how it would be used in this situation?

Wes Hardaker Over a year ago

@Alex: Basically it's much more powerful and useful if you need to look in an entire directory tree. I've linked the URL for the documentation above. You should probably look at that. It is more complex than using opendir, though, so you should use opendir unless you need to dive into subdirectories. search.cpan.org/~rjbs/perl-5.18.1/lib/File/Find.pm

Alex A. Over a year ago

@WesHardaker: Thanks so much, I really appreciate your help. I'll check out File::Find.

Collectives™ on Stack Overflow

Perl Open: No such file or directory

1 Answer 1

4 Comments

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Related