perl에서 구성 파일을 읽는 무한 루프

Question

구성 파일 (예 : admin.conf)을 설정해야하며 내 perl 프로그램이 구성 파일을 읽고 무한 루프에서 값을 출력하도록해야합니다. 구성 파일의 값을 변경할 때. 프로그램 출력의 값이 새 값으로 업데이트됩니다. 아무도 나에게 이것을하는 방법에 대한 예를 보여줄 수 있습니까? 나는 또한 IO :: Socket :: INET을 나의 perl 패키지로 사용한다. 구성 파일을 읽는 방법을 처음부터 무한 루프합니까?

은 여기 내의 할당은 저를 도와주세요 내 인 admin.conf

[state] 
status_state = ONLINE 

입니다. 귀하의 도움을 많이 주시면 감사하겠습니다. 그래서 여기 내가

ONLINE 
ONLINE 
ONLINE 
ONLINE 

을 기원 그리고 출력 난 내 인 admin.conf의 값을 변경할 때. 값은이에 업데이트됩니다

OFFLINE 
OFFLINE 
OFFLINE 
OFFLINE 

임 출력으로 내 가치를 터미널 우분투를 사용하여. 고맙습니다.

Answer 1

구성 파일을 읽으려면 Config :: Tiny 패키지를 사용해야합니다. 나는이 문제를 해결할 수 있기를 바랍니다

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"; 

} 

: 당신은 당신의 문제를 해결하기 위해 여기 (Reading a dot symbol (.) in perl)

에서 해당 구성 파일을 읽고 배울 수있는,이 코드를 사용하십시오.