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

Question

J'ai besoin de vérifier si un fichier dans un répertoire home de l'utilisateur existe donc utiliser un fichier:

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

Même si il y a un fichier appelé foo.txt sous le répertoire home de l'utilisateur, Perl toujours se plaint qu'il n'y a aucun fichier ou répertoire. Lorsque je remplace "~" avec /home/jimmy (disons que l'utilisateur est jimmy) puis Perl donner le droit verdict.

Pourriez-vous expliquer pourquoi "~" ne marche pas de travail en Perl et dites-moi qu'est-ce que Perl est la façon de trouver un répertoire home de l'utilisateur?

Answer 1

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

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

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

Si vous souhaitez faire le droit chemin, vous pouvez regarder dans le Fichier::HomeDir, ce qui est beaucoup plus de la plate-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 la transcription:

pax$ touch ~/foo.txt ; perl chkfile.pl
Oui, ça existe!

pax$ rm -rf ~/foo.txt ; perl chkfile.pl
Non, il n'est pas!

Answer 2

Je ne suis pas sûr de savoir comment tout le monde a raté File :: HomeDir . C’est l’une de ces tâches difficiles qui paraissent faciles car 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 de base, construisez le chemin dont 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";
 

Answer 3

Vous pouvez glob le tilde, glob('~/foo.txt') devrait fonctionner. Ou vous pouvez utiliser le module File :: Save :: Home qui devrait également s’occuper des autres systèmes.

Answer 4

Le répertoire de base d'un utilisateur est stocké dans /etc/passwd . Le meilleur moyen d’obtenir des informations est le getpw* fonctions :

 #!/usr/bin/perl 

use strict;
use warnings;

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

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

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

Answer 5

Essayez File::Path::Expand .