使用Perl获取硬盘信息

#!/usr/bin/perl

use strict;
use warnings;

# 使用系统命令获取硬盘信息
my $disk_info = `df -h`;

# 输出硬盘信息
print $disk_info;

#!/usr/bin/perl

use strict;
use warnings;
use Sys::Filesystem;

# 创建Sys::Filesystem对象
my $fs = Sys::Filesystem->new();

# 获取硬盘信息
my $disk_info = $fs->df('/');

# 输出硬盘信息
print "Filesystem: " . $disk_info->filesystem() . "\n";
print "Capacity: " . $disk_info->total() . "\n";
print "Used: " . $disk_info->used() . "\n";
print "Available: " . $disk_info->avail() . "\n";
print "Usage: " . $disk_info->usage() . "\n";