¿Cómo puedo encontrar el directorio personal de un usuario en Perl?

Question

tengo que comprobar si un archivo en el directorio principal de un usuario existe a fin de utilizar la comprobación del archivo:

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

A pesar de que existe un archivo llamado foo.txt en el directorio inicial del usuario, Perl siempre se queja de que no hay tal archivo o directorio. Cuando reemplazo "~" con /home/jimmy (supongamos que el usuario es jimmy), Perl da el veredicto correcto.

¿Podría explicar por qué "~" no funciona en Perl y decirme cuál es el camino de Perl al buscar el directorio de inicio de un usuario?

Answer 1

~ es un bash -ismo en lugar de un perl -ismo, por lo que no está funcionando. Teniendo en cuenta que usted parece estar en un sistema de tipo UNIX, probablemente la solución más fácil es utilizar la variable $HOME medio ambiente, tales como:

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

Y sí, sé que el usuario puede cambiar su variable de $HOME entorno pero supongo que saben lo que están haciendo. Si no, que se merecen todo lo que obtienen :-)

Si desea hacerlo de la manera correcta , se puede mirar en File::HomeDir, que es una plataforma mucho más conocedores. Puede verlo en acción en la siguiente secuencia de comandos 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"; 
} 

y la transcripció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

Probar File::Path::Expand.

Answer 3

el directorio inicial de un usuario se almacena en /etc/passwd. La mejor manera de llegar a la información es la getpw* functions:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Para hacer frente a su problema específico, prueba este código:

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

Answer 4

Puede glob la tilde, glob('~/foo.txt') debería funcionar. O puede usar el módulo File::Save::Home que también debería ocuparse de otros sistemas.

Answer 5

No estoy seguro de cómo todos se perdieron File::HomeDir. Es una de esas tareas difíciles que suenan fáciles porque nadie conoce todas las ridículas excepciones en las que tienes que pensar. No viene con Perl, por lo que debe instalarlo usted mismo.

Una vez conocido el directorio principal, construir el camino que usted necesita con File::Spec:

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

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