perl – 如何转义任意字符串作为命令行参数在Bash中使用?

我有一个字符串列表,我想在一个Bash命令行调用传递这些字符串作为参数。对于简单的字母数字字符串,只需将它们逐字传递即可:
> script.pl foo bar baz yes no
foo
bar
baz
yes
no

我理解,如果一个参数包含空格或反斜杠或双引号,我需要反斜杠转义双引号和反斜杠,然后双引号的参数。

> script.pl foo bar baz "\"yes\"\\\"no\""
foo
bar
baz
"yes"\"no"

但是当参数包含感叹号时,会发生以下情况:

> script.pl !foo
-bash: !foo: event not found

双引号不起作用:

> script.pl "!foo"
-bash: !foo: event not found

也不是反斜杠转义(注意如何在输出中存在文字反斜杠):

> script.pl "\!foo"
\!foo

我不太了解Bash,但我知道有其他特殊字符做类似的事情。什么是安全地转义任意字符串以用作Bash中的命令行参数的一般过程?让我们假设字符串可以是任意长度,并且包含特殊字符的任意组合。我想要一个escape()子程序,我可以使用如下(Perl示例):

$cmd = join " ",map { escape($_); } @args;

这里是一些更多的示例字符串,应该安全地转义这个函数(我知道其中一些看起来像Windows,这是故意的):

yes
no
Hello,world      [string with a comma and space in it]
C:\Program Files\ [path with backslashes and a space in it]
"                 [i.e. a double-quote]
\                 [backslash]
\\                [two backslashes]
\\\               [three backslashes]
\\\\              [four backslashes]
\\\\\             [five backslashes]
"\                [double-quote,backslash]
"\T               [double-quote,backslash,T]
"\\T              [double-quote,T]
!1                
!A                
"!\/'"            [double-quote,exclamation,forward slash,apostrophe,double quote]
"Jeff's!"         [double-quote,J,e,f,s,double quote]
$PATH             
%PATH%            
&                 
<>|&^             
*@$$A$@#?-_

编辑:

这会做的伎俩?使用反斜杠转义每个不寻常的字符,并省略单引号或双引号。 (例子是在Perl,但任何语言都可以这样做)

sub escape {
    $_[0] =~ s/([^a-zA-Z0-9_])/\\$1/g;
    return $_[0];
}

解决方法

如果你想安全地报价任何Bash,你可以使用其内置的printf%q格式:

cat strings.txt:

yes
no
Hello,world
C:\Program Files\
"
\
\\
\\\
\\\\
\\\\\
"\
"\T
"\\T
!1
!A
"!\/'"
"Jeff's!"
$PATH
%PATH%
&
<>|&^
*@$$A$@#?-_

cat quote.sh:

#!/bin/bash
while IFS= read -r -d $'\n'
do
    printf %q "$REPLY"
    printf '\n'
done < strings.txt

./quote.sh:

yes
no
Hello\,\ world
C:\\Program\ Files\\
\"
\\
\\\\
\\\\\\
\\\\\\\\
\\\\\\\\\\
\"\\
\"\\T
\"\\\\T
\!1
\!A
\"\!\\/\'\"
\"Jeff\'s\!\"
\$PATH
%PATH%
\&
\<\>\|\&\^
\*@\$\$A\$@#\?-_

这些字符串可以逐字复制到例如echo,以输出strings.txt中的原始字符串。

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...