Vérifiez si le fichier existe même sur le chemin

Question

J'ai quelque chose comme ceci:

if(! -e $filename) { 
    # do something 
} 

mais je dois le modifier afin qu'il cherche même fichier sur mon chemin. Y a-t-il un moyen d'y parvenir sans analyser PATH?

Answer 1

File::Which

Answer 2

La variable PATH est utilisée par le système lors du chargement des exécutables. Donc, pour que le système sous-jacent fasse le travail pour vous, je crois que vous devriez essayer de charger un exécutable. Cela ne semble pas être ce que vous cherchez à faire.

Il se peut qu'il existe une bibliothèque qui offre une telle fonctionnalité, mais il est très simple d'écrire la vôtre. Vous avez juste besoin d'utiliser split, puis itérer.

Answer 3

Comment pouvez-vous voir si un fichier est dans l'un des répertoires spécifiés dans $ENV{PATH} sans regarder $ENV{PATH}? & hellip; C'est une question rhétorique.

Voici un short script I wrote il y a un certain temps. Vous devriez être en mesure de l'adapter à vos besoins:

#!/usr/bin/perl 

use strict; use warnings; 

use File::Basename; 
use File::Spec::Functions qw(catfile path); 

my $myname = fileparse $0; 
die "Usage: $myname program_name\n" unless @ARGV; 

my @path = path; 
my @pathext = (q{}); 

if ($^O eq 'MSWin32') { 
    push @pathext, map { lc } split /;/, $ENV{PATHEXT}; 
} 

PROGRAM: for my $progname (@ARGV) { 
    unless ($progname eq fileparse $progname) { 
     warn "Not processed: $progname\n\tArgument is not a plain file name\n"; 
     next PROGRAM; 
    } 

    my @results; 

    for my $dir (@path) { 
     for my $ext (@pathext) { 
      my $f = catfile $dir, "$progname$ext"; 
      push @results, $f if -x $f; 
     } 
    } 

    print "$progname:\n"; 
    print "\t$_\n" for @results; 
} 

Answer 4

Pour compléter daxim's et Sinan Ünür's réponses utiles:

Dans limitées circonstances, si vous vous souciez que si oui ou non un programme donné est en le chemin du système, vous pouvez prendre un raccourci :

Si le programme cible est une CLI a une option sans effet secondaire (autres que la production de sortie stdout) qui provoque le programme pour sortir avec succès très rapidement - par exemple, --version - vous pouvez effectuer les opérations suivantes:

my $exe = 'bash'; # example 
`$exe --version` || die "'$exe' not found.";