Tadashi Okoshi
slash****@users*****
2006年 11月 7日 (火) 20:56:25 JST
Index: affelio/tools/ext-cls-search.pl
diff -u affelio/tools/ext-cls-search.pl:1.2 affelio/tools/ext-cls-search.pl:1.3
--- affelio/tools/ext-cls-search.pl:1.2 Wed Oct 25 00:37:49 2006
+++ affelio/tools/ext-cls-search.pl Tue Nov 7 20:56:25 2006
@@ -12,15 +12,17 @@
my $line="";
while ($line =<FILE>){
+ chomp($line);
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;
+ print TMPOUT "$line\n";
}
}
}