perl qw以空格为分隔符问题的解决方法(去掉最后一个字符的函数)硬核推荐

随心笔谈2年前发布 编辑
193 0
🌐 经济型:买域名、轻量云服务器、用途:游戏 网站等 《腾讯云》特点:特价机便宜 适合初学者用 点我优惠购买
🚀 拓展型:买域名、轻量云服务器、用途:游戏 网站等 《阿里云》特点:中档服务器便宜 域名备案事多 点我优惠购买
🛡️ 稳定型:买域名、轻量云服务器、用途:游戏 网站等 《西部数码》 特点:比上两家略贵但是稳定性超好事也少 点我优惠购买



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:\>

© 版权声明

相关文章