我正在尝试使用 R 从 R 运行一些 Perl system
:只需将字符串(在 R 中提供)分配给变量并回显它。(system
调用在 中执行/bin/sh
)
echo <- function (string) {
cmd <- paste(shQuote(Sys.which('perl')),
'-e',
shQuote(sprintf("$str=%s; print $str", shQuote(string))))
message(cmd)
system(cmd)
}
# all fine:
# echo('hello world!')
# echo("'")
# echo('"')
# echo('foo\nbar')
但是,如果我尝试echo
使用反斜杠(或者实际上任何以反斜杠结尾的字符串),我会收到错误消息:
> echo('\\')
'/usr/bin/perl' -e "\$str='\\'; print \$str"
Can't find string terminator "'" anywhere before EOF at -e line 1.
(注意:前面的反斜杠$
很好,因为这可以防止/bin/sh
思考$str
是 shell 变量)。
该错误是因为Perl将 last 解释\'
为嵌入的引号$str
,而不是转义的反斜杠。事实上,要让 perl 回显我需要做的反斜杠
> echo('\\\\')
'/usr/bin/perl' -e "\$str='\\\\'; print \$str"
\ # <-- prints this
也就是说,我需要为Perl转义我的反斜杠转义我的反斜杠(除了我在 R/bash 中转义它们)。
我怎样才能确保在echo
用户输入的字符串是打印的字符串?即唯一需要的转义级别是在 R 级别上?
即是否有某种类似的perlQuote
功能shQuote
?我应该手动转义echo
函数中的所有反斜杠吗?有没有我需要逃脱的其他角色?