Perl 演算子 x を使った文字列の繰り返し
演算子xを使った文字列の繰り返し
勉強していて楽しかったので記録。文字列を文字で作った飾り枠で囲ったりしました。
演算子xの使って'-'
を40個表示する。
print '-' x 40, "\n"; > ----------------------------------------
次に配列@textの各要素を文字で作った飾り枠で囲みます。
my @text = ( "There's more than one way to do it.", "Write once, run anywhere.", "Programming Lesson", ); foreach my $str (@text) { print '+','-' x length($str),'+',"\n"; print '|',$str,'|',"\n"; print '+','-' x length($str),'+',"\n"; } > +-----------------------------------+ > |There's more than one way to do it.| > +-----------------------------------+ > +-------------------------+ > |Write once, run anywhere.| > +-------------------------+ > +-------------------+ > |Programming Lesson.| > +-------------------+
'-'
をいくつ繰り返すかはlength($str)
で得ています。
参考文書
- 作者: 結城浩
- 出版社/メーカー: ソフトバンククリエイティブ
- 発売日: 2006/10/21
- メディア: 単行本
- 購入: 16人 クリック: 235回
- この商品を含むブログ (77件) を見る