perl 新手弱问# Unix - 噫吁兮，危乎高哉
h*e
1 楼
我要改以前人家留下的一个perl程序
，看到一段奇怪的code， 简化一下就是如下的样子，
@A=qw(A1 A2 A3);
@B=qw(B1 B2 B3);
foreach (@A)
{
print $_, $/;
}
foreach (@B)
{
print $_, $/;
}
@A{@B} = @A; 实在是不明白这一行在干嘛，
print "after @ A{ @ B} = @ A; ", $/;
foreach (@A)
{
print $_, $/;
}
foreach (@B)
{
print $_, $/;
}
输出显示A，B都没变啊，哪位高手指点一下迷津吧， @A{@B} = @A; 到底是干嘛的？
谢谢啦！
，看到一段奇怪的code， 简化一下就是如下的样子，
@A=qw(A1 A2 A3);
@B=qw(B1 B2 B3);
foreach (@A)
{
print $_, $/;
}
foreach (@B)
{
print $_, $/;
}
@A{@B} = @A; 实在是不明白这一行在干嘛，
print "after @ A{ @ B} = @ A; ", $/;
foreach (@A)
{
print $_, $/;
}
foreach (@B)
{
print $_, $/;
}
输出显示A，B都没变啊，哪位高手指点一下迷津吧， @A{@B} = @A; 到底是干嘛的？
谢谢啦！