Question

perl 循环多出一行（新手希望高手指教）

$a=<STDIN>;
$b=<STDIN>;
$c=0;
while($c<$b)
{
print ($a)x($b);
$c++
}

这是程序，谢谢！！

Answer 1

首先你这个程序是错的，起始原因很简单
你通过<stdin>输入，那么就有一个回车键，在这个情况下应该用chomp掉
其次，你是想实现乘法么？那么也错了。($a)x($b); 这里$b做了个数的作用
我给你改了改。你这个程序毛病好多啊~~太多了~~ 我郁闷，貌似还想做个循环是把，我给你加了个可以看的。
#!/usr/bin/perl

use strict;
use warnings;

chomp(my $a=<STDIN> );
chomp(my $b=<STDIN>);
my $c=0;
my $i=0;
while($c<$b)
{
$i++;
print $a*$b,"the $i rond!";#if you wanna do a multiplication here!
$c++;
}
-----------------------------
输出结果如下，我输入1，2。
1
2
2the 1 rond!2the 2 rond!

Answer 2

我很疑惑你要达到的效果是怎样的。。。

首先光从代码来看。
$a=<STDIN>;
$b=<STDIN>;
应该为
chomp($a=<STDIN>);
chomp($b=<STDIN>);

$c++ 后面加分号。

Answer 3

what is the result?
zhi xing jie guo shi shen me ?