当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 5 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 11+?在perl中怎么解释
帖子发表于 : 2007-10-18 20:29 
头像

注册: 2006-05-19 21:42
帖子: 184
地址: NIT
送出感谢: 0 次
接收感谢: 0 次
在一个脚本
代码:
perl -wle ‘print "prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'

中看到的。
我试了一下,在egrep中的11+?和1(1+)?表现是一样的,在perl中11+?和11+是一样的,好像?只对+起作用。请教一下高手是不是这样。


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 11+?在perl中怎么解释
帖子发表于 : 2007-10-19 9:35 

注册: 2005-07-29 0:42
帖子: 140
送出感谢: 0 次
接收感谢: 0 次
alinmn 写道:
在一个脚本
代码:
perl -wle ‘print "prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'

中看到的。
我试了一下,在egrep中的11+?和1(1+)?表现是一样的,在perl中11+?和11+是一样的,好像?只对+起作用。请教一下高手是不是这样。


不是这样滴。
11+?的意思等价于1(1+)?的啊。

11+?表示11xxxxxxxxxxxxxxxxxx,x是1,个数不确定
1(1+)?表示11(xxxxxxxxxxxxxxxxx)?,x是1,个数也不确定
其实就是等价的,不是?只对+起作用


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2007-10-19 13:00 
头像

注册: 2006-05-19 21:42
帖子: 184
地址: NIT
送出感谢: 0 次
接收感谢: 0 次
在egrep中1可以匹配11+?,perl中不行


页首
 用户资料  
 
4 楼 
 文章标题 :
帖子发表于 : 2007-10-19 13:18 
头像

注册: 2006-07-02 11:16
帖子: 12522
地址: 廣州
送出感谢: 0 次
接收感谢: 8
+? 重复1次或更多次,但尽可能少重复


_________________
^_^ ~~~
要理解递归,首先要理解递归。

地球人都知道,理论上,理论跟实际是没有差别的,但实际上,理论跟实际的差别是相当大滴。


页首
 用户资料  
 
5 楼 
 文章标题 :
帖子发表于 : 2007-10-19 17:58 
头像

注册: 2006-05-19 21:42
帖子: 184
地址: NIT
送出感谢: 0 次
接收感谢: 0 次
OK. Thanks. Got it!


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

当前时区为 UTC + 8 小时


在线用户

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


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

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

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