[SOLVED] Calling sed within perl with a variable

Issue

I would like to inplace edit ssd_config file where i need to replace the #Port to a custom port.

Before:

#Port <portnum>

 ex: #Port 22

After:

Port <customport>

ex: Port 2022

Here the custom port is coming in a variable $port.

I tried the below script but does nothing.

my $prt = "Port 2022";
my $cmd = "sed -i \'s/#Port [0-9]\+/$prt/g\' sshd_config";
system($cmd);

Tried even with tick operator.

`sed -i \"s/#Port [0-9]\+/\$prt/g\" sshd_config`;

Solution

Anything sed can do, Perl can do.

If this is your entire Perl program:

my $prt = "Port 2022";
my $cmd = "sed -i \'s/#Port [0-9]\+/$prt/g\' sshd_config";
system($cmd);

Then you can do it all in Perl itself from the command line.

perl -i -p -e's/#Port [0-9]+/Port 2022/g' sshd_config

Answered By - Andy Lester

Answer Checked By - Mary Flores (WPSolving Volunteer)