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 下