Discussion :

[parisien91]

Bonjour,

Je reviens vous voir parce que j'ai un problème pour un script que je dos réaliser.
Ce script la doit grâce a l'argument que je vais lui passer en ligne de commande me sortir le numéro du port, et le nom du switch sur le quel l'@ IP ou l'@ mac du serveur est connecter. l'argument passé sur la ligne de commande sera soit une adresse IP soit une adresse MAC!

donc la ligne de commande devrait être comme ça:

Code :

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

./script -ip X.X.X.X

soit:

Code :

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

./script -mac X:X:X:X:X:X

Mais déjà la première question que je me pose, c'est comment faire pour le "-ip" ou "-mac" parce que l'argument qui doit être pris en compte c'est après!!

donc si je comprend bien il doit y avoir une option que je peux utiliser! on m'a parler de getopt, après quelques recherche sur mon ami google.. j'ai pas compris sa fonction et comment l'utiliser dans un script perl.


J'espère vous pourrez m'éclairer!!!

Merci

[djibril]

Le module Perl qui permet de faire cela proprement est le module Getopt::Long

Pour te faciliter la vie, voici un exemple :
Je souhaite appeler mon script de cette façon

./script -mac X:X:X:X:X:X -ip X.X.X.X

Script

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
use Getopt::Long;
 
my ($AdressMac, $IP) = ();
GetOptions(
  'mac=s'         => \$AdressMac,
  'ip=s'       => \$IP,
);
 
print "Adresse IP : $IP\n" if (defined $IP);
print "Adresse Mac: $AdressMac\n" if (defined $AdressMac);

A toi de rajouter des options, tester les options voulu ou non, etc.

[parisien91]

SAlut,
Merci pour ta solution!

Mais je me demandais, je viens de tester ton code, il marche OK mais moi je lance soit avec une IP soit avec une MAC!!! toi tu m'es les 2! mais quand je lance soit l'un soit l'autre avec ton script sa marche quand meme, donc sa ne pause pas de probleme?

Autre question: la je lance mon script et j'ai ce message d'erreur:

Code :

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

-bash: ./script.pl: /usr/bin/perl^M: bad interpreter: Aucun fichier ou répertoire de ce type

alors que sur un autre onglet du meme terminal pas de msg d'erreur... bizarre, ca peut venir d'ou?

Merci

[djibril]

Non ça ne pose pas de problème.
C'est toi qui fait les tests.

Code :

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

print "Adresse IP : $IP\n" if (defined $IP);

Si $IP est définie, ça veut dire qu'il a été rentré par l'utilisateur.

Pour ton second problème, c'est du à des retour chariot dans ton fichier. Surement à cause d'un fichier windows passé sur linux => problème de fin de ligne.
Vire les ^M de ton fichier. Pour cela, tu peux faire sous ta console linux cette commande :

Code :

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

perl -pi.bak -e 's/\r\n/\n/g' TonScript.pl

Il te remettra ton script au propre et te fais une sauvegarde de ton ancien script.

[parisien91]

Ah merci sa marche impécable!!!

Merci maintenant je peux continué mon script!! si j'ai d'autres probleme je les posterais ICI!

Merci encore a toi!

[parisien91]

Re, enfin non c'est pas bon...

Je viens d'effectuer des tests, et quand je rentre

Code :

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

./script -ip x.x.x.x -mac xxxx.xxxx.xxxx

Il me sort les 2 en arguments... et je veux pas sa:!!
je veux juste soit l'un soit l'autre!!!
comment faire??
DSL tout a l'heure j'ai dis des betises en disant c'etait bon
merci