unknownplace.org

なやがまんと。

VMWare をいれてみつつ、vim の使い方を教わる。むずい＞＜

巷で colinux より軽いともっぱらの噂の VMWare だが、正直体感では全然重い気がする(手元のcolinux0.6.2と比較)

慣れ親しんだ svk, aptitude の反応が VMWare テラオソス。

最近のバージョンの colinux が不安定つことなんかね。

までも VMWare の良いと思った点は

• イメージファイルの容量が可変(1Gのイメージ作っても使ってるバイト数分しか容量食わない)
• サスペンドできるからいつでも復旧可能

とノートPCにはやさしい感じなので、もう少し使ってみようかと。

vim はむずい。あと perl の色付けがキモイ。

退社。

川o・-・）＜2nd life - JavaScript や CSS の query に自動で最終更新時間をつける Rails Plugin

インスパイア。

package Catalyst::Plugin::URI::MtimeQuery;

sub uri_for {
    my $c   = shift;
    my $res = $c->NEXT::uri_for(@_);

    if ( $res =~ /\.(css|js|swf)$/ ) {
        my $base = $c->req->base;
        my ($path) = $res =~ m!^$base/(.*)!;

        my $file = $c->path_to( 'root', split '/', $path );
        if ( $file->stat && -f _ && -r _ ) {
            $res .= '?' . $file->stat->mtime;
        }
    }

    $res;
}

1;

Catalyst では CSS や Javascript の読み込みは [% c.uri_for('/js/prototype.js') %] などのように記述することが多いのですが、上記プラグインをロードしておくと、css|js|swf の場合は自動で更新時間が付くようになります。試してないけど。

上のは設定きめうちなんだけどその理由は config の設定キー名思いつかなかったからという。。

あと、swf は普通にクエリを渡して使うことが多いのでこのままだとあまり使えない。

qr/\.(css|js|swf)$/ みたいなのを YAML で書くにはどうしたらいいのだろうとおもって、とりあえず YAML モジュールを使って

use YAML;

my $data = {
    regex => qr/\.(css|js|swf)$/,
};

print Dump( $data );

こんなのをしてみる。

結果。

---
regex: !perl/regexp:
  REGEXP: \.(css|js|swf)$

こんな風に書くのか。これを LoadFile しても

$VAR1 = {
          'regex' => qr/(?-xism:(?:\.(css|js|swf)$))/
        };

となるのでちゃんと使えるようだ。

でも YAML::Syck だと Load Dump ともにうまく動かない。

出社。

// ==UserScript== // @name Gyao link fixer // @namespace http://unknownplace.org/ // @description fix gyao movie links

// @include      http://www.gyao.jp/*

// ==/UserScript==

(function() {
    var anchors = document.getElementsByTagName('a');

    for (var i = 0; i < anchors.length; i++) {
        var anchor = anchors[i];
        if (anchor.href.match(/javascript:directScreen/)) {
            var content = anchor.href.match(/cnt\d+/);
            var rate    = anchor.href.match(/bit\d+/);
            var user    = document.cookie.match(/Cookie_UserId=(\w+)/)[1];

            anchor.href
                = 'http://www.gyao.jp/sityou/asx.php?contentsId=' + content +
                '&userNo=' + user + '&rateId=' + rate;
        }
    }
})();

退社。

• perldoc DB
• Devel::SimpleTrace

もはや apache2 は svn 専用。