Discussion :

[elbossoso]

Coucou

J'essaye maintenant de faire un script qui ferait un ping sur une liste de noms de machines qui sont stockés dans un fichier texte sous cette forme :

machine1
machine2
machine3
...

Et qui me donnera le résultat dans un autre fichier texte, voici mon code mais le syntaxe n'est apparament pas bonne merci de me dire ou j'ai faux !

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
 
#!/opt/perl5/bin/perl -w
 
use strict;
 
## Vérification de l'existence et du type du paramètre passé au script
$ARGV=@ARGV;
if ($ARGV == 0) {print("\n\nPas de parametre en entree du script.\n\n",
                       "Veuillez lancer le script de cette facon:\n",
                       "  sous windows: perl -w script fichier_input\n",
                       "  sous unix:    ./script fichier_input\n\n");
                 exit;}
if (not -f $ARGV[0]) {print("\n\nLe fichier passe en parametre n'existe pas.\n\n",
                            "Veuillez verifier que le nom du fichier est exact et ",
                            "qu'il se trouve dans le meme repertoire que le script\n\n");
                      exit;}
 
#### Définitions des variables utilisées
my $output_file = "ping_it_res.txt";
my $ip;
 
#### Ouverture du fichier de résultat
open(RESULTAT,">$output_file") or die "Impossible de créer le fichier resultat: $!\n";
 
## recuperation date & heure
my ($sec,$min,$hour,$mday,$mon,$year) = (localtime(time))[0..6];
$mon=$mon+1; $year=$year+1900;
foreach ($mon,$mday,$hour,$min,$sec)  { $_ ='0'.$_ if ($_ < 10) }
 
print RESULTAT "Resultat des requêtes ping\n",
               "Test effectué le $mday/$mon/$year à $hour:$min:$sec\n\n";
 
#### Récupération des données dans le fichier de conf
open(LOAD_CONF,"$ARGV[0]") or die "\nProblème lors de l'ouverture du fichier de conf $ARGV[0]: $!\n\n";
 
while (<LOAD_CONF>) {
 
   if ( $_ !~  m/(^#|^$)/ ) {
     chomp;                  # Supprime les retours chariot
     if ( /\s$/ ) { chop; }  # Supprime le dernier espace de la ligne si present
     $ip = $_;
 
## vérification de la syntaxe du fichier de configuration
     if ( $ip !~ m/^ (RM|LB|CM|SD|AP|HB|SD|SF|WL|ST|SW|SR|RT|RS)|(^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$)/i ) { die "\nErreur de syntaxe: $ARGV[0] line : $.\n"; }
     my $nombre=`ping $ip -n 2 | grep -c "icmp"`;
     if ( $nombre == 0 )    { print "Le ping vers $ip N'A PAS ABOUTI\n";
                              print RESULTAT "KO: $ip\n"; }
     elsif ( $nombre == 2 ) { print "Le ping vers $ip a abouti\n";
                              print RESULTAT "ok: $ip\n"; }
     else { print "Problème lors du ping vers $ip\n";
            print RESULTAT "erreur: $ip - seul $nombre ping sur 2 a abouti\n"; }
 
   } # End if ^#
} # End While
 
close(LOAD_CONF);
close(RESULTAT);

Il me dit que la syntaxe de la ligne 1 du fichier que je mets en input n'est pas correct, alors qu'elle commence par RM comme selon les règles que j'ai établit !

Merci de m'aider

[GnuVince]

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
 
use strict;
use warnings;
 
use Net::Ping;
 
open(my $input_fichier, "<", $ARGV[0]) or die("Impossible d'ouvrir le fichier d'entrée: $!");
open(my $output_fichier, ">", $ARGV[1]) or die("Impossible d'ouvrir le fichier de sortie: $!");
my $p = Net::Ping->new();
 
while (my $machine = <$input_fichier>) {
  chomp($machine);
  if ($p->ping($machine)) {
    print {$output_fichier} "$machine: ON\n";
  }
  else {
    print {$output_fichier} "$machine: OFF\n";
  }
}
 
close($output_fichier);
close($input_fichier);
$p->close();

J'ai pas de machine pour tester ce code, mais ça devrait fonctionner. Tu pourras sans doute l'utiliser dans ton code.

[elbossoso]

Merci beaucoup !

Pour le moment le code me dit que toutes les machines sont OFF

RMB*****: OFF
RMB*****: OFF
RME*****: OFF

Alors que non mais je vais chercher pourquoi !

Sinon j'aimerais bien une petite explication de certaines parties du code si ca t'embête pas !

my $p = Net:ing->new();

Ici je comprends pas à quoi sert le ->new(); ?

Voila j'ai plus qu'à voir pourquoi il me dit que les machines sont OFF alors qu'elles répondent à mon ping

Merci de ton aide j'apprecie vraiment !

[GnuVince]

Ça crée un nouvel objet qui Ping. Si tu es pas encore familier avec l'orienté objet, ça voudra sans doute rien dire, tu pourras lire le FAQ à ce sujet. Et si ça répond OFF partout, tu peux essayer de mettre:

Code :

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

1
2
 
my $p = Net::Ping->new("icmp");

Par contre, le code devra être exécuté en root.

[elbossoso]

Voila merci beaucoup le code fonctionne :

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
#!/opt/perl5/bin/perl -w
 
# ATTENTION : Ce script requiert les droits administrateurs sur la machine
 
####################################################
# Pinger une liste de machine                                   
#                                                               
# Entrée: Liste des noms machines dans un fichier txT           
# Sortie: Réponses positives ou négatives du ping dans un txt   
#                                                               
#                                         
####################################################
 
###################################################
####### Verification de la syntaxe du lancement du script #######
####################################################
 
$ARGV=@ARGV;
if ($ARGV == 0) {print("\n\nVeuillez entrer un fichier d'entree et de sortie\n\n");}
if (not -f $ARGV[0]) {print("\n\nLe fichier d'entree n'existe pas\n\n");}
 
 
use strict;
use Net::Ping;
use Socket;
 
 
####################################################
######## Ouverture des fichiers d'entree et de sortie ###########
####################################################
 
open(my $input_fichier, "<", $ARGV[0]) or die("Impossible d'ouvrir le fichier d'entrée: $!");
open(my $output_fichier, ">", $ARGV[1]) or die("Impossible d'ouvrir le fichier de sortie: $!");
 
####################################################
############### Definition de la variable p (ping) ##############
####################################################
 
my $p = Net::Ping->new("icmp",1);
 
####################################################
###### Recuperation des donnees dans le fichier de sortie #######
####################################################
 
while (my $machine = <$input_fichier>) {
print("$machine\n");
  chomp($machine);
  if ($p->ping($machine)) {
    print {$output_fichier} "$machine: ON\n";
  }
  else {
    print {$output_fichier} "$machine: OFF\n";
  }
}
 
####################################################
######### Fermeture des fichiers et de la requete ping  ########
####################################################
 
close($output_fichier);
close($input_fichier);
$p->close();

Seul problème avec ce code comme tu me l'a fait remarquer, il faut être en root pour pouvoir l'executer :/

Je me suis donc pencher sur une autre solution :

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
 
#!/opt/perl5/bin/perl -w
 
####################################################
# Pinger une liste de machine                                   
#                                                               
# Entrée: Liste des noms machines dans un fichier txt           
# Sortie: Réponses positives ou négatives du ping dans un txt   
#                                                               
#                                           
####################################################
 
use strict; # Oblige les variables à être declarées
 
 
####################################################
############### Définition des variables utilisées ##############
####################################################
 
 
my $output_file = "ping_it_res.txt";
my $ip;
 
####################################################
############### Création du fichier ping_it_res.txt #############
####################################################
 
open(RESULTAT,">$output_file") or die "Impossible de créer le fichier resultat: $!\n";
 
 
####################################################
###### Requète ping et écriture dans le fichier résultat ########
####################################################
 
open(LOAD_CONF,"$ARGV[0]") or die "\nProblème lors de l'ouverture du fichier de conf $ARGV[0]: $!\n\n";
 
while (<LOAD_CONF>) {
 
   if ( $_ !~  m/(^#|^$)/ ) {
     chomp;                  # Supprime les retours chariot
     if ( /\s$/ ) { chop; }  # Supprime le dernier espace de la ligne si present
     $ip = $_;
     my $nombre=`ping $ip -n 2 | grep -c "icmp"`;
     if ( $nombre == 0 )    { print "Le ping vers $ip N'A PAS ABOUTI\n";
                              print RESULTAT "$ip --- > OFF\n"; }
     elsif ( $nombre == 2 ) { print "Le ping vers $ip a abouti\n";
                              print RESULTAT "$ip --- > ON\n"; }
     else { print "Problème lors du ping vers $ip\n";
            print RESULTAT "erreur: $ip - seul $nombre ping sur 2 a abouti\n"; }
   } # End if ^#
} # End While
 
####################################################
##################### Fermeture du script 
####################################################
 
close(LOAD_CONF);
close(RESULTAT);

Et la ca marche !

Mais je me confronte à un autre problème et peut être pourra tu m'aider,

Certaines machines ne répondent pas car elles ne sont pas dans le DNS, donc on doit pouvoir les scanner avec leurs IP mais pas leurs noms, j'ai un tableau avec leurs IP je dois donc faire à nouveau un script (ou compléter l'ancien) pour déterminer si les machines sont OFF ou si elles ne sont pas sur le DNS

Dur dur le réseau

[Woufeil]

Bonjour.

Je pense qu'il y a plus simple que ce que tu essayes de faire
Si tu as un fichier avec le nom de chaque machine et leur IP, pourquoi ne pas simplement faire une table de hachage qui contiendrait le couple machine => IP et pinguer directement l'IP de la machine ? Au pire, à l'affichage tu peux toujours mettre le nom de la machine et non son IP