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+$//;
	}
}