是否可以在Perl中使用Config :: General来读取__DATA__？

Question

我想设置Config :: General从__DATA__节读取脚本而不是外部文件。 （我意识到这通常不是如何工作的，但是我想看看我能否实现它。一个特定的用例是我可以将脚本示例发送给另一个开发人员，而无需发送单独的配置文件。）

根据perldoc perldata，$main::DATA应该充当有效的文件句柄。我认为Config::General应该能够使用-ConfigFile => \$FileHandle来阅读它，但它不适合我。例如，该脚本将执行没有崩溃，但__DATA__不读

#!/usr/bin/perl -w 

use strict; 
use Config::General; 
use YAML::XS; 

my $configObj = new Config::General(-ConfigFile => $main::DATA); 

my %config_hash = $configObj->getall; 

print Dump \%config_hash; 

__DATA__ 

testKey = testValue 

我也试过：

my $configObj = new Config::General(-ConfigFile => \$main::DATA); 

和

my $configObj = new Config::General(-ConfigFile => *main::DATA); 

和其他一些变化，但没有得到任何工作。

是否可以使用Config :: General从__DATA__读取配置密钥/值？

Answer 1

-ConfigFile需要引用句柄。这个工程：

my $configObj = Config::General->new(
    -ConfigFile => \*main::DATA 
); 

Answer 2

DATA句柄是一个glob，而不是标量。

尝试*main::DATA而不是$main::DATA。

（也许尝试\*main::DATA。从Config::General文档，它看起来像你应该通过一个文件句柄的参数作为参考。）

---

如果-ConfigGeneral => filehandle参数构造函数没有做什么你意思是说，另一种是

new Config::General(-String => join ("", <main::DATA>)); 

Answer 3

这个工作对我来说：

#!/usr/bin/perl 

use strict; 
use warnings; 
use Config::General; 
use YAML::XS; 

my $string; 
{ 
    local $/; 
    $string = <main::DATA>; 
}; 
my $configObj = new Config::General(-String => $string); 

my %config_hash = $configObj->getall; 

use Data::Dumper; 
warn Dumper(\%config_hash); 

__DATA__ 

testKey = testValue