Bonjour,

J'utilise perl pour ecrire des scripts qui seront utilisé sur nagios . Quand j'ai cherché sur internet , j'ai trouvé un script en perl déja ecris, mais je n'arrive pas à le comprend ou savoir ce que je dois lui donner en entrée. Voici le 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
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl
use strict;
 
open(MODEL, "modele.txt");
mkdir("modeles") if(!-d("modeles"));
while() {
  chomp();
  my($modele, $ip) = split(/;/);
  my @interfaces = `snmpwalk -c ecalyptus -v 2c $ip 1.3.6.1.2.1.2.2.1.2`;
  open(MODEL_CFG, ">modeles/switch-$modele.cfg");
  foreach(@interfaces) {
    if(/iso.3.6.1.2.1.2.2.1.2.(\d+) = STRING: "(.*Ethernet.*)"/) {
      my ($id, $interface) = ($1, $2);
      print MODEL_CFG "define service {
  hostgroup_name       $modele
  use                  generic-service
  service_description  $interface
  check_command        check_port_usage!$id!6000!8000
}
\n";
    }
  }
  close(MODEL_CFG);
}
close(MODEL);
et voici sa réference :

http://lesaventuresdeyannigdanslemon...tch-cisco.html

Pouvez vous m'aider s'il vous plait ?

je l'ai enregistré sous le nom test , et quand je fais : ./test.pl , il ne fait que créer un dossier modeles , et un fichier dedans vide qui est nomé switch-.cfg