互助会ふれあいコメントクリエーター (Perl版)

増田の「コミュ力アップのためにプログラムを使う」の「互助会ふれあいコメントクリエーターというプログラム」とやらを実装してみた。

gojo-com-creator.pl

#!/usr/bin/env perl
use strict;
use warnings;
my @dat;
my $type = 0;
while (<DATA>) {
    chomp;
    do {$type++; next} if /^#/;
    push @{$dat[$type]}, $_;
}
for (my $i = 0; $i < 1000; $i++) {
    print join("", map {$dat[$_][rand(@{$dat[$_]})]} 0..2)." ";
}

__DATA__
ありがとうございます
タメになりました
参考になります
いいね
今度やってみたい
今度試してみます
いいですね
これは気になる
これは面白そう
大好き
これはすごい
よろしくお願いします
素晴らしい
すごいですね
なるほど
参考になる
これは為になりますね
これはやばい
勉強になりました
いいねえ
大変参考になります
同感です。
参考にさせていただきます
これ読んで工夫してみます
参考になります
#
！
。

#
(^^)
φ(..)
！
(*'▽')
_φ(･_･

• 実行例
• 参考：コミュ力アップのためにプログラムを使う