IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Perl Discussion :

-x test si un executable est dans le path ?


Sujet :

Langage Perl

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut -x test si un executable est dans le path ?
    Bonjour,

    je souhaite verifier la présence d'un executable dans le path, ou localement.
    Je me pose la question suivante :
    Est ce que -x permet de verifier dans le path ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    print 'trouvé !' if (-x 'appli');
    Merci
    Z.

  2. #2
    Membre très actif

    Homme Profil pro
    Responsable projets techniques
    Inscrit en
    Février 2003
    Messages
    980
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable projets techniques
    Secteur : Biens de consommation

    Informations forums :
    Inscription : Février 2003
    Messages : 980
    Par défaut
    Non, en revanche, tu peux utiliser une commande genre which, whence ou whereis ?

  3. #3
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Tu peux utiliser la variable $ENV{PATH}
    perlvar : %ENV


    EDIT : -x permet simplement de vérifier si le fichier est un exécutable. Par défaut si aucun chemin n'est indiqué pour ce fichier, perl regardera dans le répertoire où est exécuté le script.

  4. #4
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    Je pense que tu fais reférence aux commandes de la console linux.
    Dans la limite du possible, je voudrais eviter ce genre de chose pour des histoires de portabilité du code sur les autres plateformes.

    Je vais faire autrement :
    je vais lancer l'executable, capturer le message qu'il est sensé renvoyer. si il est absent, message d'insulte...

    Z.

  5. #5
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    Jasmine > Oui, j'y ai pensé, mais faut tester tous les chemins. J'hesitais entre cette solution et celle que je viens d'exposer.

    Z.

  6. #6
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Citation Envoyé par Zwiter Voir le message
    Jasmine > Oui, j'y ai pensé, mais faut tester tous les chemins. J'hesitais entre cette solution et celle que je viens d'exposer.
    ... via une regexp ça devrait se faire très rapidement.

  7. #7
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    Finalement, j'ai opté pour cela :p
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    sub _get_exec_path {
    	my ($this, $exec) = @_;
    	foreach my $path ( split( /:/, $ENV{PATH} ) ) {
    		if (-x "$path/$exec") {
    			return "$path/$exec";
    		}
    	}
    	return 0;
    }

  8. #8
    Membre éprouvé
    Avatar de Jasmine80
    Femme Profil pro
    Bioinformaticienne
    Inscrit en
    Octobre 2006
    Messages
    3 157
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 45
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Bioinformaticienne
    Secteur : Santé

    Informations forums :
    Inscription : Octobre 2006
    Messages : 3 157
    Par défaut
    Citation Envoyé par Zwiter Voir le message
    Jasmine > Oui, j'y ai pensé, mais faut tester tous les chemins. J'hesitais entre cette solution et celle que je viens d'exposer.

    Z.

    Pour éviter le foreach tu peux directement faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    sub _get_exec_path {
    	my ($this, $exec) = @_;
     
    	if ( ($ENV{PATH} =~ m{:$path/$exec:}) &&  (-x "$path/$exec") ){
    		return "$path/$exec";
    	}
     
    	return 0;
    }
    ... tu fais un split sur : ... chez moi, ce sont des ; qui séparent mes chemins.

  9. #9
    Membre émérite
    Profil pro
    Assistant recherche bioinformatique
    Inscrit en
    Novembre 2007
    Messages
    877
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations professionnelles :
    Activité : Assistant recherche bioinformatique

    Informations forums :
    Inscription : Novembre 2007
    Messages : 877
    Par défaut
    faut que je fasse un split sur : et ; alors.

    Par contre, pourrais tu m'expliquer la syntaxe de : {:$path/$exec:}
    car pour moi, ca signifie que le path doit commencer et finir par ':' et doit contenir aussi l'executable, ce qui n'est pas le cas. le path contenant que des dossiers

    De plus, cela me retourne une erreur :
    Use of uninitialized value in concatenation (.) or string at test_perl_obj.pl line 10.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    my $path;
    my $exec = 'seqmap';
    if ( ($ENV{PATH} =~ m{:$path/$exec:}) &&  (-x "$path/$exec") ){
    		print "$path/$exec";
    }
    exit;
    Ma boucle actuelle avec la modif du ';' et pour tester le repertoir courant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    my $path;
    my $exec = 'seqmap';
     
    foreach my $path (  split( /;|:/, $ENV{PATH} ), './' ) {
    	if (-x "$path/$exec") {
    		print "$path/$exec";
    	}
    }
    Merci Jasmine pour tes conseils.
    Z.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Test si une valeur est dans un intervale
    Par olibara dans le forum Excel
    Réponses: 3
    Dernier message: 18/02/2009, 08h09
  2. Test si un fichier est présent dans une directory
    Par lefabe dans le forum VBScript
    Réponses: 1
    Dernier message: 04/11/2008, 10h48
  3. [MySQL] test si une valeur est déjà présente dans la table ou non
    Par yohan0262 dans le forum PHP & Base de données
    Réponses: 7
    Dernier message: 14/06/2007, 13h42
  4. Peut-on executer une fonction qui est dans un iframe ??
    Par miloud dans le forum Général JavaScript
    Réponses: 8
    Dernier message: 19/04/2006, 11h52
  5. voir comment est alimentée une vue qui est dans dba_objects
    Par meufeu dans le forum Administration
    Réponses: 15
    Dernier message: 06/10/2004, 17h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo