perl - 如何将单个解析的行写入段落？

Question

我使用 XML::Simple 解析器提取了一个段落。我在一行中解析了它。这是代码，我提取了摘要。

use LWP::Simple;
use XML::Simple;
use Data::Dumper;

open (FH, ">:utf8","xmlparsed2.txt");
my $db1 = "pubmed";
my $q = 16404398;
my $xml = new XML::Simple;
$urlxml = "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=$db1&id=$q&retmode=xml&rettype=abstract";
$dataxml = get($urlxml);
$data = $xml->XMLin("$dataxml", ForceArray => [qw( MeshHeading Author AbstractText )], ForceContent=>1);
print FH Dumper($data);
print FH "Abstract: ".join "\n", map {join ":",($_->{NlmCategory},$_->{content})} @{$data->{PubmedArticle}->{MedlineCitation}->{Article}->{Abstract}->{AbstractText}};

我的问题是：它可以被解析以适应窗口并在一个段落中而不是在一行中吗？

Answer 1

我的问题是可以解析它以适应窗口

那么问题1，如何确定终端窗口的大小

答案是使用

use Term::Size;

($columns, $rows) = Term::Size::chars *STDOUT{IO};
($x, $y) = Term::Size::pixels;

并在段落中而不是在一行中？

对于问题 2，使用核心模块 Text::Wrap 或 Text::Fold ...