Namazu-devel-ja(旧)

[藤原 誠 Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
namazu-devel-ja: 00271 にて
makoto> で、同じことを mknmz.in に施して見たのですが、closure の中では効か
makoto> ないのでしょうか。(これではだめでした)

$File::Find::prune = 1 とするのは directory を見つけた時である必要がある
のですね。

○ 使用前
@@ find_target finished: Mon Mar 27 15:31:34 2000
@@ Target Files: 1249 (Scan Performance: Elapsed Sec.: 38, Files/sec: 32.9)
@@   Possible: 2688, Not allowed: 0, Denied: 242, Excluded: 1197
@@   MTIME too old: 0, MTIME too new: 0
1249 files are found to be indexed.
1/1249 - /amd/milano/export/home/htdocs/software/DeleGate.shml [text/plain]

○ 使用後
@@ find_target finished: Mon Mar 27 15:29:32 2000
@@ Target Files: 1249 (Scan Performance: Elapsed Sec.: 21, Files/sec: 59.5)
@@   Possible: 1499, Not allowed: 0, Denied: 242, Excluded: 8
@@   MTIME too old: 0, MTIME too new: 0
1249 files are found to be indexed.
1/1249 - /amd/milano/export/home/htdocs/software/DeleGate.shml [text/plain]

変更内容

--- mknmz.in-o	Wed Mar 22 23:30:02 2000
+++ mknmz.in	Mon Mar 27 15:36:28 2000
@@ -1290,6 +1290,15 @@
 	return;   # skip a file name containing LF/CR/TAB chars.
     }
 
+    if (defined $conf::EXCLUDE_PATH && 
+	$target =~ /$conf::EXCLUDE_PATH/ ) 
+    {
+        util::vprint(sprintf(_("Excluded:	%s"), $target));
+	$counts_ref->{'possible'}++;
+	$counts_ref->{'excluded'}++;
+	  $File::Find::prune = 1;
+	  return; 
+    }
     return unless -f $target;  # Only file is targeted.
 
     $counts_ref->{'possible'}++;
@@ -1300,14 +1309,6 @@
 	return;
     }
 
-
-    if (defined $conf::EXCLUDE_PATH && 
-	$target =~ /$conf::EXCLUDE_PATH/ ) 
-    {
-        util::vprint(sprintf(_("Excluded:	%s"), $target));
-	$counts_ref->{'excluded'}++;
-	return; 
-    }
 
     #
     # Do processing just like find's  --mtime option.

Excluded: を file と directory に分けた方が親切かも知れない
と思っています。

# きょう 3/27 - 3/31 まで留守にします。
---
(藤原)