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