Can't open file error in Perl

Question

Why program can't open the file? i.e dies. I searched for this problem, but it seems all fine to me. Funny thing is this code worked before, and i don't think i changed something from that moment in open function.

my $i;
my $regex = $ARGV[0];

for (@ARGV[1 .. $#ARGV]){
    open (my $fh, "<", "$_") or die ("Can't open, $!");
    $i++;
    foreach (<$fh>){
        print "Given regexp: $regex\nfile$i:\n   line $.: $1\n" if $_ =~ /(\b$regex\b)/;
    }
}

OUTPUT: Can't open Not a directory

check what file is your script opening, since it doesn't exist .. or die "[$_] $!"; — mpapec
– mpapec, Commented Jun 25, 2014 at 8:36
Try changing the or die to be or die ("Can't open {$_}, $!"). Note the curly braces around $_ so you see exactly what was being opened. — AdrianHHH
– AdrianHHH, Commented Jun 25, 2014 at 8:42
@mpapec,thx again, silly mistake i have inputed a wrong argument as ARGV. — sliddy
– sliddy, Commented Jun 25, 2014 at 8:48

reinierpost · Accepted Answer · 2014-06-25 08:50:00Z

2

Not a directory means you're supplying an argument that assumes a non-directory is a directory.

For instance, if your argument is

a/b

and

exists but is not a directory, you will get this error.

answered Jun 25, 2014 at 8:50

reinierpost

8,6671 gold badge43 silver badges73 bronze badges

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

Comments

parthi · Accepted Answer · 2014-06-25 10:37:50Z

1

Check your argument. it should be a proper directory name

answered Jun 25, 2014 at 10:37

parthi

1561 silver badge8 bronze badges

Collectives™ on Stack Overflow

Can't open file error in Perl

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related