Tadashi Okoshi
slash****@users*****
2006年 8月 10日 (木) 06:49:24 JST
Index: affelio/tools/ext-cls-search.pl
diff -u /dev/null affelio/tools/ext-cls-search.pl:1.1
--- /dev/null Thu Aug 10 06:49:24 2006
+++ affelio/tools/ext-cls-search.pl Thu Aug 10 06:49:24 2006
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+use strict;
+
+open(IN, "find ../lib -name '*.pm' | ");
+open(TMPOUT, "> /tmp/package-search-$$");
+while(<IN>){
+ #print $_;
+ chop $_;
+ my $filename = $_;
+
+ open(FILE, $filename);
+
+ my $line="";
+ while ($line =<FILE>){
+ if ($line =~ /^\suse/){
+ if ($line !~ /Affelio/){
+ if ($line !~ /strict/){
+ if ($line !~ /lib\((.*)\);/){
+ if ($line !~ /use\svars/){
+ $line =~ s|^\s||;
+ $line =~ s|#.*||;
+ $line =~ s|use\s([A-Za-z0-9\_\-\:]*)\s(.*);|use $1;|;
+ print TMPOUT $line;
+ }
+ }
+ }
+ }
+ }
+ }
+ close FILE;
+
+}
+close TMPOUT;
+close IN;
+
+
+open(IN, "cat /tmp/package-search-$$ | sort | uniq | ");
+while(<IN>){
+ print $_;
+}
+close IN;
+unlink("/tmp/package-search-$$");