初めてのPerl 第５章 入出力 練習問題2

初めてのPerl 第5章 入出力 練習問題2

今回は正解する前まで考えていたコードも記載しています。以下のプログラム内のコメントアウトしてあるコードです。

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use 5.010;

#入力値を格納する。
my @list = <STDIN>;
chomp(@list);

#ものさしを表示する
#print "1234567890" * 6;
say "1234567890" x 6;

#ものさしに合わせて20字目に右揃えにしたい

foreach my $line(@list){
  printf "%20s\n" , $line;
}

以下が出力の結果になります。

hello
good-bye
123456789012345678901234567890123456789012345678901234567890
               hello
            good-bye