Я пытаюсь разобрать строку и поместить части в массив, а затем назначить компоненты массива новым переменным. . Я сделал это точно так же в своем коде, и он работает, но теперь он терпит неудачу, и я понятия не имею, почему. Я думаю, что это что-то простое, и я слишком близко, чтобы увидеть это.
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.
Кто-нибудь видит причину ошибки? Спасибо.