1 confession, this code was written my 1 of my colleagues who left and i have to fix it. I'm trying to understand what this script exactly wants (specially the regex in my $string), so that any of my changes dont break original intent of script. Plz help me in understanding its objective and how can i transform it to read thru line by line, which is i think the easier way (atleast for a newbie like me) and yes if in the comment we change OLD to new it wud b gr8 because that is also wrong (although comments lie ;)
shell#> script.pl file NEW OLD
#!/usr/bin/perl -w
BEGIN {undef $/;}
my $match = "module.*?$ARGV[2].*?([\\(;])";
my $filename = $ARGV[0];
open (INFILE, "<", $filename) or die "Failed to read file $filename
+: $! \n";
$string = <INFILE>;
close INFILE;
$string =~ s/$match/module $ARGV[1]$1/sg;
open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
print OUTFILE ($string);
close OUTFILE;
