swatch

仕事で swatch を使ってみた。root 権限のないホストだったので、まぁ適当にホームディレクトリに各種パッケージをインストールして。って感じ。で .swatchrc を書くのだが、適当にスペースで区切られたフィールドを行として扱う正規表現が

percodemy $prefix = "(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+).*";

なんてあまりにも....仕組としては .swatchrc から .swatch_script.$$ みたいなスクリプトを作成して、これを実行するようなので、眺めてみると

LOOP: while (defined($_=$File->read)) {

    chomp;
    my $S_ = $_;
    @_ = split;

    ### quote all special shell chars ###
    $S_ =~ s/([;&\(\)\|\^><\$`'\\])/\\$1/g;
    my @S_ = split(/\s+/, $S_);
    ....

反則かもしれないけど、この @S_ を使うと便利ってただそれだけ。あっ、もう一点。--extra-moduleで指定したら、先の swatch_script.$$ でも use lib 'extra-modeule' してくれると嬉しいカモ。