excluding directories in file tests for perl

Question

I am taking arguments from the command line to test if they exist print out their names if they do. In this code directories are printed out if they exist. How do I exclude directories?

#!/usr/bin/perl
use strict;
use warnings;


foreach my $x (@ARGV) {
  if (-e $x){
    print "$x ";
  else {
    print "'$x' does not exist"
  }
}
exit;

Possible duplicate of [How do I distinguish a file from a directory in Perl?](https://stackoverflow.com/questions/206320/how-do-i-distinguish-a-file-from-a-directory-in-perl) — Matt Jacob, Feb 13 '18 at 17:05

score 4 · Accepted Answer · answered Feb 13 '18 at 04:42

4

Use the file test operator -d to test if you have a directory.

In your code, you can skip directories by adding:

next if -d $x;

See perldoc -f -X for details on this and all other file test functions.

answered Feb 13 '18 at 04:42

xxfelixxx

6,512
3
31
38

excluding directories in file tests for perl

1 Answers1