使用sed替換perl中的行

我想在etter.conf文件中取消註釋行168。該命令在終端中運行OK，但在perl中嘗試時出現錯誤。使用sed替換perl中的行

system ("sed -i '168s/.*/redir_command_on = "iptables -t nat -A PREROUTING -i %iface -p tcp --dport %port -j REDIRECT --to-port %rport"/' /etc/etter.conf");

錯誤是：

Bareword found where operator expected at ./attack.pl line 135, near 
""sed -i '168s'/.*'/redir_command_on = "iptables"

我覺得是有一些做的特殊字符和轉義。

來源

2013-06-25 user2520951

您需要轉義嵌套引號。 Perl認爲iptables應該是可變的。 –

命令中的雙引號正在終止perl字符串。 – Barmar

你是否有理由對'sed'進行炮擊？ Perl完全可以自行更新文件。 – Barmar

所以Perl是一起分析，並找到一個字符串

system ("sed -i '168s/.*/redir_command_on = " 
     ^        ^
     |         | 
     +-----------------------------------+

下一步是什麼應該是)或運營商，但它的iptables。你沒有正確地形成你的字符串文字。切換定界符將這樣的伎倆：

system(q{sed -i '168s/.*/redir_command_on = "..."/' /etc/etter.conf})

（q{...}相同'...'）

順便說一句，使用「列表形式」 system是更好，因爲它避免了啓動和使用shell不必要，

system('sed', '-i', '168s/.*/redir_command_on = "..."/', '/etc/etter.conf')

來源

2013-06-25 16:43:29 ikegami

用於推薦使用system（）和參數列表 –

不錯，你也可以用'system（qw {...'來替換'system（q {...'來自動獲取列表表單 – steabert

@ steabert，不會，你會得到一個列表，但它不會是正確的命令。 – ikegami

您不能在雙引號字符串中嵌套裸雙引號。 Perl可以使用更多的quoting operators。

# Instead of 
system ("sed -i '168s/.*/redir_command_on = "iptables -t nat -A PREROUTING -i %iface -p tcp --dport %port -j REDIRECT --to-port %rport"/' /etc/etter.conf"); 

# use 
system (q{sed -i '168s/.*/redir_command_on = "iptables -t nat -A PREROUTING -i %iface -p tcp --dport %port -j REDIRECT --to-port %rport"/' /etc/etter.conf}); 
#-------^^------------------------------------------------------------------------------------------------------------------------------------------------^

來源

2013-06-25 16:43:17

使用sed替換perl中的行

回答

相關問題