perl - 在 CentOS 上更改主机名的脚本

Question

我曾经使用curlHTTP 获取请求从服务器中提取主机名，并且工作正常。我需要我的脚本来修改/etc/sysconfig/network文件，这样我就不必重新启动系统来应用主机名。

到目前为止，这是我的代码：

#!/usr/local/bin/perl

use strict;
use warnings;
use Sys::Hostname;


my $curl = `curl http://100.10.10.10/hostname`; # Get correct hostname 
my $host = hostname;

if ($curl ne $host) {
   # Need to modify the /etc/sysconfig/network file to replace hostname or add it.
}

编辑：我的实际问题：我用新主机名修改该文件的最佳方法是什么？

Answer 1

我猜你想要的是

my $host = qx{hostname};

代替

my $host = hostname;

另外，您为什么不手动进行更改（即，打开 /etc/hosts 或您要编辑和编辑的任何文件，只需确保$>is 0... 脚本以 root 用户身份运行）。