Perl：将字符串解析为shell

Question

我想以与Bash相同的方式取消引用和拆分字符串（不包括`和$）。鉴于字符串：

'"'"'\""'"'  foo\ bar\"   '\" '\ quux

我想要一个包含以下内容的数组：

@a = (q("'""), 'foo bar"', '\"  quux');

Answer 1

use Text::ParseWords ();
my @list = Text::ParseWords::shellwords($string);