perl中的split（）
如何把课文分成句子。在我看来，我应该使用split（）并打印它们，但我现在没有。 我刚刚开始学习Perl 我的文字 文本块是一堆行框。在“左”的情况下， “right”和“center”，此属性指定内联级别 每个线框内的框与线框的左侧对齐 和右侧；对齐不是相对于视口的。在里面 对于“justify”，此属性指定内联级别 如有必要，接线盒应与接线盒两侧齐平 可以通过扩展或收缩内联框的内容， else与初始值对齐。另请参见“字母间距”和 “字间距”。试试看perl中的split（）,perl,Perl,如何把课文分成句子。在我看来，我应该使用split（）并打印它们，但我现在没有。 我刚刚开始学习Perl 我的文字 文本块是一堆行框。在“左”的情况下， “right”和“center”，此属性指定内联级别 每个线框内的框与线框的左侧对齐 和右侧；对齐不是相对于视口的。在里面 对于“justify”，此属性指定内联级别 如有必要，接线盒应与接线盒两侧齐平 可以通过扩展或收缩内联框的内容， else与初始值对齐。另请参见“字母间距”和 “字间距”。试试看 $paragraph = "Text. T
$paragraph = "Text. Text";
@sentences = split(/\./, $paragraph);
print @sentences;
若这不是真正的家庭作业，我只会使用其中一个来处理这个问题，比如说它似乎正在积极开发中。一种方法是使用
split perl -nlwe 'print for split /(?<=\S[.!?])\s+/' < data.txt
perl-nlwe'print for split/（？尝试编写一个您认为可行的程序，然后进行尝试。如果它不起作用，并且您无法找出原因，请在这个问题中发布它，您将获得更有用的反馈。没有输出，如何修复它？Thnx@user713744尝试使用print@句子