commandline replace and running out of quotes

[John Bagins]

I am using the inplace edit of commandline perl in a per script.
How do I insert those doublequotes in the RHS?
system qq|perl -pi -e "s/(?=#FILE_MARKER)/" $var "/| file_name;

^ ^

Thanls

Eric Smith

 

[John W. Krahn]

I am using the inplace edit of commandline perl in a per script.
How do I insert those doublequotes in the RHS?
system qq|perl -pi -e "s/(?=#FILE_MARKER)/" $var "/| file_name;

Is that $file_name or 'file_name'?


You probably want something like this:

{ local ( $^I, @ARGV ) = ( '', 'file_name' );
s/(?=#FILE_MARKER)/" $var "/, print while <>;
}


John