Question

我必须设置我的配置文件，例如admin.conf，我希望我的perl程序读取配置文件并在无限循环中输出值。当我更改配置文件中的值时。程序输出中的值将更新为新值。谁能告诉我一个如何做到这一点的例子？我还使用IO :: Socket :: INET作为我的perl包。如何首先读取配置文件然后进行无限循环？

这是我的admin.conf

[state]
status_state = ONLINE

请帮我解决问题。非常感谢您的帮助。这是我希望的输出

ONLINE
ONLINE
ONLINE
ONLINE

当我更改admin.conf中的值时。该值将更新为：

OFFLINE
OFFLINE
OFFLINE
OFFLINE

我使用终端ubuntu 输出我的值。谢谢。

Answer 1

要读取该配置文件，您必须使用Config :: Tiny包。您可以从这里（Reading a dot symbol (.) in perl）

学习读取该配置文件

要解决您的问题，请使用以下代码：

use warnings;
use strict;
use IO::Socket::INET;
use CGI;
use Config::Tiny;
use Data::Dumper;
use CGI::Carp qw(fatalsToBrowser);

$| = 1;


while (1) {

# Write some data to the client
my $file = "The path of your configuration file";

my $Config = Config::Tiny->read($file);
#reads the section, key and the value of the configuration file.
my $status = $Config->{"state"}->{"status_state"};

    sleep 2;

    print "$status\n";

}

我希望这可以解决你的问题。

无限循环读取perl中的配置文件

1 个答案: