xcat-core/xCAT-client/bin/xcsv

#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";

#use Data::Dumper;
use xCAT::Client;
my %columns;
use strict;
my %output;
while (<STDIN>) {
    my $node;
    my $output;
    if (/:/) {
        ($node, $output) = split /:/, $_, 2;
    } else {
        $node   = "UNKNOWN";
        $output = $_;
    }
    my $colname;
    if ($output =~ /:/) {
        ($colname, $output) = split /:/, $output, 2;
    } else {
        $colname = "UNKNOWN";
    }
    $colname =~ s/^ *//;
    $output =~ s/^ //;
    $output =~ s/\n//;
    $output{$node}->{$colname} .= $output;
    $columns{$colname} = 1;
}
my @columns;
foreach (keys %columns) {    #create,preserv ordered list of columns
    push @columns, $_;
}
print join(',', "node", @columns) . "\n";

my $nodes;

sub fillerup {
    my $response = shift;
    if ($response->{data}->[0]) {
        $nodes = $response->{data}->[0];
    }
}
foreach my $node (keys %output) {
    my @output = ($node);
    foreach (@columns) {
        push @output, $output{$node}->{$_};
    }
    print join(",", @output) . "\n";
}