如何使用Perl替换运算符禁用变量插值？

Question

I'm trying to replace a particular line in a text file on VMS. Normally, this is a simple one-liner with Perl. But I ran into a problem when the replacement side was a symbol containing a VMS path. Here is the file and what I tried:

Contents of file1.txt:

foo
bar
baz
quux

Attempt to substitute 3rd line:

$ mysub = "disk$data1:[path.to]file.txt"
$ perl -pe "s/baz/''mysub'/" file1.txt

Yields the following output:

foo
bar
disk:[path.to]file.txt
quux

It looks like Perl was overeager and replaced the $data1 part of the path with the contents of a non-existent variable (ie, nothing). Running with the debugger confirmed that. I didn't supply /e , so I thought Perl should just replace the text as-is. Is there a way to get Perl to do that?

(Also note that I can reproduce similar behavior at the linux command line.)

Answer 1

As ruakh discovered when reading my comment, the problem of perl interpolation can be solved by accessing the %ENV hash, rather than using a shell variable:

perl -pwe "s/baz/$ENV{mysub}/" file1.txt

Added -w because I do not believe in not using warnings even in one-liners.

Answer 2

With just the right mix of quotes and double quotes you can get there:

We create a tight concatenation of "string" + 'substitute symbol' + "string". The two double quoted strings contain single quotes for the substitute. Contrived... but it works.

$ perl -pe "s'baz'"'mysub'"'" file1.txt

That's a DCL level solution.

For a Perl solution, use the q() operator for a non-interpolated string and execute that. Stuff the symbol into the parens using simple DCL substitution. This is my favorite because it (almost) makes sense to me and does not get too confusing with quotes.

$ perl -pe "s/baz/q(''mysub')/e" file1.txt

Answer 3

Haven't even seen a VMS system in decades, but ... escape your sigil?

$ mysub = "disk\$data1:[path.to]file.txt"

or maybe

$ mysub = "disk\\$data1:[path.to]file.txt"

?

Answer 4

For sh or a derivative, I'd use

perl -pe'BEGIN { $r = shift(@ARGV) } s/baz/$r/' "$mysub" file1.txt

Otherwise, you have to somehow covert the value of mysub into a Perl string literal. That would be more complicated. Find the equivalent for your shell.

Edit by OP:

Yes, this works. The VMS equivalent is

perl -pe "BEGIN { $r = shift(@ARGV) } s/baz/$r/" 'mysub' file1.txt

Answer 5

Use sed.

Sed won't try to interpolate $data1 as a variable, so you should get what you want.

$ sed -e "s/baz/''mysub'/" file1.txt

Answer 6

You have to escape the $ with \\$ . Otherwise Perl sees a variable reference and replaces the string $data1 with the content of $data1 before the regular expression is evaluated. As you didn't define $data1 it is, of course, empty.

Answer 7

You can use the following code :

$ mysub='disk\$data1:[path.to]file.txt'
$ perl -pe 's/baz/'$mysub'/' FILE
foo
bar
disk$data1:[path.to]file.txt
quux

Answer 8

You could try using a logical name instead of a DCL symbol:

$ define mysub "disk$data1:[path.to]file.txt"
$ $ perl -pe "s/baz/mysub/" file1.txt