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];
}

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

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

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