perl 数组问题，请教了！

robinylp

#!/usr/bin/perl -w

use strict;

my @test = qw{test1 test2 test3 test4 test5 test6};

for(my $j=0;$j<scalar(@test);$j++){

         print "$test[$j]\n";
       ??????????????????????????  my $($zahl[$j])=0;出错！！
}

我想要达到：
$test1 = 0;
$test2 = 0;
$test3 = 0;
$test4 = 0;
$test5 = 0;
$test6 = 0;

也就是要初始化。

在for中应该怎么写的？

先谢谢大家了！

zhlong8

你思路有问题，用个 hash 表示不就行了？  $hash{'test1'} = 0;
刚入门的人不该用符号引用，已经入门的人一般也不需要用。你还是先学学 for my $var (@test)　{ } 的用法实在啊

d4rkl0r0

#!/usr/bin/perl

my @a =(\$test1,\$test2,\$test3,\$test4,\$test5);
map {$$_=0;} @a;

献丑了...kkk

robinylp

我的目的还有一个是: 不只是$test作为数值用，还要test作为字串用，比如
  $i == 0 && do { $test1++;print "test1 = $test1"; last SWITCH; };
我先在有test1到test10000, 我想用一个array加入test1到10000，然后用for语句初始化，就可以一直使用。
不用我写10000条上面的SWITCH语句和10000条初始化语句。

只有java的一点编程经验，perl学了3天，现在就有一个过滤程序。没有办法啊！

如果有时间，请给个例子。

谢谢了！

zhlong8

my %hash;

$hash{"test$_"} = 0 for 1 .. 1000;

# 处理

for my $name (sort keys %hash) {
    my $value = $hash{$name};
    print "$name = $value\n";
}

zhlong8

通过字符串名字访问的变量是全局变量在符号表中，还是个 hash。用自己的 hash 更安全可控

jason680

题目与内容不符...看起来又是思路错误......

robinylp

my %hash;

$hash{"test$_"} = 0 for 1 .. 1000;

# 处理

for my $name (sort keys %hash) {
    m ...
zhlong8 发表于 2011-04-21 23:07

    感谢了！去试试。

flw

zhlong8 的回答是正确的。

这个问题已经被问过八百遍了，
而之前曾经有太多太多的人喜欢在这个问题中回答符号引用，
实在搞不懂这些回答者在展示了自己对 Perl 语法很熟练的同时所展示出来的低下的理解能力是否是出于自己的本意。

robinylp

zhlong8 的回答是正确的。

这个问题已经被问过八百遍了，
而之前曾经有太多太多的人喜欢在这个问题中回 ...
flw 发表于 2011-04-26 15:59

因为我们对于perl的学习不是第一们编程，以及没有很多经验，比如我的思路绝对是由于java和c而形成的，这样的东西习惯于用数组来表示，而上面这样的思路对于新手来说很难理解。