免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1668 | 回复: 3
打印 上一主题 下一主题

救命啊,关于perl语言中常规表达式的问题。谢谢谢谢 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2003-10-31 05:19 |只看该作者 |倒序浏览
怎样从一篇文章中取所有前缀是re-,un-,后缀是-able的单词,需不需要区分大小写呀。 千恩万谢,希望快。

论坛徽章:
0
2 [报告]
发表于 2003-10-31 07:53 |只看该作者

救命啊,关于perl语言中常规表达式的问题。谢谢谢谢

#!/usr/bin/perl
#打开需要读的文件
open (RFILE,"<readfilename";
#打开要写入的文件,自定
open (WFILE,">;writefilename";
while (<RFILE> {
$_=lc;
print WFILE $&,"\n" if ~/^(re|un)[a-z]+able$/;
}
close RFILE;
close WFILE;

论坛徽章:
0
3 [报告]
发表于 2003-11-01 01:14 |只看该作者

救命啊,关于perl语言中常规表达式的问题。谢谢谢谢

还有疑问,就前缀re-而言, 有的单词中的re是前缀,有的是单词本身的一部分,例如rewrite 和 real, 怎样区分他们呀,即从其中将rewrite取出。

论坛徽章:
0
4 [报告]
发表于 2003-11-01 07:44 |只看该作者

救命啊,关于perl语言中常规表达式的问题。谢谢谢谢

这就有些难为perl了。:)
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP