Discussion :

[kimous]

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 ...

[Jasmine80]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my @liste;
 
while (<F>){
if ( /^(\w+);Automatique/ ) {
        push (@liste, $1);
    }
}
 
foreach (sort @liste){
    print Fsor $_ . ' ';
}

^ est l'ancre qui me dit de récupérer à partir du début de la ligne (accessoire dans ce cas-ci)
\w signifie un lettre, un chiffre ou l'underscore
+ au minimum un caractère
les parenthèses encadrent ce que tu récupères
donc ^(\w+);Automatique récupère ce qui se trouve avant le premier point-virgule de ta ligne si celui-ci est suivit du mot 'Automatique'.

Pour le tri tu utilises la fonction sort sur le tableau dans lequel tu as récupéré tes noms de serveurs.

[kimous]

Merci beaucoup pour cette réponse, c'est Exactement ce que je recherchais!!!
Encore merci et à bientôt!!!