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

最新推荐文章于 2021-05-06 09:43:17 发布

最新推荐文章于 2021-05-06 09:43:17 发布 · 308 阅读

文章标签：

#ux

本文介绍了一段Perl脚本，用于通过命令行接口df获取Linux系统的磁盘使用情况，包括文件系统、inode数、已用空间、空闲空间、使用率和挂载点。

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