Подтвердить что ты не робот

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

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

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

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

Не могли бы вы объяснить, почему "~" не работает в Perl и рассказывать мне, что такое Perl-способ найти домашний каталог пользователя?

4b9b3361

ОТВЕТЫ

Ответ 1

~ является bash -ism, а не a perl -ism, поэтому он не работает. Учитывая, что вы, похоже, используете систему типа UNIX, возможно, самым простым решением является использование переменной среды $HOME, например:

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

И да, я знаю, что пользователь может изменить свою переменную среды $HOME, но тогда я бы предположил, что они знают, что они делают. Если нет, они заслуживают всего, что получают: -)

Если вы хотите сделать это правильно, вы можете посмотреть File:: HomeDir, который намного более ориентирован на платформу. Вы можете увидеть его в действии в следующем script 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!

Ответ 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";

Ответ 3

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

Ответ 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 $>)[7] . "/foo.txt" ) {
   print "yes ,it exists!";
}