＃ ！は/ usr / local / binに/perlの -ワット


システム"はls - IR情報デル-ディレクトリ>気温" ;

＃場合、ハッシュのエントリを確認する。はい、配列に格納ファイル名の場合

オープン（ INO_FNAME 、 "気温" ） | | "ファイルが存在doesn't死ぬ！ " ;
オープン（ FNAMES 、 " > >は、ファイル名" ） | |死ぬ"ファイルが存在doesn't ！ " ;
（ $を記録\u003d <INO_FNAME> ） （
レコード$プリント＃ ;
（ $ /:/){メートルを記録\u003d 〜
$ディレクトリ\u003d $レコード;
＃印刷"ここ" 、 $ディレクトリ、 "エ\ Ñ " ;
ディレクトリ$チョップ;
ディレクトリ$チョップ;
）
＃印刷"ここ" 、 $ディレクトリ、 "ディレクトリ\ Ñ " ;
（ $iノード、 $ fname ） \u003d分割（ ' ' 、 $レコード） ;
もし（ $ （ $ FID_DBN_HT存在iノード） ） （
@ファイル名\u003d $ディレクトリ。 $ fname ;
印刷（ FNAMESディレクトリ$ $ fname 、 " \ Ñ " ） ;
印刷（ $iノード、 " \トンfname " 、 $ディレクトリ。 " / " 。 $ fname 、 " \ Ñ " ） ;
）
）

近い（ INO_FNAME ） ;
近い（ FNAMES ） ;
$エンド\u003d時間;

--------------------
と私はこの手に入ります：
temp.plライン21 、 <INO_FNAME> 8号線の連結で、初期値を使用する（ 。 ）または文字列です。
temp.plライン22で連結の初期値を使用する（ 。 ）または文字列、 <INO_FNAME>行8 。

任意のアイデアなぜですか？
ありがとう！

これらの警告は、エラーではない。あなたのコードにこの行だけを削除する必要があります：

@ファイル名\u003d $ディレクトリ。 $ fname ;

何にもしanway配列に値を代入することはできないのが正しい方法ではないことが表示されます。試しにこの処理を行いますと、行方不明のスカラー値を追跡する：


私のいずれかまたは両方が定義されていないスカラーのだと思う。 [ ]されている場合は空白のことをお知らせしています。

シバンかだけを行に、 - wスイッチドロップできるの警告を出力されません。