源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2021-02-19 23:11 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:perl qw以空格为分隔符问题的解决方法
perl中创建数组时,可以使用到qw。 但有一个问题,如果要创建有20个人名组成的数组,并且每个人的名字是这种形式的"Join smith" "Harry Potter"也就是每一个名字既包含姓也包含名。此时,qw就不起作用了。因为qw是用空格作为分隔符。 下面提供一些替代的解决方案,供大家参考。 [b]方案一:[/b] 用最原始的方案,也就是双引号,来进行数组的创建
[u]复制代码[/u] 代码如下:
@names=("Join smith","Harry Potter");  print @names[0];
结果如下: F:\>perl\b.pl  Join smith  F:\> [b]方案二:[/b] 我们可以进行一下简单的变通,qw只能以空格为分隔符,那我们把人名中间的空格用其他的字符进行替代。 @names=qw/Join_smith Harry_Potter/;  #然后当我们输出的时候我们再把中间的连接符进行替换 
[u]复制代码[/u] 代码如下:
@names[0]=~s/_/ /g;  print @names[0];
结果如下; F:\>perl\b.pl  Join smith  F:\> [b]方案三:[/b] 利用split函数进行创建。
[u]复制代码[/u] 代码如下:
#首先我们定义一个变量  $names="Join smith,Harry potter",  #这里利用split函数,这里split//两个斜线之间就是你要分割的地方,本例中以逗号为分割界限  my @names=split/,/,$names;  rint @names[0];
结果如下: F:\>perl\b.pl  Join smith  F:\>
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部