相关疑难解决方法(0)

我有一个perl脚本,它将目录路径作为输入,然后脚本遍历该目录中的所有文件.对于每个文件,它调用其他一些函数.

这是脚本:

#!/usr/bin/perl

use JSON;   
use XML::Simple;
use File::Spec;

$num_args = $#ARGV + 1;
if ($num_args != 1) {
    print "\nUsage: $0 <input directory>\n";
    exit;
}

my $dir = $ARGV[0];

opendir(DIR, $dir) or die "cannot open directory";

@docs = grep(/\.xml$/,readdir(DIR));

foreach $file (@docs) 
{
    my $abs_path = join("",$dir,$file);
    #print $abs_path;
    my $return_object = some_function_call($abs_path);
    print_output($return_object);
 }

 sub print_output
 {
    my $output_object = $_[0];
    print $output_object;
 }

我这里的问题是当我正在读取输入目录时,如果不存在,怎么能使上面的脚本从"一些默认目录位置"读取.我尝试添加一些逻辑,但不适合我.这是我的第一个perl脚本,所以请原谅我,如果这个问题太基础了.

我在LINUX环境中工作.