FreeBSD下使用Perl获取系统信息

介绍了如何使用Perl脚本在FreeBSD系统上获取各种系统信息，包括CPU、内存、磁盘、网络等方面。具体实现方式是通过调用FreeBSD系统自带的命令和脚本，然后通过正则表达式进行信息提取和解析。

#!/usr/local/bin/perl

# obtain hostname
my $hostname = `hostname`;

# obtain CPU information
my $cpu_info = `sysctl -a | grep hw.model`;
my @cpu_info_arr = split(/\s+/, $cpu_info);
my $cpu_model = $cpu_info_arr[1];

# obtain memory information
my $mem_info = `sysctl -a | grep hw.physmem`;
my @mem_info_arr = split(/\s+/, $mem_info);
my $mem_size = $mem_info_arr[1];

# obtain disk usage information
my $disk_info = `df -h`;
my @disk_info_arr = split(/\n/, $disk_info);
foreach my $line (@disk_info_arr) {
    if ($line =~ /\/$/) {
        my @disk_usage_arr = split(/\s+/, $line);
        my $disk_size = $disk_usage_arr[1];
        my $disk_used = $disk_usage_arr[2];
        my $disk_avail = $disk_usage_arr[3];
        print "Disk: Size=$disk_size, Used=$disk_used, Available=$disk_avail\n";
    }
}

# obtain network information
my $ifconfig_info = `ifconfig`;
while ($ifconfig_info =~ /inet\s+([^\s]+)/g) {
    print "IP Address: $1\n";
}

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com