Salut c'est encore moi!!
Désolé...
Cette fois si ma demande change:
Suite à mon prcécédent porblème (maintenant résolus),
je souhaite réorganiser mes infos récupérées en trian par la date de la plus récente à la plus ancienne sauvegarde.
Un exemple s'impose:
bckad1lib1fr A Totale 01 fév 20:54
bckad1lib1fr A Totale 08 fév 20:48
bckad1lib1fr A Totale 15 fév 20:46
bckad1lib1fr A Totale 22 fév 20:52
bckad1lib1fr A Incr 04 fév 20:06
bckad1lib1fr A Incr 05 fév 20:06
bckad1lib1fr A Incr 06 fév 20:05
bckad1lib1fr A Incr 07 fév 20:03
bckad1lib1fr A Incr 11 fév 20:04
bckad1lib1fr A Incr 12 fév 20:07
bckad1lib1fr A Incr 13 fév 20:02
bckad1lib1fr A Incr 14 fév 20:31
bckad1lib1fr A Incr 18 fév 20:04
bckad1lib1fr A Incr 19 fév 20:07
bckad1lib1fr A Incr 20 fév 20:02
bckad1lib1fr A Incr 21 fév 20:06
bckad1lib1fr A Incr 25 fév 20:07
bckad1lib1fr A Incr 26 fév 20:05
bckad1lib1fr A Incr 27 fév 20:06
bckad1lib1fr A Incr 28 fév 20:06
bckad1lib1fr.st A Totale 02 fév 12:11
bckad1lib1fr.st A Totale 04 fév 20:21
bckad1lib1fr.st A Totale 05 fév 20:59
bckad1lib1fr.st A Totale 06 fév 21:00
bckad1lib1fr.st A Totale 07 fév 20:50
bckad1lib1fr.st A Totale 09 fév 12:37
bckad1lib1fr.st A Totale 11 fév 20:23
bckad1lib1fr.st A Totale 12 fév 20:22
bckad1lib1fr.st A Totale 13 fév 20:38
bckad1lib1fr.st A Totale 14 fév 21:07
bckad1lib1fr.st A Totale 18 fév 20:46
bckad1lib1fr.st A Totale 19 fév 20:55
bckad1lib1fr.st A Totale 20 fév 20:42
Et ça continue comme sa longntemps...
Je vous fais voir mon code tant que l'on y est, des suggestion...
Mais je tiend à dire qu'il fonctionne le seul problème est le tri:
J'ais aissayé avec sort mais le problème est je pense le format de la date, mais je ne peut pas le changer ...
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
26
27
28
29 use warnings; use strict; # Variables. my $sauv = "Sauvegarde"; my $syn = "Syn"; my $fin = "Fin"; # Ouverture du fichier cible. open (F, ' ..../tina.log'); # Création du fichier pour reception de l'information. open (Fsor, '>..../Test.Tri.tina.txt'); # Boucle m//. while (<F>){ if ( /^Synthétique\s+(\X+)\s+(\w+)\s+\((\w+)\)\s+(\w+)\b/ ) { print Fsor $1 . ' ' . $2 . ' ' . $3 . ' '; } if ( /^Sauvegarde\s+(\X+)\s+(\w+)\s+\((\w+)\)\s+(\w+)\b/ ) { print Fsor $1 . ' ' . $2 . ' ' . $3 . ' '; } if ( /^Fin\s+:(.*)$/) { print Fsor $1 . "\n"; } }
S'il vous manque des infos ou des précisions n'hésitez pas!
je vous remercie d'avance!
Partager