系統（perl的-pi -e）的XML編輯

Question

可能重複：
XML editing inside a Perl script

可有人請幫助我。我正在瘋狂地看着這一行。我正在嘗試使用perl -pi -e編輯XML文件。

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'\""); 

這將無法正常工作我試過所有類型的組合。

Answer 1

你已經問過這個問題了，答案是你所有的引用都混在一起。這裏是你擁有的一切：

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

讓我們以位在單引號內，並與廢話替換它們：

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

它看起來對我來說，perl是不會讓程序，你認爲這是因爲你過早地關閉了報價。不要試圖在一個字符串中指定的一切，建立起來這樣的轉義更容易神交：

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

爲什麼你想這樣做在一個大的系統調用？我現在談談我自己的工作中需要這種事情的情況，但我也知道我用Net::SSH::Perl::ProxiedIPC解決了這個問題。它處理所有這些愚蠢的細節。

而且，正如您對同一問題的上一個答案指出的那樣，這些sudo和su調用真的很可怕。

Answer 2

從裏到外構建它。

use String::ShellQuote qw(shell_quote); 

my $host   = '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 $su_cmd = sprintf q{sudo su - -c%s}, 
    shell_quote($perl_cmd); 

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

system($ssh_cmd); 

您可能注意到我通過使用\ K regex原子縮短了您的Perl程序。這需要5.10，所以隨時恢復這一變化。

---

成爲root似乎是不必要的。由於正在編輯的文件似乎屬於harrikr，爲什麼不簡單地ssh作爲那個人？我認爲這也意味着-t變得不必要。

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);