Re^2: Simple parse of text file to csv

[Tux]

$1 in the push should have been $key. Translated to Text::CSV_XS

use strict;
use warnings;
use Text::CSV_XS;

my %values;
my $key;
my @keys;
while (<DATA>) {
    chomp;
    m/^\s*#/ and next; # Skip comment
    m/^\s*$/ and next; # Skip empty lines
    if (m/^\s* (.+?) \s*:\s* $/x) {
        $key = $1;
        push @keys, $key;
        next;
        }
    s/^\s+//;
    s/\s+$//;
    push @{ $values{$key} }, $_;
    }

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\n
+" });
$csv->print (*STDOUT, \@keys);
$csv->print (*STDOUT, [ map { "@$_" } @values{@keys} ]);

With the __DATA__ section added, results in:

Host,Kernel,Version,"Hot fixes","Enabled Features"
NetDevice1234,"Linux 2.6.18-164.11","Driver 23.4.1 333.0 Hotfix BLD Ed
+ition","HF372590 HF372804 HF372864","FTP HTTP SMTP Active Directory"