perl - 使用内置 Perl 模块捕获短主机名？

Question

有没有更清洁的方法

use Sys::Hostname qw(hostname);

my $hostname = hostname();
$hostname =~ s/\.domain//;

基本上，是否可以在不运行两个 $hostname 的情况下将主机名剥离为其短名称？作业和没有额外的模块？

Answer 1

使用 Sys::Hostname :

use Sys::Hostname;

my ($short_hostname) = split /\./, hostname(); # Split by '.', keep the first part

使用系统主机名命令:

chomp(my ($short_hostname) = `hostname | cut -f 1 -d.`);