Perl - スカラーデータ(文字列繰り返し演算子)

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤 嘉雪 翻訳

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2) の2章(スカラーデータ)、2.12(練習問題)5を解いてみる。

5.

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;

while(1){
  print "文字列を入力: ";
  my $str = <STDIN>;
  last if $str =~/^\s*$/;
  while(1){
    print "数値を入力: ";
    chomp(my $num = <STDIN>);
    if($num =~/^\d+$/){
      print $str x $num . "\n";
      last;
    } else {
      print "数値を入力してください。\n";
      next;
    }
  }
}

入出力結果(Terminal)

$ ./sample.pl
文字列を入力: fred
数値を入力: 3
fred
fred
fred

文字列を入力: fred
数値を入力: 10
fred
fred
fred
fred
fred
fred
fred
fred
fred
fred

文字列を入力: 
$