无限循环读取配置文件答案

【问题标题】：Infinite loop reading a configuration file无限循环读取配置文件
【发布时间】：2014-03-27 02:43:03
【问题描述】：

我必须设置我的配置文件，例如 admin.conf，我希望我的 Perl 程序读取配置文件并在无限循环中输出值。当我更改配置文件中的值时。程序输出中的值将更新为新值。任何人都可以告诉我如何做到这一点的例子吗？我也使用IO::Socket::INET 作为我的 Perl 包。如何先读取配置文件，然后无限循环？

这是我的 admin.conf

[state]
status_state = ONLINE

这是我想要的输出

ONLINE
ONLINE
ONLINE
ONLINE

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

OFFLINE
OFFLINE
OFFLINE
OFFLINE

我正在使用 终端 Ubuntu 来输出我的值。

【问题讨论】：

标签： perl ubuntu

【解决方案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";

}

【讨论】：