在Perl脚本中的sed系统命令

Question

我想把下面的系统命令放到perl脚本中，但是 sed表达式同时包含引号和反引号，我不知道如何将它们全部转义，所以它会执行我的系统命令完全按照我的需要。

下面是命令的例子：

mysql -u root -D porta-billing -e "..." | sed "s/'/\'/;s/\t/\",\"/g;s/^/\"/;s/$/\"/;s/\n//g" 

Answer 1

这个问题的答案你问的问题是使用qx(...)操作。 qx(...)是反引号的“选择你自己的分隔符”版本。

my $output = qx[ ... ]; 

或者

my $output = qx(...); 

或者

my $output = qx! ... !; 

很容易发现，也不会在你的命令字符串中的字符发生冲突的分隔符。

但这个问题的答案，你应该被问的问题有两个部分：

• 不要从你的Perl程序中调用mysql - 使用DBI代替。
• 请勿从Perl程序中调用sed - 使用Perl代码来操纵文本。

我对我的答案的第一部分感到有些紧张，因为我担心你只会采取我的哈克解决方法，并最终导致无法维护的混乱。请注意下半年的建议 - 即使您在这种情况下忽略它。