true tears で学ぶ Perl 入門 - ゆーすけべー日記

 #!/usr/bin/perl
use strict; # おまじない
use warnings;
use Encode;
use utf8;

# スカラー
my $title = "true tears で学ぶ Perl 入門";

# リスト
my @names = qw(Shinichirou Noe Hiromi Aiko Nobuse);

# 標準出力
print "Dareni suru?\n";
# 関数
print join( ', ', @names ) . "\n";
# 標準入力
my $name = <STDIN>;
# 関数
chomp($name);
# エラー処理
die "眞一郎の靴の底にもあぶらむし♪\n" unless $name;
# 制御構文, grep, 正規表現
if ( grep { $_ =~ /$name/i } @names ) {
# Encodeモジュール, サブルーチンの使用
    print "$name: " . encode( 'utf8', talk($name) ) . "\n";
}
else {
    print "Chanto erande yo!\n";
}

# サブルーチン定義
sub talk {
    my $name = shift;
    # リファレンス
    my $map  = {
        Shinichirou => [ '全部ちゃんとするから', '君の涙を' ],
        Noe         => [
            '私 涙、あげちゃったから',
            'はい、ぱちぱちってして',
            'ちゃんと言って、ここに書いて',
            'なかなか飛べないね'
        ],
        Hiromi => [
            '私 何がしたいの',
            'おせっかいな男の子ってバカみたい',
            '雪が降っていない街',
            '何も見てない私の瞳から',
            'あなたが好きなのは私じゃない',
        ],
        Aiko => [
            'どうなった？ こないだの話',
            'それ なんの冗談？'
        ],
        Nobuse => ['よー'],
    };
    # デリファレンス
    my @sentences = @{ $map->{$name} };
    # リスト要素の抽出
    return $sentences[ rand @sentences ];
}