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

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

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

方案一：

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

@names=("Join smith","Harry Potter");  
print @names[0]; 

结果如下：
F:>perlb.pl
Join smith
F:>

方案二：

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

@names[0]=~s/_/ /g;  
print @names[0]; 

结果如下；
F:>perlb.pl
Join smith
F:>

方案三：

利用split函数进行创建。

#首先我们定义一个变量  
$names="Join smith,Harry potter",  

#这里利用split函数，这里split//两个斜线之间就是你要分割的地方，本例中以逗号为分割界限  
my @names=split/,/,$names;  
rint @names[0]; 

结果如下：
F:>perlb.pl
Join smith
F:>

perl中单行注释和多行注释使用介绍
Perl中的程序注释：单行注释和多行注释（一）单行注释：以#开头的行都被perl认为是注释。但是有一个例外，perl程序的第一行是#开头的，他指定了perl

perl use vars pragma使用技巧
perl中的vars是perl中的一个pragma(预编译指示符），专门用来预定义全局变量，这些预定义后的全局变量在qw()列表中，在整个引用perl文件中皆可使用，即

在Perl中使用Getopt::Long模块来接收用户命令行参数
我们在linux常常用到一个程序需要加入参数,现在了解一下perl中的有关控制参数的模块Getopt::Long,比直接使用@ARGV的数组强大多了.我想大家知道在Linux中有