在 perl 的文件测试中排除目录答案

【问题标题】：excluding directories in file tests for perl在 perl 的文件测试中排除目录
【发布时间】：2018-07-23 08:59:59
【问题描述】：

我从命令行获取参数来测试它们是否存在，如果存在则打印出它们的名字。如果存在，则在此代码目录中打印出来。如何排除目录？

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


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

【问题讨论】：

那行得通。谢谢
How do I distinguish a file from a directory in Perl?的可能重复

标签： perl

【解决方案1】：

使用文件测试运算符-d 来测试是否有目录。

在您的代码中，您可以通过添加以下内容来跳过目录：

next if -d $x;

有关此功能和所有其他文件测试功能的详细信息，请参阅perldoc -f -X。

【讨论】：