2.[8]写一个程序,要求用户在不同的行中输入一些字符串,将此字符串打印出来,规则是:每一条占 20 个字符宽度,右
对齐。 为了确保正确的输出,在开头打印出一串数字作为比较(帮助调试)
。注意,不要犯 19 个字符宽度的错误。例如,
如果输入,hello, good-bye,则输出为:
123456789012345678901234567890123456789012345678901234567890
hello
good-bye
对齐。 为了确保正确的输出,在开头打印出一串数字作为比较(帮助调试)
。注意,不要犯 19 个字符宽度的错误。例如,
如果输入,hello, good-bye,则输出为:
123456789012345678901234567890123456789012345678901234567890
hello
good-bye
#!/usr/bin/perl -w
@str=<STDIN>;
while($i!=5)
{
foreach(0..9)
{
print;
}
$i++;
}
print "\n";
foreach(@str)
{
chomp;
printf "%21s\n",$_;
}