Explicit Package Error in 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

あなたのラクシーケーシングは、変数の宣言と意図された使用の間で異なります。

arrSplitTDate対arrSplitTdate