#! / USR / местное / BIN /Perl -W


Система "LS-IR-дель-DIR> Temp";

# Проверить, если вход в хеш. Если да, хранения файла в массив

OPEN (INO_FNAME, "Темп") | | умереть "Файл doesn't существует!" ;
OPEN (FNAMES, ">> файлов") | | умереть "Файл doesn't существует!" ;
а ($ \u003d <INO_FNAME> запись) (
# $ Распечатать отчет;
если ($ запись \u003d ~ м /:/){
$ \u003d $ реж записи;
# Принт "здесь", реж $, "D \ N";
Чоп $ реже;
Чоп $ реже;
)
# Печать "здесь", $ реж ", реж \ N";
($индексного дескриптора, $ fname) \u003d сплит ( '', $ запись);
если (существует FID_DBN_HT $ ($индексного дескриптора)) (
@ имя_файла \u003d $ реж. $ fname;
Версия для печати (FNAMES $ реж. $ fname, "\ N");
Версия для печати ($индексного дескриптора, "\ Т fname", $ реж. "/". $ fname, "\ N");
)
)

CLOSE (INO_FNAME);
CLOSE (FNAMES);
$ конца \u003d время;

--------------------
При этом я получаю:
Использование неинициализированные значение в конкатенации (.) Или строка в строку temp.pl 21, <INO_FNAME> строка 8.
Использование неинициализированные значение в конкатенации (.) Или строка в строку temp.pl 22, <INO_FNAME> строка 8.

Любая идея, почему?
Спасибо!