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

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

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

glob函数理解标准Unix文件globbing。

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

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

从布鲁诺的评论中，你可以这样做：

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

e标志将表达式替换为 executing 或 evaluating replace表达式的 result。

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

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

<xxx>迭代运算符，人们通常认为是readline函数的语法糖，如果在 xxx 中有shell元字符，而波浪号计数为其中之一，则调用glob函数。
您可能更喜欢<:encoding(Latin1)的开放模式，这取决于文件。

这个有点晚了，但是一个简单的解决方案是对文件名/路径中的空格进行双转义，这样glob就不会中断。（甚至可能是windows？），然后将结果值存储在var中以便于使用。正则表达式可以使用双反斜杠转义来替换文件名中的空格。例如，sans regex：

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

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