Làm cách nào để tìm thư mục chính của người dùng trong Perl?

Question

Tôi cần phải kiểm tra xem một tập tin trong thư mục chính của người dùng tồn tại để sử dụng kiểm tra file:

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

Mặc dù có một tập tin gọi là foo.txt dưới thư mục chính của người dùng, Perl luôn phàn nàn rằng không có tệp hoặc thư mục nào như vậy. Khi tôi thay thế "~" bằng /home/jimmy (giả sử người dùng là jimmy) thì Perl đưa ra phán quyết đúng.

Bạn có thể giải thích lý do tại sao "~" không hoạt động trong Perl và cho tôi biết cách của Perl là tìm thư mục chính của người dùng là gì?

Answer 1

~ là một bash-chủ nghĩa hơn là một perl -ism, đó là lý do tại sao nó không hoạt động. Cho rằng bạn dường như là trên một hệ thống UNIX-type, có lẽ là giải pháp dễ nhất là sử dụng biến $HOME môi trường, chẳng hạn như:

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

Và vâng, tôi biết người dùng có thể thay đổi biến $HOME môi trường xung quanh nhưng sau đó tôi cho rằng họ biết họ đang làm gì. Nếu không, họ xứng đáng với mọi thứ họ nhận được :-)

Nếu bạn muốn thực hiện theo cách bên phải, bạn có thể xem File::HomeDir, hiểu biết nhiều hơn về nền tảng. Bạn có thể nhìn thấy nó trong hành động trong kịch bản sau đây 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"; 
} 

và bảng điểm:

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

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

Answer 2

Hãy thử File::Path::Expand.

Answer 3

Các thư mục home cho người dùng được lưu trữ trong /etc/passwd. Cách tốt nhất để có được thông tin là getpw* functions:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Để giải quyết vấn đề cụ thể của bạn, hãy thử mã này:

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

Answer 4

Bạn có thể glob dấu ngã, glob('~/foo.txt') nên làm việc. Hoặc bạn có thể sử dụng mô-đun File::Save::Home cũng nên quản lý các hệ thống khác.

Answer 5

Tôi không chắc chắn cách mọi người bỏ lỡ File::HomeDir. Đó là một trong những nhiệm vụ khó nghe dễ dàng bởi vì không ai biết về tất cả các ngoại lệ ngốc nghếch mà bạn phải suy nghĩ. Nó không đi kèm với Perl, vì vậy bạn cần phải cài đặt nó cho mình.

Một khi bạn biết các thư mục chính, xây dựng con đường mà bạn cần với File::Spec:

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

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