comment on

This seems much too complicated for my liking.

I really don't like the way it needs to create a temporary file, and that it writes it output out to a fixed file, rather than STDOUT, thus letting me redirect it, or play with it in some other way. I'd go for something more along the lines of:

use strict;
my %space;

while (<>) {
  next unless m#^/#;
  next if     m#^/proc#;
  next unless m#^[^ ]* *([^ ]*) *[^ ]* *([^ ]*) *[^ ]*#;
  $space{$ARGV}{total} += $1;
  $space{$ARGV}{free}  += $2;
}

foreach my $host (sort keys %space) {
  printf "%s: %dk free, out of %dk, (%.2f%%)\n",
    $host, $space{$host}{free}, $space{$host}{total},
    $space{$host}{free} / $space{$host}{total} * 100;
}
[download]

Then I'd call it as: perl ~/dfk hosts/* > report

Playing with the format of the output is then trivial.

If you really want to be able to view the intermediate 'space' file, then you could add a command line parameter for it (including the name of the output file?).

Tony

In reply to Re: Unix disk space reports by salvadors
in thread Unix disk space reports by halxd2

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks