Re^2: perl glob and an exception

eval can catch runtime error, it does not work for a case below:

user@host: mkdir ~/test

user@host: touch ~/test/file1.txt

user@host: chmod 000 ~/test

### perl code 

my $dir   = '/home/user/test';
my @files = eval { glob("$dir/*.txt") };

print "$@" if $@;           # here is no runtime error
print Dumper(\@files);      # shows an empty list
[download]

Comment on Re^2: perl glob and an exception Download Code

Replies are listed 'Best First'.
Re^3: perl glob and an exception by Corion (Patriarch) on Sep 25, 2015 at 09:53 UTC
So, what is your question? If there is no exception, you can't catch it either. Maybe you wanted to ask how glob can tell you whether there was a problem with one of the filespecs? For that, you will have to use opendir and readdir instead, and check for errors yourself.	[reply]
Re^4: perl glob and an exception by proxy-man (Initiate) on Sep 25, 2015 at 09:55 UTC
You are right, Sir :) The question was about - how glob can tell me if there is an issue with a file system. E.g. I don't have a permissions etc.	[reply]
Re^5: perl glob and an exception by Anonymous Monk on Sep 25, 2015 at 10:02 UTC
:)see glob does what it does, if you want something different, make your own sub glob	[reply]
Re^5: perl glob and an exception by Preceptor (Deacon) on Sep 29, 2015 at 15:52 UTC
How about combining glob with grep? `my @readable = grep { -r } glob "*.txt";` [download] OK, so you'll have to implement a bunch of tests if you want check multiple things, but that's because glob - for efficiency reasons - does nothing other than read a directory (See: perldoc -X)	[reply] [d/l]