मैंने एक्सएमएल :: सिंपल पार्सर का उपयोग करके एक पैराग्राफ निकाला। मैंने इसे एक ही पंक्ति में पार्स किया है। यहां कोड है और मैंने सार निकाला है।

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}};

मेरा प्रश्न है: क्या इसे खिड़की में फिट करने के लिए पार्स किया जा सकता है और एक पंक्ति के बजाय एक पैराग्राफ में हो सकता है?

0
smandape 26 जुलाई 2011, 06:50

1 उत्तर

सबसे बढ़िया उत्तर

मेरा सवाल है कि क्या इसे विंडो में फिट करने के लिए पार्स किया जा सकता है

तो प्रश्न 1, टर्मिनल विंडो के आकार का निर्धारण कैसे करें

उत्तर उपयोग है

use Term::Size;

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

और एक पंक्ति के बजाय अनुच्छेद में हों?

प्रश्न 2 के लिए, कोर मॉड्यूल टेक्स्ट :: रैप, या टेक्स्ट :: फोल्ड ... का उपयोग करें।

6
vajayjay 26 जुलाई 2011, 07:13