Discussion :

[binome-x]

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.

[lami20j]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:~$

[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" ?

[lami20j]

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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:~$

[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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[binome-x]

OK, c'est parfait.
Merci à tous les deux.

[lami20j]

Salut,

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 ;-)