perl - 在基本 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";

}

获得:

Useless 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;

    }