2012-04-05

ドラマ視聴メモ

今までは DVD か CATV でしか観てなかったけど Hulu でも観始めたので忘れないようにメモ。

  • ER s1-s15
  • 24 s1-s8
  • BONES s1-s5
  • DEXTER s1-s5
  • LOST s1-s6
  • PRISON BREAK s1-s4
  • nip/tuck s1-s4
  • HEROES s1-s2
  • FRINGE s1
  • glee s1半分
  • HOUSE s1-s3?
  • NCIS s1-s4?
2012-01-14

散髪した

中学生くらいまで通ってた近所の床屋に10数年ぶりに行ってみた。さすがに忘れられていた。あと、床屋の息子(と言っても40歳位)が順調に中年太りしてた。帰りに黒い綿棒をお年賀としてもらう。
f:id:KGA:20120114185233j:plain

2011-11-17

Log::Minimal::COLOR の色を変更する

perl

debugf が白地に赤でちょっと見辛かったので。

$Log::Minimal::DEFAULT_COLOR->{debug} = {
    text       => 'blue',
    background => 'black',
};

色名は Term::ANSIColor で使えるやつ。

    The recognized normal foreground color attributes (colors 0 to 7) are:

      black  red  green  yellow  blue  magenta  cyan  white

    The corresponding bright foreground color attributes (colors 8 to 15)
    are:

      bright_black  bright_red      bright_green  bright_yellow
      bright_blue   bright_magenta  bright_cyan   bright_white
2011-11-17

Furl::S3 を使ってオブジェクトのコピー

perl

Amazon S3 をごにょるモジュールといえば Net::Amazon::S3 とか Amazon::S3 とかがあるのだけれど、LWP::UserAgent 使ってたり Net:: の方は Moose だったりするので、最近は Furl::S3 を使ってる。Furl::S3 には put とか get の基本的なメソッドとバケットの操作ぐらいしか無いんだけど、認証用のヘッダをよしなにしてくれる request メソッドがあるので追加のヘッダを指定してあげれば大抵の S3 の操作はできる。と思う。で、バケットのオブジェクトを別のバケットにまるっとコピーする必要があったので Furl::S3 でやってみた(同一のバケットでもやり方は同じ)。$header は2つめの参考文献に載ってるやつを必要に応じて指定するといいです。

実際には Coro::Semaphore とか Coro::Select あたりと組み合わせて並列にやってます。

use Furl::S3;

my $furl = Furl::S3->new(%conf);

my $source_bucket = 'from';
my $source_key    = 'path/to/photo.jpg';

my $copy_source = "/$source_bucket/$source_key";

my $header = {
    'x-amz-copy-source' => $copy_source,
    'x-amz-acl'         => 'public-read',
    'content_type'      => 'image/jpeg',
};

my $dest_bucket = 'to';
my $dest_key    = 'path/to/dir/image.jpg';

my $res = $furl->request('PUT', $dest_bucket, $dest_key, undef, $header);