古い記事
ランダムジャンプ
新しい記事
ChangeLog の古い日付フォーマットを新しいのに変換するスクリプト。
chalow のパッケージに追加する予定。

#!/usr/bin/env perl # usage: prog ChangeLogFileName > NewFileName # before: Mon Jun 12 08:05:49 2000 YAM Tat # after: 2000-06-12 (Mon) YAM Tat my %mon; for (my $i = 0; $i < 12; $i++) { $mon{('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$i]} = $i + 1; } while (<>) { s/^([A-Z]..)\s([A-Z]..)\s+(\d+).+(\d{4})/ sprintf "%d-%02d-%02d (%s)", $4, $mon{$2}, $3, $1/ex; print; }
(追記: clweek.pl としてパッケージに入れました [2003-01-18-3])