当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 4 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : [问题]谁能解释一下这段话?
帖子发表于 : 2007-01-14 23:38 
头像

注册: 2006-07-14 18:56
帖子: 345
地址: Apple Valley, Planet Tux, Linux System
送出感谢: 0 次
接收感谢: 0 次
As with regular pattern matching, any capturing parentheses that are not matched
in a "split()" will be set to "undef" when returned:
@fields = split /(A)│B/, "1A2B3";
# @fields is (1, ’A’, 2, undef, 3)


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2007-01-15 14:07 

注册: 2007-01-11 16:41
帖子: 15
送出感谢: 0 次
接收感谢: 0 次
如果是 ……
代码:
@list = split/A/,"1A2A3A4A";
foreach (@list){
print "[",$_,"].";
}

输出结果就是:[1].[2].[3].[4].

如果是 ……
代码:
@list = split/(A)/,"1A2A3A4A";
foreach (@list){
print "[",$_,"].";
}

输出结果就是:[1].[A].[2].[A].[3].[A].[4].[A].

可以理解为:括号对字符起到了“保留而不替换”的作用


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2007-01-15 19:41 
头像

注册: 2006-07-14 18:56
帖子: 345
地址: Apple Valley, Planet Tux, Linux System
送出感谢: 0 次
接收感谢: 0 次
假如有
代码:
$string="f1 (abc), f2, f3 (def); f4";

怎样才能把它拆成
代码:
@field=qw{f1 f2 f3 f4};

呢?


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2007-01-16 22:39 

注册: 2007-01-11 16:41
帖子: 15
送出感谢: 0 次
接收感谢: 0 次
代码:
#!/usr/bin/perl
my($str,@array);
$str="f1 (abc), f2, f3 (def); f4";
while ($str=~/(f\d)/g){
   push @array,$1;
}
print "@array";


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

当前时区为 UTC + 8 小时


在线用户

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


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

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

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