Perl中的显式包错误

Question

我试图解析一个字符串并将部分放在一个数组中,然后将数组组件分配给新的变量.我在我的代码中以完全相同的方式完成了它并且它可以工作,但现在它失败了,我不知道为什么.我认为这很简单,我太接近了.

sub timeDiff {
    my ($tday,$tmon,$tyear,$pday,$pmon,$pyear,$tvalue,$pvalue,$reset);
    my (@arrSplitTDate,@arrSplitPDate,$arrSplitTDate,$arrSplitPDate);
    $tvalue = $_[0];
    $pvalue = $_[1];

    print $tvalue;
    print $pvalue;
    @arrSplitTDate = split(/\//, $tvalue);
    $tday = $arrSplitTdate[1];
    $tmon = $arrSplitTdate[0];
    $tyear = $arrSplitTdate[2];

    print $tday . "\n";
    print $tmon . "\n";
    print $tyear . "\n";
}

这是错误:

Global symbol "@arrSplitTdate" requires explicit package name at LargeLDAPSearch.pl line 173, <DATA> line 558.

有人看到错误的原因吗？谢谢.

Answer 1

您的camelCasing在变量声明和预期用途之间是不同的.

arrSplitTDate 与 arrSplitTdate