Perl模块将文本放在主文件夹中

Question

我正在尝试使用ExtUtils :: MakeMaker创建一个Perl模块。当与模块一起安装时，我需要在用户的主文件夹中放置包含一些信息的文本文件。我怎么能这样做？

Answer 1

你可以试试这样的事情

...
use File::HomeDir;

my $home = File::HomeDir->my_home;

open my $fh, '>', "$home/foo.txt";
print $fh 'bar';
close $fh;

我没有对此进行测试，因为我目前处于没有完全实现File :: HomeDir的Windows下