在perl

Question

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

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


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

Answer 1

使用文件测试操作符-d来测试您是否有目录。

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

next if -d $x;

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