0

現在、私の file1 には、以下に示すようにハッシュのハッシュが含まれています。

package file1;

our %hash = (
    'articles' =>  {
                       'vim' => '20 awesome articles posted',
                       'awk' => '9 awesome articles posted',
                       'sed' => '10 awesome articles posted'
                   },
    'ebooks'   =>  {
                       'linux 101'    => 'Practical Examples to Build a Strong Foundation in Linux',
                       'nagios core'  => 'Monitor Everything, Be Proactive, and Sleep Well'
                   }
);

そして、私のfile2.plには含まれています

#!/usr/bin/perl
use strict;
use warnings;

require 'file1';

my $key;
my $key1;

for $key (keys %file1::hash){
   print "$key\n";

   for $key1 (keys %{$file1::hash{$key1}}){
   print "$key1\n";
   }
}

今私の質問は、エラーが発生することです

「file2.pl のハッシュ要素で初期化されていない値が使用されています」

次のようにハッシュにアクセスしようとすると:

for $key1 (keys %{$file1::hash{$key1}})

親切に助けてください。

4

1 に答える 1

6

$key1定義されていないからです。

%{ $file1::hash{$key} }代わりに使用するつもりでした。

$key1を事前に宣言しない場合、strictプラグマはコンパイル時にそれをキャッチできることに注意してください。

for my $key (keys %file1::hash){

   print "$key\n";

   for my $key1 (keys %{$file1::hash{$key1}}){
       print "$key1\n";
   }
}

メッセージ

Global symbol "$key1" requires explicit package name
于 2013-03-28T09:38:34.840 に答える