p5pRT
commented
20 years ago From zatlas1@yahoo.com
Created by zatlas1@yahoo.com
The folowing code runs fine in activestate perl 5.6.1.635 but has a severe memory leak in 5.8.3.809. I had to uninstall that version and go back to 5.6.1 on my other machine. I've tried to send a bug report like this but I believe it did not go through\, so I am sending again
-> mycode: # Usage: findTableRef parm_file input_dir output_file # Parm file description: # tttttttt # where # - ttttttttttt is a text pattern = object name. # # The programs allows virtually all legitimate Perl patterns as text # pattern
use strict; use File::Find; use Cwd; our $fileP=$ARGV[0]; our $fileI=$ARGV[1]; our $fileO=$ARGV[2];
open (PARM\,"\< $fileP") or die "Can't open file $fileP
: $!\r\n";
our @regexes=();
our @opcodes =();
our $regex = " ";
while (\
sub edits () { return unless -f; my $file = $_; return if $file =~ /^\.\.?$/; return if $file =~ /\.zip$/i; return if $file =~ /\.xls$/i; return if $file =~ /\.csv$/i; return if $file =~ /\STARS_PD/; return if $file =~ /atls_.am\.txt/; return if $file =~ /atls_.nz\.txt/; return if $file =~ /\.doc$/i; return if $file =~ /\.exe$/i; return if $file =~ /employee_atlas\.txt/; return if $file =~ /AtlasWeb\.ear/i; return if $file =~ /AtlasWeb.war\~/i;
return if !open (SOURCE\, $file);
my $pathname = getcwd;
return if $pathname =~
m#/OLD/|/OLD$|/BAK/|/BAK$|/UNUSED/|/UNUSED$|/BK/|/BK$/|/WIN/|/WIN$#i;
print "$pathname/$file\n";
#while (\
my $owner = ""; my $ref =""; my $refenv = ""; foreach (@regexes) { my $pat = $_; my $flag = 0; if ($lines =~ /^(.*(\bATLSD\b)\.($pat).*)$/mi) { $refenv = $1; $owner = $2; $ref =$3; $flag = 1; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"$/$1\`/g; print OUT "\"$pathname\"\\,\"$file\"\\,\"$owner\"\\,\"$ref\"\\,\"$refenv\"\n" ; } if ($lines =~ /^(.*(\bATLSO\b)\.($pat).*)$/mi) { $refenv = $1; $owner = $2; $ref =$3; $flag = 1; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"$/$1\`/g; print OUT "\"$pathname\"\\,\"$file\"\\,\"$owner\"\\,\"$ref\"\\,\"$refenv\"\n" ; } if ($flag == 0) { # if ($lines =~ /^(.*(\b\w+?\b)\.($pat).*)$/mi) # { # $refenv = $1; # $owner = $2; # $ref =$3; # $flag = 1; # $refenv =~ s/(.)\"(.)/$1\`$2/g; # $refenv =~ s/(.)\"(.)/$1\`$2/g; # $refenv =~ s/(.)\"$/$1\`/g; # print OUT "\"$pathname\"\\,\"$file\"\\,\"$owner\"\\,\"$ref\"\\,\"$refenv\"\n" ; # } # elsif ($lines =~ /^(.*($pat).*)$/mi) if ($lines =~ /^(.*($pat).*)$/mi) { $refenv = $1; $owner = ""; $ref =$2; # $flag = 1; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"(.)/$1\`$2/g; $refenv =~ s/(.)\"$/$1\`/g; print OUT "\"$pathname\"\\,\"$file\"\\,\"$owner\"\\,\"$ref\"\\,\"$refenv\"\n" ; } } } close (SOURCE); undef $lines; }
\<-\<\<\< end of my code
Migrated from rt.perl.org#27627 (status was 'rejected')
Searchable as RT27627$