互助会ふれあいコメントクリエーター (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__ ありがとうございます タメになりました 参考になります いいね 今度やってみたい 今度試してみます いいですね これは気になる これは面白そう 大好き これはすごい よろしくお願いします 素晴らしい すごいですね なるほど 参考になる これは為になりますね これはやばい 勉強になりました いいねえ 大変参考になります 同感です。 参考にさせていただきます これ読んで工夫してみます 参考になります # ! 。 # (^^) φ(..) ! (*'▽') _φ(・_・