初学者问一个简单的语句

rosegun38

我想问一下，这段代码：

1. #!/usr/bin/perl
   
2. @rock = ( qw/ bedrock slate lava /);
   
3. print "The rocks before are :\n", @rock;
   
4. foreach $rock (@rock)
   
5. {
   
6.   $rock = "\t$rock";
   
7.   $rock .= "\n";
   
8. }
   
9. print "The rock after are :\n", @rock;
   
10. print "\n";

复制代码

输出结果如下：

1. The rocks before are :
   
2. bedrockslatelavaThe rock after are :
   
3.         bedrock
   
4.         slate
   
5.         lava

复制代码

为什么我在给数组每个变量加换行之前就无法输出，加了换行符后就可以了呢？请教各位大牛。

lovebbs

你的意思是：

1. #!/usr/bin/perl
   
2. @rock = ( qw/ bedrock slate lava /);
   
3. print "The rocks before are :\n", @rock;
   
4. foreach $rock (@rock)
   
5. {
   
6. $rock = "\t$rock";
   
7. }
   
8. print "The rock after are :\n", @rock;
   
9. print "\n";

复制代码

这样输出结果不对，是吧？

改成：

1. #!/usr/bin/perl
   
2. @rock = ( qw/ bedrock slate lava /);
   
3. print "The rocks before are :\n", @rock;
   
4. foreach $rock (@rock)
   
5. {
   
6. $rock .= "\t$rock";
   
7. 
   
8. }
   
9. print "The rock after are :\n", @rock;
   
10. print "\n";

复制代码

iamlimeng

楼主仔细看输出的第二行，程序是正确的，输出也是按楼主的要求输出的（但格式可能不是你希望的），关键是你没仔细看。

rosegun38

我晕，我傻了，对不起啊，耽误大家的时间。

lovebbs

$rock = "\t$rock";
这一句变成
$rock .= "\t$rock";