调试 perl 脚本 - 变量插值

Question

尝试调试这个脚本。我认为这可能是变量插值的问题？我不知道。 如果我传递这样的值，它可以使用选项：

perl test-file-exists.pl --file /proj/Output/20111126/_GOOD

我正在尝试删除传入 的选项>--file 因为我需要生成日期 动态地。

perl test-file-exists.pl

鉴于下面的代码更改（我注释掉了选项部分）。我正在尝试创建字符串（请参阅$chkfil）。我在 $dt4 中传递时遇到错误。不知何故，它没有将我正在创建的文件字符串传递到另一个模块中。

use strict;
use warnings;
use lib '/home/test/lib';
use ProxyCmd;
use Getopt::Long;

#
### Set up for Getopt
#
#my $chkfil;
#my $help; 

#usage() if ( @ARGV < 1 or                       
#          ! GetOptions('help|?' => \$help,
#                       'file=s' => \$chkfil)
#     or defined $help );

my $cmd = ProxyCmd->new( User=>"test_acct",
                    AuthToken=>"YToken",
                  loginServer=>"host.com");

# Get previous day
my $dt4 = qx {date --date='-1day' +'%Y%m%d'};

# Check file
my $chkfil = qq{/proj/Output/$dt4/_GOOD};

# Now test the fileExists function
print "Checking 'fileExists':\n";
my $feResults = $cmd->fileExists("$chkfil");

if ($feResults == 0) {
    print "File Exists!\n";
    } else {
      print "File Does Not Exist\n";
}

sub usage
{
  print "Unknown option: @_\n" if ( @_ );
  print "usage: program [--file /proj/Output/20111126/_GOOD] [--help|-?]\n";
  exit;
}

Answer 1

当您使用反引号或 qx 时，您会得到尾随换行符，因此 chomp 将其关闭：

my $dt4 = qx {date --date='-1day' +'%Y%m%d'};
chomp $dt4;

您将获得一个合理的文件名。

您还可以使用 DateTime 和朋友来避免完全花钱。