Config :: perl中的简单和常量分配

Config::Simple

constant

test.ini

POP3SERVER=\'192.168.1.1\'

use warnings;
use strict;

use Config::Simple;
my %Cnf;
Config::Simple->import_from(\'test.ini\', \\%Cnf);
use constant TEST => scalar $Cnf{\"default.POP3SERVER\"};
print $Cnf{\"default.POP3SERVER\"},\"\\n\";
print TEST . \"\\n\";

192.168.1.1
Use of uninitialized value in concatenation (.) or string at ./algo.pl line 10.

my %Cnf;
BEGIN {
    Config::Simple->import_from(\'test.ini\', \\%Cnf);
}
use constant TEST => scalar $Cnf{\"default.POP3SERVER\"};