初めてのPerl ~6章 入出力の基本~

練習問題１：
catのような振る舞いをするプログラムを書いてください。ただし、出力を逆順に行うこと。

#! /usr/bin/perl -w

use strict;

print reverse <>;

練習問題２：
文字列のリストを1行に1個ずつ別々に読み込んで、その文字列を20文字幅のカラムに右寄せで表示するプログラムを書いてください。

#! /usr/bin/perl -w

use strict;

chomp(my @input = );

print "1234567890" x 3 . "\n";

my $text = ("%20s \n" x @input);
printf $text, @input;

練習問題３：
練習問題3のプログラムを改造して、ユーザがカラムの幅を指定できるようにしてください。

#! /usr/bin/perl -w

chomp(my($column,@data) = );

print "1234567890" x ($column/10);
print (1..($column%10));
print "\n";

my $text = ("%${column}s \n" x @data);
printf $text, @data;