Editing a Perl File

[vincebrown]

Hi. I've got a perl file that I want to edit using another perl script. I want the script to place '; #' when it sees '@ARGV[2])'. Can anybody help?

 

[rharsh]

What are you having problems with? Did you try it yourself? Post the problem code and someone will probably be able to help you.

 

[vincebrown]

I'm having problems with the syntax, because it contains symbols that Perl recognises.

 

[rharsh]

This example might help a bit:

while (<DATA>) {
    my ($find, $replace) = (quotemeta('$ARGV[2])'), '; #');
    s/$find/$replace/g;
    print;
}
__DATA__
No change here.
This will change $ARGV[2]) to something else
No change in this line either.