Perl - 入出力(カラム幅の指定)

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、5章(入出力)の5.13(練習問題)3.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

5.13(練習問題)3.

コード(BBEdit, Emacs)

sample.pl

#!/usr/bin/env perl
# use diagnostics;
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

print 'カラム幅を入力: ';
chomp( my $cols = <STDIN> );
say '単語を入力';
chomp(my @words = <STDIN>);

say "1234567890" x ($cols / 10 + 1);;

for (@words) {
    printf "%${cols}s\n", $_;
}

入出力結果(Terminal)

$ ./sample.pl
カラム幅を入力: 30
単語を入力
hello
good-bye
1234567890123456789012345678901234567890
                         hello
                      good-bye
$