#!/usr/bin/perl

$nom_programme = shift;



if ($nom_programme eq "") {
	print "\nIl faut un paramètre : 1° = nom du programme existant\n";
	exit;
} else {
	# trouver l'exécutable
	$chemin_executable = `which $nom_programme`;
# s'il y a une erreur, elle est affichée à l'écran, mais par la sortie '2'
# qui n'est pas captée par l'opérateur 'backquote ``,
# et ne se retrouve donc pas dans la variable $chemin_executable (dans ce cas-ci)

	print "1111111111111111111111111\n";
	print $chemin_executable;
	print "1111111111111111111111111\n";

	# trouver l'exécutable
	$chemin_executable = `which $nom_programme 2>&1`;
# pour ne pas avoir d'affichage de message d'erreur pendant l'exécution du script,
# on demande de l'ajouter à la sortie standard '1' par la syntaxe 2>&1

	print "&&&&&&&&&&&&&&&&&&&&&&&&&\n";
	print $chemin_executable;
	print "&&&&&&&&&&&&&&&&&&&&&&&&&\n";


	# trouver l'exécutable
	$chemin_executable = `which $nom_programme 2>/dev/null`;
# pour ne pas avoir d'affichage de message d'erreur pendant l'exécution du script,
# on demande de la rediriger sur le pseudo-fichier "trou noir" '/dev/null' par la syntaxe 2>/dev/null

	print "0000000000000000000000000\n";
	print $chemin_executable;
	print "0000000000000000000000000\n";

}