奇科電腦 輸入一字串及一數字(分成2列輸入)，把字串重複n次輸出

#!/usr/bin/perl -w

my @in;
while(chomp($_ = )) {
push @in, $_;
last if $. >= 2;
}
print $in[0] x $in[1], "\n"; 

更多技術小秘訣請參考以下網頁
http://www.geego.com.tw/tech_support/new-tips