Untitled

#!/usr/bin/perl


use strict;
my $header = "volume,client,date-time,sum-size,level,name";
my $VOL = 0;

my $name = "portal";
my @ss;
my @yss;

populate($name);
print_ss(@ss);

exit 0;

sub populate {
        my $i = 0;

        open(MMINFO, "/networker/usr/sbin/mminfo -x c, -c $_[0]|"); # TODO: Add error handling
        while(<MMINFO>) {
                unless(/$header/) {
                        my @output = split(",", $_);
                        $ss[$i++] = [ @output ];
                }
        }
}

sub print_ss {
        for (my $x = 0; $x <= $#ss; $x++) {
                for (my $y = 0; $y <= $#{ss[$x]}; $y++) {
                        print "At X=$x, Y=$y is ", $ss[$x][$y], "\n";
                }
        }
}