#!/usr/bin/perl -w

BEGIN {undef $/;}

#use Modern::Perl;

my $filename = $ARGV[0];

die "Usage: modulenamechanger.pl filename newmodulename oldmodulename\
+n"
  unless @ARGV == 3;

open my $INFILE, "<", $filename or die "Failed to read file $filename 
+: $!";
print "Now parsing $filename\n";
my @file = <$INFILE>;
close $INFILE;

open my $OUTFILE, '>', $filename or die "Failed to create $filename";

# WITHOUT ABANSAL CONCEPT my $match = qr "module\s*($ARGV[2])";
my $match = "(?<=module )$ARGV[2].*?([\\(;])";

print "Matching: $match\n";

for my $line (@file) {
    print "READING LINE $line \n";
    if ( $line =~ m(^//) ) {
        print "INSIDE IF\n";
        print $OUTFILE $line;
        next;
    }
    else 
    {

print "INSIDE ELSE \n BEFORE change:\t $line\n";
    $line =~ s/$match/moduleXXX $ARGV[1]/;
print "AFTER :\t $line\n";
    print $OUTFILE $line;
    next; 
    }
}