Récupérer le chemin vers une commande

Version imprimable

26/11/2009, 16h23
binome-x

Récupérer le chemin vers une commande

Bonjour,
j'aimerais récupérer le chemin d'accès vers une commande dans une chaîne.
Exemple :
La commande 'ls' est dans /usr/bin/ls
j'aimerais que $string vaille "/usr/bin/"

Je suppose que je dois faire appel aux fonctions de File::Basename mais je n'arrive pas à me dépatouiller.

Merci à ceux qui pourront m'aider.

Salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
lami20j@debian:~$ cat chemin_commande.pl
#!/usr/bin/perl
use strict;use warnings;
use File::Basename;
 
my $commande="/usr/bin/ls";
my $string=dirname($commande) . '/';
 
print "$string\n";
 
__END__
lami20j@debian:~$ perl chemin_commande.pl
/usr/bin/
lami20j@debian:~$

27/11/2009, 10h05
binome-x

Merci, mais si justement je ne sais pas que c'est dans /usr/bin/. Est-ce que je peux faire un truc du genre "which ls" ?

Re,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 lami20j@debian:~$ cat chemin.pl #!/usr/bin/perl use strict;use warnings; use File::Basename; print "Tapez une commande : "; chomp (my $commande = <STDIN>); my $cmd=qx/whereis -b $commande/; $cmd=~/.*:\s+(.*?)(\s|$)/; my $string=dirname($1) . '/'; print "$string\n"; __END__
Exemples

Citation:

lami20j@debian:~$ perl chemin.pl
Tapez une commande : perl
/usr/bin/
lami20j@debian:~$ perl chemin.pl
Tapez une commande : bash
/bin/
lami20j@debian:~$ perl chemin.pl
Tapez une commande : reboot
/sbin/
lami20j@debian:~$ perl chemin.pl
Tapez une commande : ls
/bin/
lami20j@debian:~$

Quitte à utiliser une commande externe, autant utiliser directement which qui au moins donne uniquement la réponse souhaité par le posteur et ne requiert pas de post-traitement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 #! /usr/bin/perl use strict; use warnings; use v5.10; use File::Basename; $|++; print "Tapez une commande : "; chomp (my $commande = <STDIN>); chomp(my $cmd=qx/which $commande/); say dirname($1), '/'; __END__
--
Jedaï

27/11/2009, 14h27
binome-x

OK, c'est parfait.
Merci à tous les deux.
27/11/2009, 14h42
lami20j

Salut,

Citation:

Envoyé par Jedai

Quitte à utiliser une commande externe, autant utiliser directement which qui au moins donne uniquement la réponse souhaité par le posteur et ne requiert pas de post-traitement :

Je ne savais pas que which est une commande interne de Perl.
En fait elle ne l'est pas, donc tu utilises aussi une commande externe, n'est-ce pas?
La commande which cherche les fichiers exécutables dans la variable PATH, et c'est ça que j'ai pensé la 1ère fois.
En revanche il y a des exécutables qui se trouvent dans des répertoires qui ne font pas partie de PATH et requiert un post-traitement.

C'est pour ça que j'ai changé d'avis ;-)

P.S.
Voir man which et man whereis
Bienvenu dans le monde GNU/Linux ;-)
27/11/2009, 16h57
Jedai
Citation:

Envoyé par lami20j

Je ne savais pas que which est une commande interne de Perl.
En fait elle ne l'est pas, donc tu utilises aussi une commande externe, n'est-ce pas?

Peut-être serait-il préférable que tu vérifies le sens de l'expression "quite à ... autant ...". :roll:

Citation:

Envoyé par lami20j

La commande which cherche les fichiers exécutables dans la variable PATH, et c'est ça que j'ai pensé la 1ère fois.
En revanche il y a des exécutables qui se trouvent dans des répertoires qui ne font pas partie de PATH et requiert un post-traitement.

Je suis conscient de la différence entre which et whereis, mais il y a a priori deux cas :
- On n'a que le nom de la commande car elle est sur le PATH, which est plus simple.
- On a le chemin complet de la commande car elle n'est pas sur le PATH, whereis n'est pas nécessaire, on peut utiliser dirname() directement.
Le troisième cas hypothétique que tu sembles prendre en compte serait la recherche d'un binaire quelconque dont le nom correspond à l'entrée dans la totalité des emplacements considérés "standards" par whereis (mais pas forcément la totalité du PATH actuel, contrairement à which)... Je considère dans ce cas qu'on a affaire à un problème de recherche de fichier, certainement différent de la question initialement posée.

Bien que ta réponse soit appropriée, elle me semble inutilement compliquée, le posteur a demandé un équivalent de "which" en Perl, pourquoi ne pas simplement lui rappeler qu'il peut appeler "which" à partir de son programme ? (A la limite si tu avais proposé une solution pure Perl plus ou moins multi-plateforme ç'aurait eu un autre intérêt)

Citation:

Bienvenu dans le monde GNU/Linux ;-)

Ne t'inquiète pas, j'y suis depuis un certain temps... 8-)

--
Jedaï