perl - 如何即时更改 Perl 脚本的配置

Question

这是在不退出脚本的情况下重新配置的可接受方式吗？

use XML::Simple;

my $config               = "C:/users/config.xml";
my $config               = new XML::Simple->XMLin($config_file);
my $volume               = $config->{volume};

print "volume 1 $volume\n";

sleep 15;#during this time, change config.xml

my $config               = new XML::Simple->XMLin($config_file);
my $volume               = $config->{volume};

print "volume 2 $volume\n";

对/对

volume 1 1
volume 2 0

Answer 1

这不是最有效的方法，但肯定可以接受。如果它是一个相当大的配置文件并且处理时间是相关的，那么您需要在重新加载之前检查该文件是否已更改。