dropbox-api-command - DropboxでLinuxライクなコマンド操作を

syncの使用例 ( remote => local )

delete ( -d ), dry run ( -n ), verbose ( -v ) に作り手のこだわりを感じますね!!

> dropbox-api sync dropbox:/product/checker/src /tmp/product -dnv
remote_base: /product/chrome-extentions/checker/src
local_base: /private/tmp/product
** download **
skip background.html
download /private/tmp/product/external.png
download /private/tmp/product/icon-32.png
download /private/tmp/product/icon-128.png
skip icon.gif
skip jquery-1.4.2.min.js
skip main.js
skip manifest.json
skip options.html
skip popup.html
skip reset.css
** delete **
skip background.html
remove background.html.tmp
skip icon.gif
skip jquery-1.4.2.min.js
skip main.js
skip manifest.json
skip options.html
skip popup.html
skip reset.css

plackupでワンライナー

plackup -e "sub { use Data::Dumper;warn Dumper(@_);[200, [], ['ok']] }"

plackup -e "sub { [404, ['X-XRDS-Location', 'http://www.example.jp/xrds'], ['404']] }"

plackup -MDocLife::Pod -e 'DocLife::Pod->new( root => "./lib" )->to_app'

ワンライナーの探し方（過去自分で書いた）

gistに上げてAPIをブラウザでアクセスしてCtrl-F

https://api.github.com/users/s-aska/gists (s-askaの所はあなたのIDにしてね!)

description埋めてないとこれでも探せないZe☆

ガラケーサイト with Plack::Session

Amon2::Setup::Flavor::MobileJP ! ※詳しくはamon2トラック参照

Amon2::Setup::Flavor::MobileJP !! ※大 (ry

Plack::MiddlewareでSession使う必要があり、

HTTP::SessionからURIに埋めるヤツを複写して使っていたのですが、

今はcpanに上げています。

Plack::Session::State::URI使うとcookieダメな子も安心!

※CookieいけるときはCookieで的な事まではしてないです、ごめんよみんな

enable 'Plack::Middleware::Session',
    %{ $config->{Session} },
    state => Plack::Session::State::URI->new(
        session_id_name => 'sss',
    );

MySQL Casual with Teng

jsonの値MySQLに突っ込みたい時に xxx_json 的なカラムは自動en/decodeする的なコード

よくある_onをDateTimeにする奴とかと一緒な感じですね。 (詳しくはtengトラック参照)

やり方は色々あります、以下はあくまでサンプルという事でお願いします。

sub db {
    my $c = shift;
    unless ( defined $c->{db} ) {
        my $conf = $c->config->{DBI}
          or die "missing configuration for 'DB'";
        my $dbh = DBI->connect(@$conf);
        my $schema = Teng::Schema::Loader->load(
            namespace => 'MyApp::DB',
            dbh => $dbh
        );
        for my $table (values %{ $schema->tables }) {
            for my $column (grep /_json$/, @{ $table->columns }) {
                $table->add_inflator($column, sub {
                    $_[0] ? decode_json(shift) : {}
                });
                $table->add_deflator($column, sub {
                    encode_json(shift)
                });
            }
        }
        $c->{db} = MyApp::DB->new(
            dbh    => $dbh,
            schema => $schema
        );
    }
    return $c->{db};
}

• スキーマから定義
• _json で終わるカラム名は自動 en/decode
• カラム拡張とかもしたいので MyApp::DB は書いてある

Perlのススメ

このエントリーを見てくれた人の中には

「実は私まだPerl Mongerじゃ...」という方もいるかも知れません（居ないよ!!）

なので色々紹介してみましょう!!