Как найти домашний каталог пользователя в Perl?

Question

мне нужно проверить, является ли файл в домашнем каталоге пользователя существует, так что используйте проверку файла:

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

Даже если есть файл с именем foo.txt в домашнем каталоге пользователя, Perl всегда жалуется, что такого файла или каталога нет. Когда я заменяю «~» /home/jimmy (скажем, пользователь jimmy), то Perl дает правильный вердикт.

Не могли бы вы объяснить, почему «~» dosen't работает в 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::Path::Expand.

Answer 3

домашний каталог пользователя хранится в /etc/passwd. Лучший способ получить в информации является getpw* functions:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Для решения вашей конкретной проблемы, попробуйте этот код:

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

Answer 4

Вы можете glob тильды, glob('~/foo.txt') должен работать. Или вы можете использовать модуль File::Save::Home, который также должен заботиться о других системах.

Answer 5

Я не уверен, как все пропустили 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";