Comment trouver le répertoire personnel d'un utilisateur dans Perl?

Question

Je dois vérifier si un fichier dans un répertoire personnel de l'utilisateur existe donc utiliser la vérification du fichier:

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

Même si il y a un fichier appelé foo.txt sous le répertoire de l'utilisateur, Perl toujours se plaint il n'y a pas de fichier ou de répertoire. Quand je remplace "~" par /home/jimmy (disons que l'utilisateur est jimmy) alors Perl donne le bon verdict.

Pourriez-vous expliquer pourquoi "~" ne fonctionne pas en Perl et dites-moi quel est le chemin de Perl à pour trouver le répertoire personnel d'un utilisateur?

Answer 1

~ est un bash -ism plutôt qu'un perl -ism, ce qui explique pourquoi cela ne fonctionne pas. Étant donné que vous semblez être sur un système de type UNIX, probablement la solution plus facile est d'utiliser la variable d'environnement $HOME, tels que:

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

Et oui, je sais que l'utilisateur peut changer leur variable d'environnement $HOME mais alors je suppose qu'ils savent ce qu'ils font. Sinon, ils méritent tout ce qu'ils obtiennent :-)

Si vous voulez faire le droit façon, vous pouvez regarder dans File::HomeDir, ce qui est beaucoup plus plate-forme savvy. Vous pouvez le voir en action dans le script suivant 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"; 
} 

et transcription:

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

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

Answer 2

Essayez File::Path::Expand.

Answer 3

Le répertoire d'un utilisateur est stocké dans /etc/passwd. La meilleure façon d'obtenir l'information est le getpw* functions:

#!/usr/bin/perl 

use strict; 
use warnings; 

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

Pour résoudre votre problème, essayez ce code:

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

Answer 4

Vous pouvez glob le tilde, glob('~/foo.txt') devrait fonctionner. Ou vous pouvez utiliser le module File::Save::Home qui devrait également prendre en charge d'autres systèmes.

Answer 5

Je ne sais pas comment tout le monde a raté File::HomeDir. C'est une de ces tâches difficiles qui semblent faciles parce que personne ne connaît toutes les exceptions loufoques auxquelles vous devez penser. Il ne vient pas avec Perl, vous devez donc l'installer vous-même.

Une fois que vous connaissez le répertoire, construire le chemin que vous avez besoin avec File::Spec:

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

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