作者giacch (小a)
看板Perl
标题Re: [问题]新手问题
时间Fri Sep 19 01:19:41 2008
※ 引述《yingwan (yingwan)》之铭言：
: 大家好
: 刚接触perl第二个礼拜，老师出的一个问题我一直卡着，所以上来请教各位前辈
: 我们老师要我们写出一个指令，先问喜欢的颜色，再依照对方回答排出以下图案
: red red red red red red red red red red
: red red
: red red
: red red red red red red red red red red
: 问题就在，我用red测试OK，但是如果用blue 就会变成
: blue blue blue blue blue blue blue blue blue blue
: blue blue
: blue blue
: blue blue blue blue blue blue blue blue blue blue
: 可是我希望是
: blue blue blue blue blue blue blue blue blue blue
: blue blue
: blue blue
: blue blue blue blue blue blue blue blue blue blue
: 我把我的步骤贴在下面，希望有前辈可以指点我一下，谢谢
#!usr/bin/perl -w
print "What is your favorite color?\n ";
$a=<STDIN>;
chomp $a;
#$b= ($a ." " . $a. " ") x 5 ;
$b = $a . " $a" x 9;
#$c= $a . "\t" x 5 . $a;
$c = $a . " " x (length(" $a") * 9) . " $a";
print "$b\n";
print "$c\n";
print "$c\n";
print "$b\n";
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.232.236.185
1F：推 yingwan:感谢大大，我昨天解出来了,我用\t加" " 09/19 21:35
2F：→ yingwan:再乘以$a长度 09/19 21:37