输出问题

jackiechan88

UID: 29431
帖子: 1
积分: 2
在线时间: 10 分钟

1^# jackiechan88 发表于 2008-10-10 11:12

输出问题

我想输出下面的值,请高手指点.

$test1="aaa";
$test2="tbb";
$test4="ccc";

for ($i=1;$i<=3;$i++){
$test=$test.$i;
#我想得到的是输出上面的值.
}
这个结果输出的是aaa1,tbb1,ccc1...
不是我想要的结果.

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-10-10 12:45

#!/usr/bin/perl -w

my $test1="aaa";
my $test2="tbb";
my $test4="ccc";

for ($i=1; $i<=4; $i++) {
my $test = "test".$i;
print "\$$test=", (eval "\$".$test), "\n" if defined (eval "\$".$test);
}