Aide sur perl

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

open F_LIRE,"test.txt"    # ouvre le test.txt en lecture
     or die "E/S : $!\n"; # msg si erreur d'ouverture
		 
my %h;                    # pour les  lignes en double, triple...

while ( <F_LIRE> ) {      # lis le fichier ligne par ligne
    chomp;                # supprime le caractère de fin de ligne
    next if /^\s*$/;      # ne traite pas les lignes vides
    s/snmp.*?=|\/alarm.*(?=\*device)//gi; # suppression de texte au tour de
                                          # de texte MT....
    $h{$_}++;                             # stockage dans un hash
		                          # elimine lignes en double, triple..
                                          # mieux que d'utiliser un tableau
                                          # qui stocke tout le fichier
                                          # y compris les doublons, triplons
                                          # on consomme moins de mémoire.
}

foreach (keys %h) {              
	my ($d,$h,$sev,$sys,$book) = split /\*/,$_; # j'obtiens les variables
	                                            # nécessaires pour INSERT INTO
	print "$d : $h : $sev : $sys : $book\n";    # affiche le contenu de 
                                                    # variables
	                                            # seulement pour montrer leur 
						    # contenu. 
    						    # A adapter dans ton code
}
__END__
Tu ce que tu vois après __END__
n'est pas lu par le script

Les commentaires commence avec le #

Pense à ceux qui lisent ton code.
Et aussi à toi pour la maintenance.

Il faut respecter quelque règles de base
- l'identation par exemple

Ex:
- en Perl pour le bloc if on préfère écrire

if ( condition ) {
    instructions;
}

Quand on ne connaît pas la précédence des opérateurs
on utilise les paranthèses.
Cependant l'utilisation en trop ce n'est pas top.

Ex:
Tu as écrit
open (F,"test.txt) || die "$!";

si on utilise l'opérateur or qui à
la précédence la plus faible 
on n'est pas obligé d'utiliser les paranthèses.
Et le code devient
open F,"test.txt or die "$!";

C'est comme tu dit dans le langage normal
Ouvre le fichier en lecture ou meurs.(Aproche de langage qu'on parle).

s/snmp.*?=|\/alarm.*(?=\*device)//gi;

s/snmp.*?=|\/alarm.*(?=\*.*=)//gi;

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

open F_LIRE,"test.txt"    
     or die "E/S : $!\n"; 
		 
my %h;                   

while ( <F_LIRE> ) {      
    chomp;               
    next if /^\s*$/;      
    s/snmp.*?=|\/pri.*(?=\d+\*)//gi;		                                      
    $h{$_}++;                             		                                      
}

foreach (keys %h) {              
    my ($d,$h,$sev,$sys,$book,$book2) = split /\*/,$_;	                                            
    print "$d : $h : $sev : $sys : $book : $book2\n";
}
__END__