当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 求助: 一个文本处理问题
帖子发表于 : 2007-05-05 16:48 

注册: 2007-01-05 16:12
帖子: 17
送出感谢: 0 次
接收感谢: 0 次
因写毕业论文, 需要在一篇文章中, 每句前加上序号(1,2,3...)

以便可以在论文中参照第一句话, 第二句话....

请问程序应该怎样写?

非常感谢!


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2007-05-06 10:03 
头像

注册: 2006-07-14 18:56
帖子: 345
地址: Apple Valley, Planet Tux, Linux System
送出感谢: 0 次
接收感谢: 0 次
代码:
open my $file, "filename";
my $article = join q{}, <$file>;
my $i = 1;
$article =~ s/([^\s][^!?.]*[!?.]+)/$i++ . q{ } . $1/xmge;
print $article;


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2007-05-06 11:24 

注册: 2007-01-05 16:12
帖子: 17
送出感谢: 0 次
接收感谢: 0 次
5451vs5451 写道:
代码:
open my $file, "filename";
my $article = join q{}, <$file>;
my $i = 1;
$article =~ s/([^\s][^!?.]*[!?.]+)/$i++ . q{ } . $1/xmge;
print $article;




非常感谢。不仅帮我解决了问题,也让我感受到了perl的强大。

Thank you very much indeed!


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

当前时区为 UTC + 8 小时


在线用户

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


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

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

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