@gyokuon : 終戦の詔勅（玉音放送）を放送する twitter bot を作った

もうすぐ終戦の日ということで、終戦の詔勅を放送するtwitter botを作りました。
8月15日正午から約30分間、玉音放送の内容をポストします。

年1回しか動かないレアキャラボットを作ってみたかっただけなんですが、毎年この時期になると思い出したように戦争について考えたりする僕みたいな人にとっては、このbotもそういう契機の一つになればよいかなと思います。

ソース

#!/usr/bin/perl
use utf8;
use strict;
use warnings;
use Encode qw(decode);
use FindBin;
use Net::Twitter;

my $username = <ユーザ名>;
my $password = <パスワード>;
my $filename = 'voice.txt';
my $wait = 90;

my $filepath = "$FindBin::RealBin/$filename";

open my $fh, '<', $filepath or warn "Cannot open $filename";

my $twit = Net::Twitter->new( username => $username, password => $password );

while (<$fh>) {
    chomp;
    $twit->update(decode('utf8', $_));
    sleep($wait);
}

close $fh;

voice.txt

＊只今より重大なる放送があります。全国聴取者の皆様御起立願います。天皇陛下におかれましては、全国民に対し、畏くも御自ら大詔を宣らせ給う事になりました。これよりつつしみて玉音をお送り申します。
朕深ク世界ノ大勢ト帝国ノ現状トニ鑑ミ非常ノ措置ヲ以テ時局ヲ収拾セムト欲シ茲ニ忠良ナル爾臣民ニ告ク
朕ハ帝国政府ヲシテ米英支蘇四国ニ対シ其ノ共同宣言ヲ受諾スル旨通告セシメタリ
抑々帝国臣民ノ康寧ヲ図リ万邦共栄ノ楽ヲ偕ニスルハ皇祖皇宗ノ遺範ニシテ朕ノ拳々措カサル所
曩ニ米英二国ニ宣戦セル所以モ亦実ニ帝国ノ自存ト東亜ノ安定トヲ庶幾スルニ出テ他国ノ主権ヲ排シ領土ヲ侵スカ如キハ固ヨリ朕カ志ニアラス
然ルニ交戦已ニ四歳ヲ閲シ朕カ陸海将兵ノ勇戦朕カ百僚有司ノ励精朕カ一億衆庶ノ奉公各々最善ヲ尽セルニ拘ラス戦局必スシモ好転セス世界ノ大勢亦我ニ利アラス
加之敵ハ新ニ残虐ナル爆弾ヲ使用シテ頻ニ無辜ヲ殺傷シ惨害ノ及フ所真ニ測ルヘカラサルニ至ル
而モ尚交戦ヲ継続セムカ終ニ我カ民族ノ滅亡ヲ招来スルノミナラス延テ人類ノ文明ヲモ破却スヘシ
斯ノ如クムハ朕何ヲ以テカ億兆ノ赤子ヲ保シ皇祖皇宗ノ神霊ニ謝セムヤ是レ朕カ帝国政府ヲシテ共同宣言ニ応セシムルニ至レル所以ナリ
朕ハ帝国ト共ニ終始東亜ノ解放ニ協力セル諸盟邦ニ対シ遺憾ノ意ヲ表セサルヲ得ス帝国臣民ニシテ戦陣ニ死シ職域ニ殉シ非命ニ斃レタル者及其ノ遺族ニ想ヲ致セハ五内為ニ裂ク
且戦傷ヲ負ヒ災禍ヲ蒙リ家業ヲ失ヒタル者ノ厚生ニ至リテハ朕ノ深ク軫念スル所ナリ
惟フニ今後帝国ノ受クヘキ苦難ハ固ヨリ尋常ニアラス
爾臣民ノ衷情モ朕善ク之ヲ知ル
然レトモ朕ハ時運ノ趨ク所堪ヘ難キヲ堪ヘ忍ヒ難キヲ忍ヒ以テ万世ノ為ニ太平ヲ開カムト欲ス
朕ハ茲ニ国体ヲ護持シ得テ忠良ナル爾臣民ノ赤誠ニ信倚シ常ニ爾臣民ト共ニ在リ
若シ夫レ情ノ激スル所濫ニ事端ヲ滋クシ或ハ同胞排擠互ニ時局ヲ乱リ為ニ大道ヲ誤リ信義ヲ世界ニ失フカ如キハ朕最モ之ヲ戒ム
宜シク挙国一家子孫相伝ヘ確ク神州ノ不滅ヲ信シ任重クシテ道遠キヲ念ヒ総力ヲ将来ノ建設ニ傾ケ道義ヲ篤クシ志操ヲ鞏クシ誓テ国体ノ精華ヲ発揚シ世界ノ進運ニ後レサラムコトヲ期スヘシ爾臣民其レ克ク朕カ意ヲ体セヨ
＊謹みて天皇陛下の玉音放送を終わります。

cronの設定

0 12 15 8 * (スクリプトの絶対パス)