求助: 一个文本处理问题

abnick · **发表于 :** 2007-05-05 16:48

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

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

请问程序应该怎样写?

非常感谢!

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 · **发表于 :** 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!