Re: Command-line arguments to command-line Perl

[BrowserUk]

in reply to Command-line arguments to command-line Perl

Take a look at Perl's -s option.

Ignoring any quoting issues, something like this should work:

perl -pi -se 's/.*'def'.*''/\t"def" => "dumper\/$D.def",/g' -D=ADCIF C
+onfigFile 

Note: That -D=... becomes $D inside the script.

[RecursionBane]

Thanks for the suggestion, BrowserUk. I wasn't able to get this to work, because perl seemed to think that the argument was meant for it, rather than the script, and I ended up using suhailck's BEGIN() solution, instead.

I do appreciate everyone's time and effort in helping me understand one of Perl's lesser-known functionalities! Thanks, everyone!

~RecursionBane

[BrowserUk]

I wasn't able to get this to work, because perl seemed to think that the argument was meant for it, rather than the script,

Sorry. I don't often use -s with -e.

You have to use -- to delineate between switches meant for perl, and those meant for the -e script:

perl -pi -se's/.*'def'.*''/\t"def"=>"dumper\/$D.def",/g' -- -D=ADCIF C
+onfigFile 

Not very practical on the command line, but useful in shell scripts.