求助: 一个文本处理问题

Python/PHP/Perl 开发与设计
回复
abnick
帖子: 17
注册时间: 2007-01-05 16:12
送出感谢: 0
接收感谢: 0

求助: 一个文本处理问题

#1

帖子 abnick » 2007-05-05 16:48

因写毕业论文, 需要在一篇文章中, 每句前加上序号(1,2,3...)

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

请问程序应该怎样写?

非常感谢!
头像
5451vs5451
帖子: 345
注册时间: 2006-07-14 18:56
来自: Apple Valley, Planet Tux, Linux System
送出感谢: 0
接收感谢: 0

#2

帖子 5451vs5451 » 2007-05-06 10:03

代码: 全选

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

#3

帖子 abnick » 2007-05-06 11:24

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!
回复

回到 “Python/Php/Perl”