Anonymous Monk,
I do not have the real data that you have, so I improvised using the small snippet you provided. You also have not done an adequete job explaining your problem. I am going to do something
Abigail would frown on and guess.
- You have a list of hosts that you are processing
- Each host involves a system command to see free disk space
- The string with imbedded newlines containing the output is stored in a hash where the key is the host
- When displaying the hosts disk free, you want the string sorted by a substring.
If that is an accurate guess, you would modify my original code to look
something like the following:
for my $host ( keys %space ) {
my @data;
for ( split /\n/ , $space{$host} ) {
next if /^host:volume/;
my @field = $_ =~ /^([^:]+):([^\s]+)\s+(\d+)\s+(\d+)/;
push @data, \@field;
}
for ( sort { $data[$a]->[2] <=> $data[$b]->[2] } 0 .. $#data ) {
print join "\t" , @{ $data[$_] };
print "\n";
}
}
Now we are not mind readers and we do not have crystal balls. You are going to need to apply these techniques to your own code and modify accordingly. It would be nearly impossible to give you full blown working code with what little you have provided.
Cheers - L~R
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.