#1
  1. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Mar 2013
    Posts
    2
    Rep Power
    0

    Match at begin not ^ working for in my script


    Hi all, i need to debug this script and make it work according to my requirement. This is an urgent requirement, i need to fix this asap.</p> The concept of the script was to replace "oldname" written after the word "module" with "newname" This worked well until the word module came in the comment.

    CONTENT OF SCRIPT <code> #!/usr/bin/perl -w

    BEGIN {undef $/;}


    # I TRIED 1ST my $match = "^module.*?$ARGV[2].*?([\\(;])"; 2ND my $match = "\^module.*?$ARGV[2].*?([\\(;])"; 3RD my $match = "\\^module.*?$ARGV[2].*?([\\(;])"


    my $match = "module.*?$ARGV[2].*?([\\(;])";
    #print "$match";

    my $filename = $ARGV[0];

    open (INFILE, "<", $filename) or die "Failed to read file $filename : $! \n";

    $string = <INFILE>;
    close INFILE;



    #I ALSO TRIED "$string =~ s/^$match/module $ARGV[1]$1/sg;";

    $string =~ s/$match/module $ARGV[1]$1/sg;


    open OUTFILE, ">$ARGV[0]" || die "Failed to create $ARGV[0]\n";
    print OUTFILE ($string);
    close OUTFILE;<\code>

    what this script does to input file is : CONTENT OF BEFORE SCIPT IS RUN ON FILE <code>//Verilog HDL for "tt", "hh" "functional"
    // if i write the word here the script goofs up
    `timescale 1ps/10fs


    module OLD(Y, A, B );
    output Y;
    input A;
    input B;

    endmodule
    </code> NOW I RUN <code>script.pl FILE NEW OLD</code> now the CONTENT OF FILE BECOMES <code>//Verilog HDL for "tt", "hh" "functional"
    // if i write the word here the script goofs up
    `timescale 1ps/10fs


    module NEW(Y, A, B );
    output Y;
    input A;
    input B;

    endmodule
    </code> which is good but if i write the word "module" in the comment line i.e. CONTENT OF BEFORE SCrIPT IS RUN ON FILE which goofs up
    <code>
    //Verilog HDL for "tt", "hh" "functional"
    // if i write the word module here the script goofs up
    `timescale 1ps/10fs


    module OLD(Y, A, B );
    output Y;
    input A;
    input B;

    endmodule </code>

    Now the contents become <code>//Verilog HDL for "tt", "hh" "functional"
    // if i write the word module NEW(Y, A, B );
    output Y;
    input A;
    input B;

    endmodule
    </code> which is unacceptable to me. plz help guys,
  2. #2
  3. No Profile Picture
    Registered User
    Devshed Newbie (0 - 499 posts)

    Join Date
    Mar 2013
    Posts
    2
    Rep Power
    0

    Thumbs down


    The main problem is when module is given in // comment.
    Therefore i want the script to only see module which has no preceding character in the line. hence i tried using ^module
  4. #3
  5. No Profile Picture
    Contributing User
    Devshed Intermediate (1500 - 1999 posts)

    Join Date
    Apr 2009
    Posts
    1,971
    Rep Power
    1225
    Loop over the file line-by-line instead of slurping it into a scalar and anchor the regex to the beginning of the string.

    Also, you should ALWAYS include the strict and warnings pragmas in EVERY script.

IMN logo majestic logo threadwatch logo seochat tools logo