求助: 一个文本处理问题

[abnick]

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

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

请问程序应该怎样写?

非常感谢!

[5451vs5451]

代码： 全选

open my $file, "filename";
my $article = join q{}, <$file>;
my $i = 1;
$article =~ s/([^\s][^!?.]*[!?.]+)/$i++ . q{ } . $1/xmge;
print $article;

[abnick]

代码： 全选

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!