是否可以在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