df auslesen, regexp problem - #76936 (Allgemeines zu Perl)

bloonix

2007-05-25 18:55

User since
2005-12-17
1615 Artikel
HausmeisterIn

aber die regex oder split passt nicht mehr, wenn der diskname so lang ist,
dass die diskgroessen in die nächste zeile geschrieben werden etc.

Code: (dl )

use strict;
use warnings;
use Sys::Statistics::Linux;
my $lxs  = Sys::Statistics::Linux->new(DiskUsage => 1);
my $stat = $lxs->get->{DiskUsage};

print sprintf('%-40s ', $_), $stat->{$_}->{usageper}, "%\n"
   foreach sort keys %$stat;

\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.