Ubuntu中文论坛

发表于： **2007-05-05 16:48**

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

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

请问程序应该怎样写?

非常感谢!

发表于： **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;

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

求助: 一个文本处理问题