chomp() Verwendung in Perl

Question

Ich habe eine XML-Datei. In der Datei ist eine Leerzeile vorhanden. Wie kann ich nur die Leerzeilen entfernen? Ich versuchte chomp() Methode und fand, dass es alle neuen Liniensymbole entfernt. Ich muss immer noch das Standard-XML-Dateiformat ausgeben.

while(my $line = <$fh>) { 

     #chomp($line); 
     #$line =~ s/\s+//g; 
     print $line; 
} 

__DATA__ 
    <item> 

     <key>AB</key> 

     <info> 

     <format>10</format> 

     <description>Any binary string</description> 

     <value>NA</value> 

     <whereUsed>A2B25,A2B26</whereUsed> 

     </info> 

    </item> 

Das Ausgabeformular unten erwartet.

<item> 
    <key>AB</key> 
    <info> 
    <format>10</format> 
    <description>Any binary string</description> 
    <value>NA</value> 
    <whereUsed>A2B25,A2B26</whereUsed> 
    </info> 
</item> 

Answer 1

In der Schleife vor dem Druck:

next unless $line =~ /\S/; 

Answer 2

Sie die Zeile nur drucken können, wenn sie einen nicht-Raum Charakter hat:

while(my $line = <DATA>) { 
     print $line if ($line=~/\S/); 
} 

Answer 3

Ich würde ehrlich gesagt nicht empfehlen Tun Sie dies mit chomp und stattdessen einfach parsen und formatieren Sie Ihre XML mit einem Parser.

Dies liest, validiert Ihre XML und formatiert die Ausgabe neu.