perl关于qw以空格为分隔符的问题以及若干替代方案+学会变通+split函数的使用

我们在创建数组的时候，可以使用到qw,这是一个非常方便的简写，省去了我们书写大量引号的麻烦。

但是有这样一个问题。如果们要创建有20个人名组成的数组，并且每个人的名字是这种形式的"Join smith" "Harry Potter"也就是每一个名字既包含姓也包含名。这样的话，我们的qw就不能起作用了。因为qw是用空格作为分隔符。我们只能想一些替代的方案来解决。

方案一：

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

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

结果如下：

F:\>perl\b.pl
Join smith
F:\>

方案二：

我们可以进行一下简单的变通，qw只能以空格为分隔符，那我们把人名中间的空格用其他的字符进行替代。

@names=qw/Join_smith Harry_Potter/;
#然后当我们输出的时候我们再把中间的连接符进行替换
@names[0]=~s/_/ /g;
print @names[0];

结果如下；

F:\>perl\b.pl
Join smith
F:\>

方案三：

利用split函数进行创建。

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

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

print @names[0];

结果如下：

F:\>perl\b.pl
Join smith
F:\>

可能大家还都有更好的方法，希望大家能够留言，然后进行更新。