如何让 Perl 识别带有“~”的路径？

Question

可能的重复：
如何在 Perl 中查找用户的主目录？< /a>

我正在运行 Ubuntu。

每当我向 Perl 脚本传递以 ~ 开头的路径（例如 ~/Documents/file.txt）时，它都无法找到它。我必须传递规范路径（例如 /home/dave/Documents/file.txt）。

这是为什么？

我可以让 Perl 识别 ~ 路径吗？

更新

所有建议的解决方案都包括更改脚本中的代码。我想要一个不涉及对脚本本身进行任何更改的解决方案（因为并非所有脚本都是我的）。也许 Bash 的工作方式有问题？

问题的更新版本已发布在超级用户。

Answer 1

您可以将路径传递给 glob 来扩展它。

Answer 2

要获得可靠（且简单）的跨平台方法，请尝试 File::HomeDir：

use File::HomeDir;
print File::HomeDir->my_home;

Answer 3

glob 函数理解标准 Unix 文件通配。

my $file = glob('~/Documents/file.txt');

Answer 4

尝试将 ~ 替换为 $ENV{HOME}

Answer 5

根据 Bruno 的评论，您可以这样做：

$path =~ s/^~(\w*)/ ( getpwnam( $1 || $ENV{USER} ))[7] /e;

e 标志将表达式替换为执行或评估的结果 em> 替换表达式。

Answer 6

使用尖引号，而不是双引号：

open(my $fh, "< :crlf :encoding(cp1252)",
              <~/Documents/file.txt>)
    || die "couldn't open Winblose text file ~/Documents/file.txt: $!";

迭代运算符，人们通常认为它是 readline 函数的语法糖，而是调用 xxx 中有 shell 元字符，则 >glob 函数，并且波形符算作其中之一。

您可能更喜欢 <:encoding(Latin1) 的开放模式。这仅取决于文件。

Answer 7

有点晚了，但一个简单的解决方案是双重转义文件名/路径中的空格，这样 glob 就不会破坏。不太确定它是否可移植，但在支持此功能的平台上（甚至可能是 Windows？）很容易做到，然后将结果值存储在 var 中以便于使用。可以使用正则表达式用双反斜杠转义符替换文件名中的空格。示例，无正则表达式：

my $dir_name  = "~/Shared\\ Items/a\\ filename\\ with\\ spaces.txt";
my $glob_name = glob($dir_name);

print "exists!\n" if -e $glob_name;