2013-05-19

ド□リッチのストローが許せない

雑記

みなさんド□リッチ(一応伏字にしました)という飲み物をご存知でしょうか．
なんか甘くてドロっとした飲み物です．
今回は味なんてどうでもいいのです．ストローが絶対に許せないのです．見てください，このストローの形状．
ひどいでしょ．なにが金のストローですか !!

f:id:horoama:20130518175317j:plain

気がついたと思います．
このストローを伸ばそうとする時はどうしても口と当たる部分もしくは中の液体と接する部分を触らなければならないのです．これはちょいと非衛生的ですね．この商品を飲むとき，手が綺麗だとは限りませんから．ド□リッチに限らずこのような非衛生的なストローは多く存在します．

対処法

というわけで，如何にしてこのストローを触らずに伸ばして，なおかつ商品本体に差し込むか実験しました．

ストローの袋を利用する

まず容器からストローを引きちぎります．
下の写真のようにストローを押し出して，少しずつストローを伸ばしていきます．もちろん，ストローを触らずにストローの袋を動かして伸ばします．

f:id:horoama:20130518175340j:plain

この時，ストローの入っている袋を尺取虫のように動かすと上手くいきます．
わかりにくいと思いますが，ストローの袋をコシコシすれば多分大丈夫です.
以下の写真のようになればもう成功したも同然です．

f:id:horoama:20130518175429j:plain

3.あとはこの状態のストローを容器に差すだけです．簡単でしょ？
これで衛生的に甘い汁を飲むことができます．

f:id:horoama:20130518175437j:plain

手を洗いまくる

手を洗っておけばストローを素手で触っても安全だと思います．
あとは心の問題ですね．なので，自分で「これなら素手でストローを触っても大丈夫だろう」と思えるようになるまで手を洗い続ければ万事解決です．

ゴム手袋

ゴム手袋は装着すれば衛生的にストローを触れます．ゴム臭いですが・・・

ストローを使わない

ストローを使わずに容器の蓋を無理やりこじ開けて飲めば少なくとも非衛生的ストロー問題は解決できます．

非衛生ストローには勝てなかったよ

今回紹介した方法よりもスマートにストローを差す方法があるかもしれません．
しかし，それは非衛生的ストローに屈したことに変わりありません．
諸悪の根源はこのストローの形状なのです．その形状をどうにかしない限り非衛生ストロー問題の根本的解決とはいえません．ストロー付き飲料にとってストローはその飲料を飲むための唯一の手段です．その唯一の存在であるストローは衛生的であるべきです．ド□リッチを含めて多くのストロー付き飲料を作っている企業はストローの形状についてしっかりと考えて欲しいですね．

2013-04-08

perlによるTwitter botのこしらえ方

perl Twitter プログラミング

perlでTwitter botを作ろう

まずはCPANからNet::TwitterとYAML::Tinyをインストールします．

$ cpan Net::Twitter
$ cpan YAML::Tiny

用意した文章からランダムにつぶやかせる

#!/usr/bin/perl
use strict;
use Net::Twitter;
use YAML::Tiny;
use utf8;
binmode STDOUT,  ":utf8";  
my $config = (YAML::Tiny->read('config.yaml'))->[0];
my @tweet= @{(YAML::Tiny->read('tweet.yaml'))->[0]};
my $handle = Net::Twitter->new(
    traits => [qw/OAuth API::REST/],
    consumer_key => $config->{'consumer_key'},
    consumer_secret => $config->{'consumer_secret'},
    access_token => $config->{'token'},
    access_token_secret => $config->{'token_secret'},
);   
$handle->update(@tweet[int(rand(@tweet))]);

このファイルと同じディレクトリにconfig.yamlとtweet.yamlをおいてください．
config.yamlには以下のようにconsumer key,consummer secret,access token,access token secretなどを記録します．これらはTwitter Developersで取得できます．ここにtwitterのアカウントでSign inして，Create a new Appication リンクを押して，アプリケーションの登録を行います．アプリケーション情報を登録したら，Setting からApplication TypeをRead and Writeにする．そして，Detailの欄の下の方にあるCreate my access tokenをクリックします．すると，先ほど述べた4つの情報がDetailの欄に表示されていると思います．これを下の＊の部分に記録します．

consumer_key: *********************
consumer_secret: ****************************
token: ***********************************
token_secret: *************************

あとはtweet.yamlにつぶやかせたい言葉を以下のように記録します．

- ツイート  
- tweet  
- ついーと  
- ほげ

最初に記したperlのプログラムはこのtweet.yamlからランダムに言葉を取り出してツイートします．

タイムライン上の言葉に反応してを＠ツイートする

#!/usr/bin/perl
use strict;
use Net::Twitter;
use YAML::Tiny;
use utf8;
binmode STDOUT,  ":utf8";
my $config = (YAML::Tiny->read('config.yaml'))->[0];
my @tweet   = @{(YAML::Tiny->read('tweet.yaml'))->[0]};
my $handle = Net::Twitter->new(
        traits => [qw/OAuth API::REST/],
        consumer_key => $config->{'consumer_key'},
        consumer_secret => $config->{'consumer_secret'},
        access_token => $config->{'token'},
        access_token_secret => $config->{'token_secret'},
);
open (IN, "latest.txt");#以前の取得したツイートの中で最新のツイートID
my $since_id=<IN>;
close(IN);

my $array_ref = $handle->friends_timeline({since_id=>$since_id});#タイムライン取得
my $str;
my $TwitId;
my $reply;
my $TwitUserId;
my $latest_id;
my $rand;
my $result;
foreach my $hash_ref (reverse(@$array_ref)){
    $str=$hash_ref->{'text'};#本文取得
    $TwitId=$hash_ref->{'id'};#ツイートのID取得
    $TwitUserId=$hash_ref->{'user'}{'screen_name'};#ユーザid
    $latest_id=$TwitId;
    if($str=~ /マッチさせたい単語/ ){
        $rand=int (rand(@tweet));
        $reply='@'.$TwitUserId.' '.@tweet[$rand];
        my $result = $handle->update({status=>$reply, in_reply_to_status_id => $TwitId});
    }
}
open (OUT, "> latest.txt");#最新のツイートIDを記録
print (OUT $latest_id);
close(OUT);

latest.txtには1とだけ記録して実行してください．実行後最新のツイートIDがlatest.txtに出力されます．tweet.yamlには返信するツイートの内容を記録しておきます．tweet.yamlの中からランダムに呟きます．
そしてこれをcronで定期的に実行させると特定の単語に反応してツイートするようになります．

このようにかなり雑にですがBOTの作り方を紹介しました．
間違いがあったらペコりますごめんなさい．
もっと詳しく知りたいならNet::Twitterで検索するなり，$perldoc Net::Twitterでマニュアルを見るなりしてみるといいかもしれませんね．

2013-02-25

Nexus7-突然の死-

雑記 Android

電源が入らない

私は12月ごろからNexus7というタブレット端末を利用している．これを手にしてから我が人生は娯楽に満ちていた．
しかし，それは起きた．
Nexus7の電源がいきなり入らなくなったのである．
その日，私はNexus7が起動中の画面のまま長時間止まっていることに気づいた．いつまでも起動中の画面だったので電源ボタンを長押しして電源を切ることにした．
しかし，いざ再起動しようと電源ボタンを押しても画面に映るのは絶望に満ちた自分の顔だけだった．
まだだ，まだあわてるような時間ではない・・・

対処法

泣きながらググった結果，対処法に以下のようなものがある
どうやらよくある不具合らしい

電源ボタン超長押し

電源ボタンを13秒から20秒ほど押しつづけると起動する場合があるらしい．
試してみた
↓
画面真っ暗のまま
1分くらい押しつづけても無駄だった．
ボタン全押し

電源ボタン，音量の＋とーのボタンすべてを同時に押すという対処法．
この操作をすると横たわるドロイド君が画面に現れたら成功．
試してみた
↓
画面真っ暗のまま
1分くらい押しつづけても無駄だった．
純正のアダプタで充電

どうやらNexus7付属のアダプタでないと充電ができない場合があるようです．付属のアダプタでしっかりと充電すれば起動できるようになる．
しかし，私は付属のアダプタしか使っておらず12時間充電しても起動できなかった．

もうこれは故障だ．
これ以上頑張った結果直ったとしても，いつ不具合が再現するかわからない端末を使い続けるのは怖い．というわけでASUSに電話して修理を頼みました．
そこそこ丁寧な応対で安心したのですが，時々咳き込むのが不快でした．
修理に最低3週間かかるらしいです．
そういえば，ASUSへ電話した体験が書かれたブログがあったのですがその人も咳き込む声を聞かされたそうです．ASUSのコールセンターは空気が汚いのかな？

2013-02-17

あのオロロちゃんがtwitterに！？

Twitter プログラミング

オロロちゃんとは

twitterでオロロちゃんというbotをこしらえました．オロロちゃんとは私が考えたオリジナルキャラクターで，嘔吐が大好きという非常に下品な設定によってアイデンティティを確立しています．初めてペンタブを使って書いたオリジナルキャラクターなので，変に愛着が沸いてBOT化した次第でございます．

オロロちゃんの仕様

オロロちゃんBOTはいくつかのはしたない機能をもっています．
以下現在のオロロちゃんBOTの仕様

6時間おきにポスト
35パターンの個性あふれるツイートを用意しています．6時間という間隔は暫定的なものなので，今後変わるかもしれません．
嘔吐に関するツイートに反応してリプライ
ツイートに対して18パターンのリプライをします．
反応するワードは
- 吐く
- 吐いた
- 吐きそう
- 吐いちゃった
- 嘔吐
  です．はい・・・非常に下品ですね．でもそういう娘なんです，許してやってください．
嘔吐占い
「オロロちゃん占って」とツイートすると，オロロちゃんが占いリプライをしてくれます．かなり突発的に作った機能なので今後なくなる可能性もあります．
フォロー&フォロワー同期
自動でフォローとフォロワーを同じ状態にします．つまり，フォローされたらフォロー返しをし，フォローを外されたらこちらもフォローを外すというものです．この機能はまだ完全に動作を確認できていないので12時間に1回作動させています．
挨拶
「おはよう」や「おやすみ」という言葉にも反応して「おはよう」や「おやすみ」などのリプライを飛ばします。また，「オロロちゃん」という言葉にも反応するようにもしました。

オロロちゃんBOTについてはざっとこんなものです．オロロちゃんに少しでも興味があれば是非フォローしてください．これからはWEB上のなんらかの情報を取ってきて，ツイートするような機能を付けたいと思います．また，オロロちゃんにこんなことを言ってほしい，とかこんな機能をつけて欲しいというものがあればTwitterアカウントの方でDMもしくはこのブログでコメントをください．

このBOTの作り方や作った経緯などは後日書きます．