Airbuggy COCO購入！

ひさびさのブログ更新ですが。。。

我が家に家族が一人増えることになったので、

ベビーカーをここ数ヶ月検討した結果、エアバギー・ココになりました！

クイニー・ザップと比較した結果、ココがいいかなと。
で、いざ購入して車（FIAT Panda）に積んでみると。。。

ギリギリでしたね。
危ない危ない。。ミミならアウトだったな。。

VERSIONS > SCM

xcodeの機能でSCMというものがあり、
SVNも利用できるので、使っていたが
どうも使い勝手が良くない。
とはいうものの、MacのSVNクライアントは
あまり種類がないんだよね。。。
と思って特に検索しなかったのだけど、
SCMに我慢できなくなって検索してみたら
良さげなやつがあったので試してみた。

VERSIONS

今まで見た中では一番使い勝手が良く、
わかりやすい。
当分はこれをメインのSVNクライアントに
しようと思う。

EASYTONE

を買ってみた。
http://www.reebokjapan.com/products/easytone/index.html

4,5分歩くと太ももの裏側が貼ってくる感じがします。
これは効果ありそうな予感。
14,000円もするから効果ないと困るw

OAuth::Liteのget_request_tokenの代わりを作る

OAuth::Lite::Consumerのget_request_tokenがうまく動作しないようなので、
代用品を作ってみる。

my $consumer = new OAuth::LIte::Consumer(
  consumer_key => '****',
  consumer_secret => '****'
);

my $params = $consumer->gen_auth_params(
  'POST',
  'https://api.twitter.com/oauth/request_token'
);

$params->{oauth_callback} = 'コールバックのURL';

my $sig = $consumer->{signature_method}->new(
  consumer_secret => '*******',
  token_secret => ''
);
my $base = &OAuth::Lite::Consumer::create_signature_base_string(
  'POST',
  'https://api.twitter.com/oauth/request_token',
  $params
);

$params->{oauth_signature} = $sig->sign($base);

my $header = 'OAuth ';
foreach(sort{$a cmp $b} keys %$params){
  $header .= "$_\"" . uri_escape($params->{$_}) . "\",";
}
chop($header);
chop($header);

my $req = new HTTP::Request(
  'POST',
  'https://api.twitter.com/oauth/request_token'
);
$req->header('Authorization' => $header);
my $ua = new LWP::UserAgent();
my $res = $ua->request($req);

my $result;
foreach(split(/\&/,$res->content)){
  if($_ =~ /^([^\=]+)\=(.+)$/){
    $result->{$1} = $2;
  }
}

Apple Magic Trackpad

会社用に購入。購入してみた感想。
『思った以上に使いやすい』
クリックは下のゴム部分を使ってクリックをさせているように
できるようで、なんとなく早くダメになりそうな気がしたので
タップをクリック扱いするように変更。
ダブルタップでダブルクリック。
ダブルタップ後、ポイントをずらせばドラッグ。
もう一度タップで、ドロップ。

これがまた使いやすい。

家のMacBookProのようにマウス？操作が行える。

値段もそんなに高くないし、Bruetooth接続だけど

特に遅延もないようだし、いい買い物をしたのではないかと。

PerlでTwitterの検索を行う

こちらは簡単。

my $ua = new LWP::UserAgent();
my $req = new HTTP::Request(GET => 'http://search.twitter.com/search.atom?q=***');
my $res = $ua->request($req);
if($res->is_success()){
  my $content = $res->content;
  $content = decode('utf-8',$content);
  $content =~ s/&#(\d+);/chr($1)/ge;
  $content = encode('utf-8',$content);
  print $content;
}else{
  print "Error!!\n";
}

perlでOAuth::Liteを使う

こんな感じで、OAuthを使って投稿できます。

OAuth::Liteを使うためのモジュールが結構必要。

Class::Accessor: 0.31

Class::Data::Accessor: 0.04001
Class::ErrorHandler: 0.01
Compress::Zlib: 2.001
Crypt::OpenSSL::RSA: 0.25
Crypt::OpenSSL::Random: 0.04
Digest::SHA: 5.45
LWP: 0
List::MoreUtils: 0.21
MIME::Base64: 3.07
UNIVERSAL::require: 0.11
URI: 1.35

use LWP::UserAgent;
use OAuth::Lite::Cosumer;

my $consumer = new OAuth::Lite::Consumer(
  'consumer_key' => $c_key,
  'consumer_secret' => $c_secret
);

my $token = new OAuth::Lite::Token(
  'token' => $a_token,
  'secret' => $a_secret
);

my $req = $consumer->gen_oauth_request(
  'method' => 'POST',
  'url' => 'http://twitter.com/statuses/update.xml',
  'token' => $token,
  'params' => {status => 'テスト'}
);

my $ua = new LWP::UserAgent();
my $res = $ua->request($req);