Unix Magazine のどこかで PathChar という名前を見たので infoseek で探して見た。 http://www.caida.org/Pathchar/ かな。Van Jacobson が作っているが、まだ alpha で source は公開 していないとのこと、一部の機種の実行形式しか入手出来ない。

12 時を過ぎたら、次の日の分になってしまう。それはそうなのですが、 25 時頃までは前の日にして欲しい。(そう言えば選択があった気もする)

高林さんにいただいた http://cl.aist-nara.ac.jp/~satoru-t/misc/hrefchecker/ を次のように使う時には譜名を表示した 方が都合がいい。

find . -name \*html -exec ~/perl/hrefchecker-0.2.4 -Q -f '{}' \;

そこで修正して見た。

--- /home/makoto/perl/hrefchecker-0.2.4	2000/02/10 15:03:00	1.2
+++ /home/makoto/perl/hrefchecker-0.2.4	2000/02/10 15:58:28
@@ -198,6 +198,7 @@
 	$LinkListing = 1 if ($ARGV[0] =~ /L/);
 	$AnchorListing = 1 if ($ARGV[0] =~ /A/);
 	$LocalOnly   = 1 if ($ARGV[0] =~ /l/);
+	$AddFileName = 1 if ($ARGV[0] =~ /f/);
 	$Verbose     = 1 if ($ARGV[0] =~ /v/);
 	$ViaProxy    = 1 if ($ARGV[0] =~ /p/);
 	$ContentNego = 1 if ($ARGV[0] =~ /c/);
@@ -611,13 +612,16 @@
 # put result message.
 sub result_put ($$$$$) {
     my ($file, $link, $orig, $line, $result) = @_;
-
+    if ( $result eq '' ) { $result = 'OK' }
     unless ($Quiet && $result =~ /OK/ || $MoreQuiet && $result =~ /warning/) {
 	print "$file:" if $FilenamePut;
 	if (defined($orig)) {
 	    print "$line:$link [$orig] is $result.\n";
 	} else {
-	    print "$line:$link is $result.\n";
+	    if ( $AddFileName ) {
+		printf ("%-20s %4d: %s is %s.\n", $file,$line,$link,$result );}
+	    else {
+		print "$line:$link is $result.\n";}		
 	}
     }
 }

本当は、ここだけ直したのでは不充分。しかし僕は -Q しか使いそうにないから。