HP-UX df -i 转换为Linux 输出格式

#!/usr/bin/perl use strict; use warnings; my $command = 'df '; if ( scalar(@ARGV) > 0 ) { my $args = join " ", @ARGV; $command = $command . $args; } my @result = `$command`; my @return = (); push( @return, "Filesystem\tInodes\tIUsed\tIFree\tIUse%\tMounted on" ); my ( $file, $mount, $total, $free, $used, $useper ); foreach my $line (@result) { if ( $line =~ /^\/(.*)\s+\((.*)\)\s+\:\s+(\d+)\s+total/ ) { $mount = "/" . $1; $file = $2; $total = $3; } elsif ( $line =~ /\s+(\d+)\s+free/ ) { $free = $1; } elsif ( $line =~ /\s+(\d+)\s+used/ ) { $used = $1; } elsif ( $line =~ /\s+(\d+)\s+\%/ ) { $useper = $1."%"; trim($mount); trim($file); trim($total); trim($free); trim($used); trim($useper); push( @return, "$file\t$total\t$used\t$free\t$useper\t$mount" ); } } foreach (@return) { print $_. "\n"; } sub trim { for ( shift(@_) ) { s/^\s+//; s/\s+$//; } }