rendered paste body foreach my $ss_ln (@ss_in) {
chomp($ss_ln);
if ($ss_ln =~ m/.*$SSFN.*/) { #temp sorting of mminfo
#print "$ss_ln\n" if $DEBUG;
my ($ssid, $clnid, $name, $nsavetime, $savetime, $volume, $sumsize) = split(',', $ss_ln);
push(@{$ss_out{$nsavetime}},{
ssid => $ssid."/".$clnid,
name => $name,
savetime => $savetime,
vol => $volume,
sumsize => $sumsize
});
} #temp sorting of mminfo
}
print Dumper (%ss_out) if $DEBUG;
foreach my $k (sort keys %ss_out) {
my @ss_proc1 = @$ss_out{$k};
print Dumper ($ss_out{$k}) if $DEBUG;
print Dumper (\@ss_proc1) if $DEBUG;
print "savetime: $k\n stuff:@ss_proc1\n";
}