ligne de commande avec argument

Version imprimable

29/01/2009, 11h49
parisien91

ligne de commande avec argument

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:

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

soit:

Code:

./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

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

Citation:

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

Script
Code:

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.

30/01/2009, 10h22
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:

-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
30/01/2009, 10h35
djibril

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

Code:

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:

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.
30/01/2009, 11h14
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!
30/01/2009, 12h49
parisien91

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

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

Code:

./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

Comme je t'ai dit ci-dessus, je t'ai montré comment récupérer les options en ligne de commande.

Maintenant, c'est à toi d'en faire ce que tu veux et faire des tests pour dire à l'utilisateur ce qu'il a le droit de faire ou non ;)

Exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
use Getopt::Long;
 
my ($AdressMac, $IP) = ();
GetOptions(
  'mac=s'         => \$AdressMac,
  'ip=s'       => \$IP,
);
 
my $Usage = <<"USAGE";
  USAGE : perl $0 -ip xxx.xxx.xxx.xxx
          ou
          perl $0 -mac X:X:X:X:X:X
 
USAGE
 
# Les 2 adresses donnees
if (defined $IP and defined $AdressMac) {
  print $Usage;
  exit;
}
 
# aucune adresses donnees
if (not defined $IP and not defined $AdressMac) {
  print $Usage;
  exit;
}

oui merci!

je voulais savoir le module use Carp sert a quoi??

et moi j'avais fais ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
sub usage
{
    print ("Usage: \n");
    print ("   -ip xx.xx.xx.xx \n");
    print (" OU ");
    print ("   -mac xxxx.xxxx.xxxx \n");
}
 
sub argum
{
    my ($adressMac, $IP);
 
    GetOptions(
               '-ip=s'       => \$IP,
               '-mac=s'         => \$adressMac,
               );
    &check($IP,$adressMac);
}
 
 
sub check($$)
{
    my $adressMac = $_[0];
    my $IP = $_[1];
 
    print "Adresse IP: $IP\n" if (defined $IP);
    print "Adresse Mac: $adressMac\n" if (defined $adressMac);
 
    if ($adressMac =~  (/(\w{4})(\.)(\w{4})(\.)(\w{4})/) )
#    if ($IP =~ /(\d{*})\.(\d{*})\.(\d{*})\.(\d{*})/ )                                                                      
    {
        print ("c'est bon\n");
    }
    else
    {
        &usage();
    }
}
 
}
 
 
sub check($$)
{
    my $adressMac = $_[0];
    my $IP = $_[1];
 
    print "Adresse IP: $IP\n" if (defined $IP);
    print "Adresse Mac: $adressMac\n" if (defined $adressMac);
 
    if ($adressMac !=~ /\w{4}\.\w{4}\.\w{4}/ || $IP =~ /(\d{*})\.(\d{*})\.(\d{*})\.(\d{*})/ )
    {
     	&usage();
    }
}
 
sub main
{
    argum();
}
&main(@ARGV);
exit (0);

Mais j'ai des erreurs:

Code:

1
2
3
4
5
6
7
8
./test.pl -mac BLAL.23NI.DIND
Adresse IP: BLAL.23NI.DIND
Use of uninitialized value in pattern match (m//) at ./test.pl line 49.
Use of uninitialized value in numeric ne (!=) at ./test.pl line 49.
Usage: 
       -ip xx.xx.xx.xx 
     OU 
       -mac xxxx.xxxx.xxxx

et je comprends pas mes erreurs dans les expressions réguliere j'ai pourtant suivie les cours du net!!

Code:

!=~

ne veut rien dire en Perl ;)
Evite de prototyper tes procédures ($$), c'est déconseillé.

Code:

Use Carp;

sert à faire des vérifications dans le script comme warnings et strict. Mais tu peux l'enlever.

Tu déclares 2 fois la même procédures check et tu te compliques la vie.

Reprends ce script ci-dessous pour la suite de ton script. et Si tu as un souci de compréhension, dis le moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
 
my ($AdressMac, $IP) = ();
GetOptions(
  'mac=s'         => \$AdressMac,
  'ip=s'       => \$IP,
);
 
# Verification
Check($AdressMac, $IP);
 
# Suite du script
print "Bonjour parisien91, on peut continuer\n";
 
 
 
 
 
 
 
 
sub Check {
  my ($AdressMac, $IP) = @_;
 
  my $Usage = <<"USAGE";
    USAGE : perl $0 -ip xxx.xxx.xxx.xxx
            ou
            perl $0 -mac X:X:X:X:X:X
 
USAGE
 
  # Les 2 adresses donnees
  if (defined $IP and defined $AdressMac) {
    print $Usage;
    exit;
  }
 
  # aucune adresses donnees
  if (not defined $IP and not defined $AdressMac) {
    print $Usage;
    exit;
  }
 
  # Verification Adresse MAC
  if ( defined $AdressMac and $AdressMac !~ /^\w{4}\.\w{4}\.\w{4}\.\w{4}$/ ) {
    print "Mauvais format de l'adresse Mac ($AdressMac)\n$Usage";
    exit;
  }
  # Verification Adresse IP
  if ( defined $IP and $IP !~ $IP =~ /^\d+\.\d+\.\d+\.\d+$/ ) {
    print "Mauvais format de l'adresse IP ($IP)\n$Usage";
    exit;
  }
 
  return;
}

voila j'ai réussi grace a toi!!! J'ai remixer ton code et le miens et ca donne ca:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
 
#!/usr/bin/perl                                                                                                             
 
## strict demande de definir les variable                                                                                   
use strict;
## warnings permet d'avoir des messages d'erreurs                                                                           
use warnings;
## module pour les arguments                                                                                                
use Getopt::Long;
 
## Variable globale ##                                                                                                      
 
 
 
#####################                                                                                                       
 
 
sub usage
{
    print ("Usage: \n");
    print ("      $0 -ip xx.xx.xx.xx \n");
    print ("     OU \n");
    print ("      $0 -mac xxxx.xxxx.xxxx \n");
}
 
 
sub print_error
{
    print STDERR strftime("%A %D %H:%M:%S", localtime())." => ";
    print STDERR @_;
}
sub argum
{
    my ($adressMac, $IP);
 
    GetOptions(
               '-ip=s'       => \$IP,
               '-mac=s'         => \$adressMac,
               );
    &check($IP,$adressMac);
 
 
#    print "Adresse IP: $IP\n" if (defined $IP);                                                                            
#    print "Adresse Mac: $adressMac\n" if (defined $adressMac);                                                             
 
 
}
 
 
sub check()
{
    my $IP = $_[0];
    my $adressMac = $_[1];
 
 
           # Verification Adresse MAC    
    if ( defined $adressMac and $adressMac !~ /^\w{4}\.\w{4}\.\w{4}$/ ) {
        print "Mauvais format de l'adresse Mac ($adressMac)\n";
        &usage();
        exit;
    }
 
           # Verification Adresse IP  
    if ( defined $IP and $IP !~ /^\d+\.\d+\.\d+\.\d+$/ ) {
	print "Mauvais format de l'adresse IP ($IP)\n";
	&usage();
        exit;
    }
 
           # Les 2 adresses donnees                                                                                         
    if (defined $IP and defined $adressMac) {
        &usage();
        exit(1);
    }
 
           # aucune adresses donnees                                                                                        
    if (not defined $IP and not defined $adressMac) {
        &usage();
        exit(1);
    }
    print "Adresse IP: $IP\n" if (defined $IP);
    print "Adresse Mac: $adressMac\n" if (defined $adressMac);
 
}
 
 
sub main
{
    argum();
}
 
&main(@ARGV);
exit(0);

Ton code avait quelques fautes mais rien de grave donc j'ai rectifier et je l'ai mis dans mon code avec des fontions! et ca marche nikel chrome je crois que j'ai testé tout les tests

Merci a toi!!!

13/02/2009, 09h41
parisien91

Bonjour,

je reviens sur la conversation pour savoir comment mettre un message d'erreur lorsque je rentre des arguments que je veux pas, je veux seulement -ip, ou -mac, après j'effectue les tests sur les arguments mais avant je voudrais, des qu'il y a autres chose que -ip, -mac un message d'erreur et sa coupe la fonction!! comment faire???

MErci
13/02/2009, 09h58
djibril

:? bah tu testes toi même si $ip et $mac sont definies !
13/02/2009, 10h21
parisien91

oui la je suis tout a fais d'accord avec toi!
Mais mon tuteur ma fait un contre exemple, moi aussi j'etais sur que sa marcherais pas mais si je fais

Code:

./script -ip X.X.X.X -test fdsjg

je vais avoir se message d'erreur

Code:

Unknown option: test

Mais le code continue...

Et c'est la que je voudrais intervenir mais je cherche dans la doc mais je comprends pas tout

GetOpt::Long va traiter les arguments qu'il reconnait et les supprimer de @ARGV, donc si @ARGV n'est pas vide après GetOptions() c'est qu'il y avait trop d'arguments, par ailleurs si tu lui donnes quelque chose qui ressemble à une option (comme --test) et qui n'est pas listé, GetOptions() proteste avec un warning et en renvoyant une valeur fausse.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!/usr/bin/perl use strict; use Carp; use warnings; use Getopt::Long; my ($AdressMac, $IP) = (); my $Usage = <<"EOU"; USAGE : perl $0 -ip xxx.xxx.xxx.xxx ou perl $0 -mac X:X:X:X:X:X EOU die $Usage if not GetOptions( 'mac=s' => \$AdressMac, 'ip=s' => \$IP) # options incorrectes or not (defined $IP xor defined $AdressMac) # aucune ou 2 adresses or @ARGV; # arguments supplémentaires # blabla
--
Jedaï

16/02/2009, 11h49
parisien91

Bon en fin de compte toujours pas résolu :lol:

J'ai toujours le problème avec mon GetOptions
quand je fais -test ou autre chose avec min -ip X.X.X.X ou -mac XXXX.XXXX.XXXX
J'ai un message d'erreur de getopt ..." Unknown option: test "
Mon tuteur ne veut pas de warning de la parle de getopt mais veut que sa soit un message d'erreur a moi qui soit généré...

Comment faire..?? on ma parlé de catch error .. mais comprends pas comment ca marche ca!

voila j'espere vous pourrez m'eclairer
18/02/2009, 14h15
parisien91

UP

Bon quand tu lis la doc du module Getopt::Long, tu lis ceci :

Citation:

Return values and Errors

Configuration errors and errors in the option definitions are signalled using die() and will terminate the calling program unless the call to Getopt::Long::GetOptions() was embedded in eval { ... }, or die() was trapped using $SIG{__DIE__}.

GetOptions returns true to indicate success. It returns false when the function detected one or more errors during option parsing. These errors are signalled using warn() and can be trapped with $SIG{__WARN__}.

Donc dans ton cas, si tu mets --test, le module le détecte et te fais un warnings.
Pour éviter le warnings, tu es obligé de modifier la fonction warn de Perl ( cette pratique est déconseillée si on ne sait pas ce qu'on fait).

Pour revenir à ton cas, voici ce que tu pourrais faire.

en reprenant le bout de code de jedai
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 #!/usr/bin/perl use strict; use Carp; use warnings; use Getopt::Long; # Je récupère la référence de warn et l'initialise à rien my $RefWarnFunction = $SIG{__WARN__}; $SIG{__WARN__} = sub { return;}; my ($AdressMac, $IP) = (); my $Usage = <<"EOU"; USAGE : perl $0 -ip xxx.xxx.xxx.xxx ou perl $0 -mac X:X:X:X:X:X EOU die $Usage if not GetOptions( 'mac=s' => \$AdressMac, 'ip=s' => \$IP) # options incorrectes or not (defined $IP xor defined $AdressMac) # aucune ou 2 adresses or @ARGV; # arguments supplémentaires # Je remets le warn de Perl à la normale $SIG{__WARN__} = $RefWarnFunction; # blabla

20/02/2009, 11h19
parisien91

bonjour!
Bon ba c'est toujours pas sa qu'il veut, il me dit que c'est une option a mettre a la fin du genre printerror ou raise error un truc comme sa. mais meme avec des recherches sur mon ami gogole j'ai rien trouver!!

Quelqu'un aurait des infos sur la gestion des warnings???

MERCI
20/02/2009, 11h49
Jedai

Tu pourrais lire la documentation du module, en particulier l'option pass_through de la section de configuration devrait plus ou moins répondre à ses attentes.

--
Jedaï