如何在 Perl 中查找用户的主目录？

Question

我需要检查用户主目录中的文件是否存在，因此使用文件检查：

if ( -e "~/foo.txt" ) {
   print "yes, it exists!" ;
}

即使用户主目录下有一个名为 foo.txt 的文件，Perl 总是 抱怨没有这样的文件或目录。当我用 /home/jimmy 替换“~”时（假设用户是 jimmy），Perl 会给出正确的判断。

你能解释一下为什么“~”在 Perl 中不起作用并告诉我 Perl 的方法是什么吗 找到用户的主目录？

Answer 1

~ 是一个 bash-ism 而不是 perl-ism，这就是它不起作用的原因。鉴于您似乎使用的是 UNIX 类型的系统，可能最简单的解决方案是使用 $HOME 环境变量，例如：

if ( -e $ENV{"HOME"} . "/foo.txt" ) {
    print "yes ,it exists!" ;
}

是的，我知道用户可以更改他们的 $HOME 环境变量，但我会假设他们知道他们在做什么。如果没有，他们应得的一切:-)

如果你想以正确的方式做到这一点，你可以查看File::HomeDir，它更懂平台。您可以在以下脚本 chkfile.pl

use File::HomeDir;
$fileSpec = File::HomeDir->my_home . "/foo.txt";
if ( -e $fileSpec ) {
    print "Yes, it exists!\n";
} else {
    print "No, it doesn't!\n";
}

和脚本中看到它的运行情况：

pax$ touch ~/foo.txt ; perl chkfile.pl
Yes, it exists!

pax$ rm -rf ~/foo.txt ; perl chkfile.pl
No, it doesn't!

Answer 2

我不确定每个人是如何错过 File::HomeDir 的。这是听起来很容易的艰巨任务之一，因为没有人知道你必须考虑的所有愚蠢的例外情况。它没有附带 Perl，因此您需要自己安装。

知道主目录后，使用 File::Spec 构建所需的路径：

 use File::HomeDir qw(home);
 use File::Spec::Functions qw(catfile);

 print "The path is ", catfile( home(), 'foo.txt' ), "\n";

Answer 3

您可以glob波浪号，glob('~/foo.txt') 应该可以工作。或者您可以使用 File::Save::Home 模块还要照顾其他系统。

Answer 4

用户的主目录存储在/etc/passwd中。获取信息的最佳方式是 getpw* 函数：

#!/usr/bin/perl 

use strict;
use warnings;

print "uid:", (getpwuid 501)[7], "\n",
    "name:", (getpwnam "cowens")[7], "\n";

要解决您的具体问题，请尝试以下代码：

if ( -e (getpwuid 
gt;)[7] . "/foo.txt" ) {
   print "yes ,it exists!";
}

Answer 5

尝试 File::Path::Expand 。

Answer 6

快进到 2020 年，从版本 5.31.10 开始，perl 中现在有一个名为 File 的模块： :Glob 解析波浪号，例如：

perl -MFile::Glob=":bsd_glob" -lE 'say File::Glob::bsd_glob( "~john" )'

会产生： /home/john

或

perl -MFile::Glob=":bsd_glob" -lE 'say File::Glob::bsd_glob( "~/some/folder" )'

会产生： /home/jack/some/folder

文件： :Glob 模块自 perl v5.6 起就存在，但仅与已弃用的 glob 子例程一起使用。