ligne de commande avec argument

**parisien91** · 29/01/2009, 11h49

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** · 29/01/2009, 11h55

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

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

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** · 30/01/2009, 11h14

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** · 30/01/2009, 12h49

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

**djibril** · 30/01/2009, 13h13

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 :

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

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

**parisien91** · 30/01/2009, 13h57

oui merci!

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

et moi j'avais fais ca:

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

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

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!!

**djibril** · 30/01/2009, 14h18

Code :

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

!=~

ne veut rien dire en Perl

Evite de prototyper tes procédures ($$), c'est déconseillé.

Code :

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

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 :

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

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

**parisien91** · 30/01/2009, 14h54

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

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
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!!!

**parisien91** · 13/02/2009, 09h41

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

**djibril** · 13/02/2009, 09h58

bah tu testes toi même si $ip et $mac sont definies !

**parisien91** · 13/02/2009, 10h21

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 :

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

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

je vais avoir se message d'erreur

Code :

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

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

**Jedai** · 13/02/2009, 20h24

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 :

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

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ï

**parisien91** · 16/02/2009, 11h49

Bon en fin de compte toujours pas résolu

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

**parisien91** · 18/02/2009, 14h15

UP

**djibril** · 18/02/2009, 14h36

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

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 :

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

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

**parisien91** · 20/02/2009, 11h19

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

**Jedai** · 20/02/2009, 11h49

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ï

ligne de commande avec argument

Langage Perl

Discussions similaires

Partager

Partager