also the lines numbered 1 2 3 4 above shouldnt be appearinghost:volume available(MB) %free Use of uninitialized value in subtraction (-) at freespace line 43. Use of uninitialized value in subtraction (-) at freespace line 43. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. 149.153.130.11:/dev/hda3 10168 80% 149.153.130.11:/dev/hda2 84 90% 1 149.153.130.11: 100% 2 149.153.130.11: 100% Use of uninitialized value in subtraction (-) at freespace line 43. Use of uninitialized value in subtraction (-) at freespace line 43. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in numeric comparison (<=>) at freespace li +ne 50. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. Use of uninitialized value in concatenation (.) or string at freespace + line 52. 149.153.130.23:/dev/hda3 10168 80% 149.153.130.23:/dev/hda2 84 90% 3 149.153.130.23: 100% 4 149.153.130.23: 100%
@lines = map { /(\/\w+\/\w+)\s+\w+\s+\d+\s+\d+\s+(\d+)\s+(\d+)%/; { 43 volume => $1, available => $2, free => 100 - $3, } } split /\n/, $space{ $host }; #This is the sorting line! 50 @lines = sort { $b->{available} <=> $a->{available} } @lines; 52 push @out, "$host:$_->{volume} $_->{available} $_->{free +}%" for @lines;
In reply to Re: Re: sort array by value in it
by Anonymous Monk
in thread sort array by value in it
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |