- ・今朝の小田急
- ひさしぶりに早く自宅を出て 駅に行くと、人身事故があり、 運転を再開したばかりみたいだった。
急行は 通常でも混雑しているのに、遅れの影響でさらに 混雑するので、各駅停車で行く。
結果、通常なら1時間弱程度が 1時間40分くらい掛かった。
いつもの通り、車内放送で運行案内はめちゃめちゃ。 後続の急行が先行する、とアナウンスしながら、実際には、 先行しなかったり、各駅停車が先行する、とアナウンス しながら急行が先行したり...- ・こんな Perlスプリクトなら
- ファイル名を逆順に付け替えるソフト
即興で、Perl で書いてみました。注意)
#!/usr/bin/perl use strict; my $dir = $ARGV[0] || '.'; opendir DIR, "$dir" or die "Open error: $dir\n"; my @ls = sort grep { /^PICT\d+\.jpg$/} readdir DIR; closedir DIR; my $max = scalar @ls -1; foreach(0 .. $max) { $ls[$max - $_] =~ /(\d+)\./; (rename $ls[$_], sprintf "$1_%s", $ls[$_]) or die "Error: $ls[$_]!\n"; } print "Done.\n";
- PICT<数字並び>.jpg という形式のファイルが対象
- 数字の桁数は任意
- 番号が飛んでいたら、 先頭に付けられる番号も飛びます
- rename するときに既にファイルが存在すると上書きされます