perl qw以空格为分隔符问题的解决方法

perl中创建数组时，可以使用到qw。

但有一个问题，如果要创建有20个人名组成的数组，并且每个人的名字是这种形式的"join smith" "harry potter"也就是每一个名字既包含姓也包含名。此时，qw就不起作用了。因为qw是用空格作为分隔符。

下面提供一些替代的解决方案，供大家参考。

方案一：

用最原始的方案，也就是双引号，来进行数组的创建

结果如下：
f:\>perl\b.pl 
join smith 
f:\>

方案二：

我们可以进行一下简单的变通，qw只能以空格为分隔符，那我们把人名中间的空格用其他的字符进行替代。
@names=qw/join_smith harry_potter/; 
#然后当我们输出的时候我们再把中间的连接符进行替换 

结果如下；
f:\>perl\b.pl 
join smith 
f:\>

方案三：

利用split函数进行创建。

结果如下：
f:\>perl\b.pl 
join smith 
f:\>