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

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

这里是我的admin.conf中

[state] 
status_state = ONLINE

请帮我分配新建分配FY。你的帮助将不胜感激。所以在这里，是希望为

ONLINE 
ONLINE 
ONLINE 
ONLINE

和输出当我改变我的admin.conf中的价值。使用终端Ubuntu的输出自己的价值

OFFLINE 
OFFLINE 
OFFLINE 
OFFLINE

林：该值将被更新到这一点。谢谢。

来源

2014-03-27 user3463422

要读取该配置文件，您必须使用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"; 

}

我希望这能解决你的问题。

来源

2014-03-27 02:54:00

谢谢你。它完美地工作。我希望我的问题对你很清楚。如果没有告诉我，我可以在这里和未来对我的问题做一些修改。 @ d.Grudder – user3463422

欢迎您的家伙。没关系。我完全理解你的问题。 :) –

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

回答

相关问题