当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 8 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2010-10-17 14:31 

注册: 2010-10-03 10:10
帖子: 5
送出感谢: 0 次
接收感谢: 0 次
如何让 perl 的 split 使用多个分隔符
例如,将字符串“1.2,3_4__5:6”分隔为"1" "2" "3" "4" "5" "6",也就是说要将“.”“,”“_”(空格)“__”(两个空格)和“:”均作为分隔符。


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2010-10-18 10:38 

注册: 2008-11-08 18:34
帖子: 627
送出感谢: 0 次
接收感谢: 1
代码:
#!/usr/bin/perl
$line="1.2,3 4  5:6";
print $line;
print "\n";
@array = split(/\s+|[.,:]/,$line);
foreach (@array){
   print;
#print "\n";
}


_________________
气血鼓荡,身体发胀,偶飘上头,三时舒畅


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2010-10-18 11:04 
头像

注册: 2006-10-25 18:08
帖子: 1582
送出感谢: 0 次
接收感谢: 0 次
echo "1.2,3_4__5:6"|grep -o [0-9]
1
2
3
4
5
6


_________________
楼主真是一派胡言,真可谓:“两个黄鹂鸣翠柳,不知所云;一行白鹭上青天,不知所止“。本来不想和你辩论,今天气愤不过,和你理论一番。我国宪法写得清清楚楚:“一夜夫妻百日恩,七楼以上才有电梯”。这个想必你知道,既然知道,你就不能断章取义,就算是天气预报,它还有不准的时候呢!!!再者说了,那中国银行也不是你一家开的。人家马拉多纳都结婚了,你还拿着粮票顶什么用呢。真是滑天下之大稽。前些日子,全国人大刚刚开过会,郑重声明:“中国不搞多party制,存栏母猪给补贴”。多好的事呢,楞让你这号人给搅混了。


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2010-10-18 13:55 

注册: 2010-10-03 10:10
帖子: 5
送出感谢: 0 次
接收感谢: 0 次
搞定,十分感谢


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2010-10-18 21:40 

注册: 2008-10-31 22:12
帖子: 6546
系统: 践兔
送出感谢: 18
接收感谢: 25
搞清split的语法。
代码:
split regex, string; # return an array

正则里面想写什么都行。
代码:
/([,\.:]| {1,2})/


_________________
代码:
] ls -ld //


最后由 tusooa 编辑于 2011-06-11 10:32,总共编辑了 1 次

页首
 用户资料  
 
6 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2011-06-06 23:48 

注册: 2009-09-16 15:17
帖子: 20
送出感谢: 0 次
接收感谢: 0 次
引用:
#!/usr/bin/perl
$_="1,2.3_4:5";
@_=split/[,.:_ ]/,$_;
print"@_\n";


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2011-06-07 10:02 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
多看perldoc -f split


_________________
● 鸣学


页首
 用户资料  
 
8 楼 
 文章标题 : Re: 如何让 perl 的 split 使用多个分隔符
帖子发表于 : 2011-06-12 11:55 
头像

注册: 2010-02-21 16:19
帖子: 434
地址: 大连
送出感谢: 1
接收感谢: 2
trigger 写道:
echo "1.2,3_4__5:6"|grep -o [0-9]
1
2
3
4
5
6

我是来膜拜grep的。


_________________
大连Linux User Group: http://groups.google.com/group/dalian-lug?hl=zh-CN


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 8 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译