基本的なperl：これらのループエラーを取得する

Question

こんにちは私はperlで次のコードを持っています。私は言語に非常に新しいです：

#!/usr/bin/perl 

use strict; 
use warnings; 

my $date = $ARGV[0]; 

my $symbols = ('A', 'B', 'C'); 


foreach $symbol (%symbols) 
{ 
    my $print = "$symbol"; 
    print "$print"; 

} 

は行き方：

Uselsss use of a constant in void context at (line of %symbols) 
and 
Global symbol "$symbol requires explicit package name at ..." 
and 
Global symbol "%symbols" require explicit package. name at ..." 

Answer 1

アレイが必要とされているすべてであるときは、ハッシュを使用しています。

#!/usr/bin/perl 


    use strict; 
    use warnings; 

    my $date = $ARGV[0]; 

    my @symbols = ('A', 'B', 'C'); 


    foreach my $symbol (@symbols) 
    { 
     print $symbol; 

    } 

Answer 2

あなたは$symbolsの代わり@symbolsを宣言しているので、スカラーコンテキストであることを置くと「C」にそれを設定しています。次に、作成したことのない同じ名前のハッシュをループしようとします。 $a（スカラー）、@a（配列）、%a（ハッシュ）がすべて異なることを忘れないでください。

これは、あなたが何を望むかである：本当に速い

my @symbols = qw/ A B C /; ## the same as ('A', 'B', 'C') 
foreach my $symbol (@symbols) { 
    print $symbol; 
} 

：

my @symbols = qw/ A B C /; ## new array with three values 
my $symbols = qw/ A B C /; ## new scalar that is the last element of the "A B C" list ($symbols = 'C') 
my %symbols = (
    A => 1, 
    B => 2, 
    C => 3, 
); ## a hash with three key/value pairs 

Answer 3

あなたのforeachのは、%symbolsと呼ばれる実在しないハッシュに各シンボルではなく、あなたの配列@symbolsを探しています。それは配列なので

foreach $symbol (@symbols) 
{ 
    my $print = "$symbol"; 
    print "$print"; 
} 

Answer 4

1）あなたの$symbolsは、@symbolsでなければなりません。後でforeachに、%symbolsは@symbolsである必要があります。

2）$symbolは宣言されていません。代わりにforeach my $symbol...と言ってください。