使用 Perl 中的 SSH 编辑远程文件

Question

Below is the code snippet I have written.

1. This tries to fetch the server name and file name through the arguments
2. I am stuck at editing the remote file after the server name and corresponding file name are fetched.

Command run: server.pl sox3d1 TEST50

File server.pl :

    use strict;
    use warnings;
    use Data::Dumper;
    use XML::Simple;
    
    my $host=$ARGV[0];
    my $db_host=$ARGV[1];
    
    my %servers;
    $servers{"ser14316.local.net"}=["sox3d1","sox3d2"] ;
    $servers{"ser143hn.local.net"}=["sox4d1","sox4d2"] ;
    $servers{"ser14441.local.net"}=["sox6d1","sox6d2"] ;
    $servers{"ser18163.local.net"}=["soxuat61","soxuat62","soxuat63"] ;
    $servers{"ser1444r.local.net"}=["soxuat51","soxuat52","soxuat53"] ;
    
    
    my $files=
    {
      db=>"/appl/$host/db_info.ref",
    };
    
    my %groups_by_host;
    for my $group (keys(%servers)) {
       for my $host (@{ $servers{$group} }) {
          push @{ $groups_by_host{$host} }, $group;
       }
    }
    
    
    my $server = $groups_by_host{$host};  # we get the server name via variable $host
    my ( $ssh_to_server )=@$server; # This is the server to ssh
    
    my $dest_file=$files->{"db"} ; #This will fetch the file from the remote server
    
    print "$ssh_to_server","->","$dest_file \n"; 

The file in this server has to be edited and below are the steps to do that via ssh.

1. Search for the string $host (ie sox3d3 ) in the remote file $dest_file by doing ssh to server $ssh_to_server
2. Replace the string TEST30 with TEST50

The file is a semicolon-separated file

File content in remote server ( db_info.ref ):

sox3d3   ;/appl/sox3d3/current   ;TEST30     ;TEST30      ;USER_10   ;USER_30
sox4d4   ;/appl/sox4d4/current   ;TEST40     ;TEST40      ;USER_20   ;USER_40

So, the 3rd and 4th columns ( TEST30;TEST30 ) should be replaced with TEST50 as per input.

Have tried the below code to get it working

as i said i was trying for a one line and had many variables in the command, the below worked actually

Update 1:

This basically ssh's the server and changes the file accordingly

  system(
     'ssh' => ('-q',$ser),
     'sed' => ('-i -E', qq('/$host/s#([^;]+;[^;]+;)[^;]+;[^;]+#\\1$db_host 
     ;$db_host #') , $dest_file),

Answer 1

Tried something like this?

my $destination = sprintf( '%s@%s', $user, $host );
my $file        = '/path/to/some/file.txt';
system(
  'ssh' => $destination,
  'sed' => ( '-i', 's/TEST30/TEST50/g', $file ),
);

The ssh documentation shows you can pass a command after the ssh destination. When you do this, ssh will log into the server, run that command, then log out again, instead of dropping you into the shell on the server.

So you can use that to run sed to edit the file.