最新版はこちら。 突っ込みは各日付の BBS エントリのほか、 メール (nakano@st.seikei.ac.jp) や フォーム からどうぞ。 なおスパム除けのため、BBS 機能には 緩い認証を入れて います。 検索エンジンから来た方は、エンジンの方のキャッシュを見るか、 下の簡易検索を試してみてください。
|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
||||||||||||||||||||||||||||||||||||||||||||||
#!/usr/bin/perl # # tar アーカイブの日付を、中に含まれるファイルのうち # もっとも新しいものにする。 # use Time::ParseDate; unless ($ARGV[0]) { die "$0 <tarfile> ...\n"; } while ($f = shift(@ARGV)){ if ($f =~ /\.tar\.gz$/) { $opencmd = "gzip -dc"; } elsif ($f =~ /\.tar\.bz2$/) { $opencmd = "bzip2 -dc"; } elsif ($f =~ /\.tar$/) { $opencmd = "cat"; } else { die "$f: unkown ext. sorry.\n"; } open TL, "$opencmd $f | env LANG=C tar tvf - |" or die "cannot open $f\n"; $fsec = 0; $fstr = ""; while (<TL>){ chomp; @l = split; $date = $l[3]; $time = $l[4]; $esec = parsedate("$date $time"); if ($esec > $sec) { $sec = $esec; $fstr = "$date $time"; } } system "touch --date=\"$fstr\" $f"; }