[紧急求助]一个关于循环的问题??

fgh1124

UID: 31336
帖子: 53
积分: 121
在线时间: 4 小时

1^# fgh1124 发表于 2008-06-22 12:41

[紧急求助]一个关于循环的问题??

[紧急求助]一个关于循环的问题??
#!/usr/bin/perl
while ($i <= 10){
$i++;
print "B\n";
     while ($j <= 10){
     $j++;
     print "A\n";
}
}
输出结果为"
B
A
A
A
A
A
A
A
A
A
A
B
B
B
B
B
B
B
B
B

为什么不是100个字母.若想实现输出
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
B
A
A
A
A
A
A
A
A
A
A
怎么实现!!!!!

liuwg8018

UID: 8148
帖子: 105
积分: 241
在线时间: 15 小时

2^# liuwg8018 发表于 2008-06-22 18:27

你好!你的程序是有问题,刚.
你好!你的程序是有问题,刚开始我也觉得奇怪,但是你忘了把内loop赋为初值了.

#!D:\Perl\bin\perl.exe

my $i=1;
while ($i <= 10){
$i++;
print "B\n";
   my $j = 1;
   while ($j <= 10){
   $j++;
   print "A\n";
   }
}