Come trovo la directory home di un utente in Perl?

Question

Ho bisogno di verificare se un file nella directory home di un utente esiste in modo da utilizzare il controllo del file:

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

Anche se c'è un file chiamato foo.txt nella directory home dell'utente, Perl sempre lamenta che non esiste un tale file o directory. Quando sostituisco "~" con /home/jimmy (supponiamo che l'utente sia jimmy), allora Perl dà il verdetto corretto.

Puoi spiegare perché "~" non funziona in Perl e dimmi qual è il modo in Perl per trovare la home directory di un utente?

Answer 1

~ è un bash -ismo anziché un perl -ism, motivo per cui non funziona. Dato che ti sembra di essere su un sistema UNIX-tipo, probabilmente la soluzione più semplice è quello di utilizzare la variabile $HOME ambiente, come ad esempio:

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

E sì, so che l'utente può cambiare il loro variabile $HOME ambiente ma suppongo che sappiano quello che stanno facendo. In caso contrario, si meritano tutto quello che ottengono :-)

Se si vuole farlo nel modo giusto , si può guardare in File::HomeDir, che è molto di più della piattaforma-savvy. Potete vederlo in azione nel seguente 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"; 
} 

e la trascrizione:

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

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

Answer 2

Prova File::Path::Expand.

Answer 3

La directory principale per un utente è memorizzato in /etc/passwd. Il modo migliore per ottenere le informazioni è la getpw* functions:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Per risolvere il tuo problema specifico, provare questo codice:

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

Answer 4

È possibile glob la tilde, glob('~/foo.txt') dovrebbe funzionare. Oppure puoi usare il modulo File::Save::Home che dovrebbe occuparsi anche di altri sistemi.

Answer 5

Non sono sicuro di aver perso tutti File::HomeDir. È uno di quei compiti difficili che sembrano facili perché nessuno conosce tutte le eccezioni sciocche a cui devi pensare. Non viene fornito con Perl, quindi è necessario installarlo da soli.

Una volta che si conosce la directory home, costruire il percorso che avete bisogno con File::Spec:

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

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