perl qw perl qw以空格为分隔符问题的解决办法
人气:0想了解perl qw以空格为分隔符问题的解决办法的相关内容吗,在本文为您仔细讲解perl qw的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点:perl,qw,下面大家一起来学习吧。
perl中创建数组时,可以使用到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;
rint @names[0];
结果如下:
F:\>perl\b.pl
Join smith
F:\>
加载全部内容