もうすぐ終戦の日ということで、終戦の詔勅を放送するtwitter botを作りました。 8月15日正午から約30分間、玉音放送の内容をポストします。 @gyokuon 年1回しか動かないレアキャラボットを作ってみたかっただけなんですが、毎年この時期になると思い出した…

最近は Twitter の bot 作りばかりやっている。元気玉 なのであ〜る おうじょったー リプライの収集はどのボットにも出てくる、定番っぽい感じなんでさらしてみる。手順としては、 BASIC認証 RSS取得 RSS解析 ループでハッシュの配列を作成 ReTweet されたの…

ドラクエ１に出てくる「王女の愛」というアイテムの Bot おうじょったー を作った時のメモ。 リプライしてくれたユーザの位置を決める おうじょたーは自分にリプライしてくれたユーザの twitter の利用具合から、そのユーザの現在位置を決めています。前回の…

ドラクエ１に出てくる「王女の愛」というアイテムの Bot おうじょったー を作った時のメモ。 とりあえず Bot の説明 oujono をフレンド登録したあと @oujono 宛てに発言すると、 ラダトームの城からどのくらい離れているかをローラ姫が教えてくれます。（詳…

続・初めてのPerlの(P.164)にあった書き方に、何故か凄く感動したのでメモ hogehoge or die; # hogehoge でなければ死亡 hogehoge and die; # hogehoge ならば死亡 あと、やっと bless の意味が分かってきた。 クラスとリファレンスを紐付けるって意味が良く…

例えば配列の要素が 50個のとき、 普通の配列 @hoge なら $#hoge で 49 が返ってくる。 配列のリファレンス @$hoge なら $#$hoge 、単純に s/@/$#/ と考えればいい。 なので、ハッシュの中身が 配列リファレンスの場合 @{$hoge->{unko}} は、 $#{$hoge->{unk…

３の倍数と３のつく数字のときにアホになって、さらに５の倍数のときに犬っぽくなるワンライナー。

perl -e '@nabe=qw/0 aho! bow! ahooown!!/; map {$n=0; $n+=1 if(!($_%3)||/3/); $n+=2 if(!($_%5)); print $nabe[$n]?$nabe[$n]:$_,"\n"} (1..40)' ５の倍数のときに犬っぽくもなる

perl -e 'print map { !($_ % 3) || /3/ ? "aho!" : $_, "\n" } 1..40' １行では５の倍数で犬っぽくするのはしんどい

VBScript版、JavaScript版 に続けて Perl版。 中置記法の配列から後置記法の配列を生成します。 （数式の文字列を配列に変換する処理は割愛）