Perl中如何用split将空格或逗号分隔的字符串拆分为列表？

之前两种写法的实际问题 #

• split('[,\s]+', $str)：
  这个写法的拆分逻辑和预期不匹配。它把“逗号”和“任意连续空白”都当成分隔符，哪怕两个值之间没有逗号、只是空格也会被强制拆开；如果字符串首尾带空格，还会拆出多余的空元素。另外把正则写在单引号字符串里传给split，在涉及转义场景时还容易出现行为偏差。
• split(/,/, $techoptionGiven);：
  首先是变量名写错了，实际存储待拆分字符串的是$str，代码里的$techoptionGiven是未定义变量，运行就会直接报错。就算把变量名改对，它也只会按单个逗号拆分，不会清理逗号前后的空格，最终得到的列表是"a"、" b "、" c"，每个元素带多余的首尾空格，不是干净的有效值。

正确可运行的写法 #

如果你的核心需求是按逗号拆分，同时自动去掉逗号前后的多余空格，直接用正则形式传递分隔规则就行：
my @array = split /\s*,\s*/, $str;
执行后得到的列表就是纯净的('a', 'b', 'c')，完全匹配你的预期效果。
如果遇到分隔符不固定的场景（比如逗号前后空格数量不统一、甚至出现连续多个逗号），更稳妥的写法是直接全局匹配提取所有非分隔内容，跳过所有逗号、空白类的字符：
my @array = $str =~ /[^,\s]+/g; #

内容的提问来源于stack exchange，提问作者Dhanashri P