rename コマンドで可能だぞ。rename コマンドは Perl の式でファイル名を置換可能だ！

「拡張子のないファイル」にマッチするシェルのglob表現は簡単ではないし、シェルスクリプトの for 文の文法はだいたいいつも忘れている。rename コマンドは Perl の正規表現という大変慣れたものを使え、sed や awk などと比べても安心感がある。

rename -v -n 's/^([^.]+)$/$1.txt/' *

置換が行われなかった場合リネームは行われない。-n はドライランなので実際に実行するときは外す。-v は verbose オプションで、つけておいたほうがいい。

この正規表現では . を含まないファイル名にマッチさせ、.txt をファイル名にあとに追加している。

1. トップ
2. tech
3. 拡張子のないファイルに一括で拡張子を付与する

1. トップ
2. perl
3. 拡張子のないファイルに一括で拡張子を付与する

ワーカー使っていると、一部のジョブだけちょっと優先的に実行したいということがあるので、TheSchwartz の場合、prioritize => 1 にしてプライオリティを有効にするとよいのですが、挙動でハマったのでメモをしておきます。

update job set run_after = insert_time, grabbed_until = insert_time, priority = 1 where ...;

＿人人人人人人人人人人人人＿
＞　なかなか実行されない　＜
￣Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y￣

1. トップ
2. tech
3. TheSchwartz の prioritize を有効にしたときの挙動は愉快

1. トップ
2. perl
3. TheSchwartz の prioritize を有効にしたときの挙動は愉快

Locale::Maketext::Extract::Plugin 以下にはいろいろ対応してるフォーマットがあったりする。まぁ大抵一緒なので頑張って使う必要もないけど、これらを使って .po ファイルを作らないまでも、msgid の抽出だけ行いたいという場合があったりします。そんなときは直接 LME インスタンスを作って extract_file をかけて compile すれば、とれるようになるみたいです。

use Locale::Maketext::Extract;
use Locale::Maketext::Extract::Plugin::Xslate;
use File::Zglob;

my $lme = Locale::Maketext::Extract->new(
    plugins => {
        perl => [ 'pm' ],
        xslate  => {
            syntax     => 'TTerse',
            extensions => [qw/ tt /],
        },
        generic => [ 'js' ]
    },
    warnings => 1,
    verbose => 0,
);
 
 
for (zglob('lib/**/*.pm'), zglob('template/**/*.tt'), zglob('static/**/*.js')) {
    $lme->extract_file($_);
}

$lme->compile(1); # これをしないと msgids がとれない

for my $msgid ($lme->msgids) {
    say $msgid;
    $lme->msg_positions($msgid); # 見つかった場所がとれる
}

1. トップ
2. tech
3. Locale::Maketext::Extract でスキャンだけする。

1. トップ
2. perl
3. Locale::Maketext::Extract でスキャンだけする。