Archive

Archives pour la catégorie ‘Perl’

[Plugin Nagios] Supervision des erreurs sur les interfaces des équipements réseau

23/07/2009 admin 4 commentaires

Suite à des problèmes que j’ai rencontré, j’ai décidé de superviser les interfaces de mes équipements réseau. Je n’ai pas trouvé de plugin de ce type donc j’en ai créé un.

Lire la suite…

Categories: Cisco, Nagios, Perl, Programmation Tags:

Trucs perl -2

Remplacer un caractère ou une chaine dans une chaine :

$chaine =~ s/\//-/g;

Lire la suite…

Categories: Perl, Programmation Tags:

Trucs Perl

Tailles d’un tableau à 2 dimensions :

# nombre de lignesmy $nbr_lignes = @MonTableau_2D;   # nombre de colonnes de la ligne 0

Lire la suite…

Categories: Perl, Programmation Tags:

[Script] Ping automatique sur plusieurs HOST

Voici un script permettant de faire des pings sur plusieurs hosts et d’afficher le résultat de cette maniere :

Lire la suite…

Categories: Linux, Perl, Réseau, Shell Tags:

Afficher le schéma d’une base SQLite en Perl

#!/usr/bin/perl
use strict;
use DBI;

#Définition des arguments de connexion
my $dbargs = {AutoCommit => 0,
PrintError => 1};

Lire la suite…

Categories: Perl, SQLite Tags:

Connaitre la taille d’un tableau :

source = (test test2); # création du tableau avec deux entrées

echo ${#source[*]};    # On affiche la taille du tableau

Lire la suite…

Categories: Perl Tags:

Projet SYSLOG

Configuration Syslogd :

Voici mon fichier syslog.conf :

# Log all kernel messages to the console.
# Logging much else clutters up the screen.
#kern.*                                                 /dev/console

Lire la suite…

Categories: Linux, Perl, Php, Projet, Réseau Tags:

Comment supprimer les doublons d’une liste ou d’un tableau ?

Utilisez une table de hachage. Lorsque vous pensez à « unique » ou à « doublons », pensez aux « clés de hachage ».

Lire la suite…

Categories: Perl Tags:

Tester les expressions regulière

Un petit logiciel nommé Kodos permet de débugger les expressions régulière.

Categories: Perl Tags:

Convertir Timestamp en Date et heure

use Date::Manip

$res = UnixDate(ParseDate("epoch $date"), ‘%d/%m/%y-%T’);

Lire la suite…

Categories: Perl Tags: