3

特定のディレクトリからファイルを読み取り、それらのファイルを配列に配置する perl スクリプトがあります。次に、これらの配列要素を perl ハッシュに移動できるようにしたいと考えています。配列要素はハッシュ値であり、数値キーが各ハッシュ値に自動的に割り当てられます。

コードは次のとおりです。

    # Open the current users directory and get all the builds. If you can open the dir
    # then die.
    opendir(D, "$userBuildLocation") || die "Can't opedir $userBuildLocation: $!\n";
    # Put build files into an array.
    my @builds = readdir(D);
    closedir(D);
    print join("\n", @builds, "\n");

このプリントアウト:

    test.dlp
    test1.dlp

これらの値を取得して、次のようなハッシュに挿入します。

my %hash (
            1 => test.dlp
            2 => test1.dlp
         );

特定のディレクトリにあるファイルの数に基づいて、番号付きキーを自動インクリメントしたいと考えています。

自動インクリメント キーをハッシュ内の各項目に一意の数値に設定する方法がわかりません。

4

3 に答える 3