小编Max*_*ime的帖子

我是Perl的新手,但我认为我已经记住了变量定义和范围等基础知识......但似乎并非如此.我的问题是我不断碰到错误:

Global symbol "$save_from_date" requires explicit package name at myMover.pl line 40

我有一个函数,我打算将文件日期与另一个日期(默认或参数)进行比较,但它失败了.

这是麻烦的代码,提取:

# Process source directory
sub ParseSource {
    my $file = $_;
    my $filedate = localtime( ( stat $file )[9] )->ymd('');
    if ( $filedate >= $save_from_date ) {
        print "[To Archive] $file";
    }
}

#   Default Values
my $source_directory      = 'C:\Users\Public\Documents';
my $destination_directory = 'C:\Users\Public\Documents\Archive';
my $save_from_date        = strftime "%Y%m%d", localtime;
my ( $verboseornotverbose, $display_help ) = undef;

GetOptions(
    "verbose!"            => \$verboseornotverbose,
    "help|h!"             => \$display_help,
    "source_dir|s:s"      => …