Bonjour,

Je vous écrit car j'ai besoins de vous!!
Je vous explique:
- je voudrais faire un inventaire de serveur qui se montent en automatique.
- donc rechercher dans un doc les serveur en auto et tous les inscrire dans un autre fichier, trier par ordre alphabétique (par nom de serveur).
- Je veux juste afficher le nom du serveur (première collone)

Le doc où est les infos est présenté ainsi :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
DC4LIB1FR;Automatique;1
DC3LIB1FR;Automatique;1.1
SS1LIB1FR;ASANYs_VEGAPROD;1.1.1
SS1LIB1FR;VEGA_4.0.0_PROD_SERVICE;1.1.2
SS1LIB1FR;VEGA_4.0.0_PROD_VEGACOM;1.1.3
SS1LIB1FR;VEGA_4.0.0_PROD_TACHE;1.1.4
SS1LIB1FR;VEGA_4.0.0_PROD_MAIL_SERVEUR;1.1.5
SS1LIB1FR;VEGA_4.0.0_PROD_AGENT_WIN32;1.1.6
TS8LIB1FR;Automatique;1.1.6.1
AC3LIB1FR;Automatique;1.1.6.2
PS2LIB1FR;Automatique;1.1.6.3
- J'ai commencé à faire une chose dans ce genre :

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
#! /Perl/bin/perl -w
use warnings;
use strict;
 
# Ouverture du fichier cible.
open (F, 'C:/.../automatisation.txt');
 
# Création du fichier pour reception de l'information.
open (Fsor, '>C:/.../resultat.txt');
 
# Boucle .
while (<F>){
if ( /^Automatique\s+(\X+)\s+(\w+)\s+\((\w+)\)\s+(\w+)\b/ ) {
        print Fsor $1 . ' ';
    }
}
- Cependant pour cette partie c'est un peu flou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
# Boucle .
while (<F>){
if ( /^Automatique\s+(\X+)\s+(\w+)\s+\((\w+)\)\s+(\w+)\b/ ) {
        print Fsor $1 . ' ';
    }
}
... ça fais un moment que j'ais pas pratiqué le perl!!

...Le fichier .txt qui doit recevoir les infos est ... VIDE ...