System (perl -pi -e) für XML-Bearbeitung

Question

Mögliche Duplizieren:
XML editing inside a Perl script

Kann mir bitte jemand helfen. Ich bin dabei, verrückt zu werden, wenn ich diese eine Zeile betrachte. Ich versuche, den Perl -pi -e zu verwenden, um eine XML-Datei zu bearbeiten.

system("ssh -t <HOST> \"sudo su - root -c 'perl -pi -e 's/xmlNamespaceAware=\"false\">/xmlNamespaceAware=\"false\"><Alias>$virtualhost1<\/Alias>/g' /home/harrikr/Scripts/TcServerScripts/data.xml'\""); 

Dies wird nicht funktionieren Ich habe alle Arten von Kombinationen ausprobiert.

Answer 1

Sie haben diese Frage bereits gestellt, und die Antwort war, dass Sie die Zitate alle durcheinander haben. Hier ist, was Sie haben:

"ssh -t <HOST> \"sudo su - root -c 'perl -pi -e '...' ...'\"" 

Lassen Sie uns die Bits innerhalb der einfachen Anführungszeichen nehmen und ersetzen sie durch Unsinn:

"ssh -t <HOST> \"sudo su - root -c 'AAA'...'BBB'\"" 

Es sieht für mich wie perl ist nicht das Programm in Gang bringen denken Sie, dass es bekommen, weil Sie die Anführungszeichen vorzeitig schließen. Statt alles in einem String angeben, zu versuchen, baut sie auf, so dass die entweichende leichter grok:

my $perl = q(perl -pi -e \\'...\\'); 
my $command = qq(sudo su - root -c '$perl'); 

Warum sind Sie dies in einem großen Systemaufruf zu versuchen zu tun? Ich habe jetzt über Situationen aus meiner eigenen Arbeit, wo solche Dinge notwendig waren, aber ich weiß auch, dass ich es mit Net::SSH::Perl::ProxiedIPC gelöst habe. Es behandelt all diese doof Details.

Und wie die vorherige Antwort auf Ihre gleiche Frage darauf hinweist, sind diese sudo und su Invokationen wirklich beängstigend.

Answer 2

Bauen Sie es von innen nach außen.

Sie können feststellen, dass ich Ihr Perl-Programm durch die Verwendung des \ K Regex-Atoms gekürzt habe. Das erfordert 5.10, also zögern Sie nicht, diese Änderung rückgängig zu machen.

---

zu Root erscheint unnötig. Da die zu bearbeitende Datei anscheinend zu harrikr gehört, warum nicht einfach ssh als diese Person? Ich denke, das bedeutet auch, dass -t unnötig wird.

use String::ShellQuote qw(shell_quote); 

my $host   = 'harrikr@HOST'; 
my $path_to_xml = '/home/harrikr/Scripts/TcServerScripts/data.xml'; 
my $virtualhost1 = 'VIRTUALHOST1'; 

my $perl_prog = <<'__EOI__'; 
    BEGIN { my $vh = shift(@ARGV); } 
    s/xmlNamespaceAware="false">\K/<Alias>\Q$vh\E</Alias>/g; 
__EOI__ 

my $perl_cmd = sprintf q{perl -i -pe%s %s %s}, 
    shell_quote($perl_prog), 
    shell_quote($virtualhost1), 
    shell_quote($path_to_xml); 

my $ssh_cmd = sprintf q{ssh %s %s}, 
    shell_quote($host), 
    shell_quote($perl_cmd); 

system($ssh_cmd);