Crée un décompactage

[karamurat]

Bonjour

Quel serait la commande la plus simple possible mais qui reste aussi la plus fiable de décompacter cette liste :

Code :

1
2
3
4
5
6
 
lawsoncompanyF: 4010-4020
lawsoncompanyF: XR: 3010-3012
lawsoncompanyF: 4050-4052
lawsoncompanyF: 4069
lawsoncompanyF: AP: 4060

pour l' obtention de cette liste :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
lawsoncompanyF: 4010
lawsoncompanyF: 4011
lawsoncompanyF: 4012
lawsoncompanyF: 4013
lawsoncompanyF: 4014
lawsoncompanyF: 4015
lawsoncompanyF: 4016
lawsoncompanyF: 4017
lawsoncompanyF: 4018
lawsoncompanyF: 4019
lawsoncompanyF: 4020
lawsoncompanyF: XR: 3010
lawsoncompanyF: XR: 3011
lawsoncompanyF: XR: 3012
lawsoncompanyF: 4050
lawsoncompanyF: 4051
lawsoncompanyF: 4052
lawsoncompanyF: 4069
lawsoncompanyF: AP: 4060

Merci D'avance {~_^}

[karamurat]

voila j'ai sous la main deux commande une avec "awk" et l'autre avec "perl"
celle de awk :

Code :

awk -F'[:-]' '{for(x=$2 ; x <=$3 ; x++) printf("%s: %d\n", $1, x)}' < decompactage

et l'autre avec perl :

Code :

perl -ne '/(.*?:)\s*(\d+)-(\d+)/;for $e($2 .. $3){ print "$1 $e\n" }' decompactage

ce qui me donne pour sortie :

perl :

Code :

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
dev4: ./script_decompactage_3.sh
lawsoncompanyF: 4010
lawsoncompanyF: 4011
lawsoncompanyF: 4012
lawsoncompanyF: 4013
lawsoncompanyF: 4014
lawsoncompanyF: 4015
lawsoncompanyF: 4016
lawsoncompanyF: 4017
lawsoncompanyF: 4018
lawsoncompanyF: 4019
lawsoncompanyF: 4020
lawsoncompanyF: XR: 3010
lawsoncompanyF: XR: 3011
lawsoncompanyF: XR: 3012
lawsoncompanyF: XR: 3013
lawsoncompanyF: XR: 3014
lawsoncompanyF: XR: 3015
lawsoncompanyF: XR: 3016
lawsoncompanyF: XR: 3017
lawsoncompanyF: XR: 3018
lawsoncompanyF: XR: 3019
lawsoncompanyF: XR: 3020
lawsoncompanyF: 4050
lawsoncompanyF: 4051
lawsoncompanyF: 4052
5 0
dev4:

tout d'abord un probleme le " 5 0 " a la fin de la liste (en rouge ),
ainsi qu'il manque les deux compagnie :
lawsoncompanyF: 4069
lawsoncompanyF: AP: 4060

et awk :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
dev4: ./script_decompactage_2.sh
lawsoncompanyF: 4010
lawsoncompanyF: 4011
lawsoncompanyF: 4012
lawsoncompanyF: 4013
lawsoncompanyF: 4014
lawsoncompanyF: 4015
lawsoncompanyF: 4016
lawsoncompanyF: 4017
lawsoncompanyF: 4018
lawsoncompanyF: 4019
lawsoncompanyF: 4020
lawsoncompanyF: 4050
lawsoncompanyF: 4051
lawsoncompanyF: 4052
dev4:

pour awk il manque
lawsoncompanyF: 4069
lawsoncompanyF: AP: 4060

ainsi que le decompactege de
lawsoncompanyF: XR: 3010-3012

je touche donc presque la solution , j'aurais donc besoin d'aides pour combler les erreurs , ou ajouter une option etc ...
pour pouvoir avoir au final cette liste :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
lawsoncompanyF: 4010
lawsoncompanyF: 4011
lawsoncompanyF: 4012
lawsoncompanyF: 4013
lawsoncompanyF: 4014
lawsoncompanyF: 4015
lawsoncompanyF: 4016
lawsoncompanyF: 4017
lawsoncompanyF: 4018
lawsoncompanyF: 4019
lawsoncompanyF: 4020
lawsoncompanyF: XR: 3010
lawsoncompanyF: XR: 3011
lawsoncompanyF: XR: 3012
lawsoncompanyF: 4050
lawsoncompanyF: 4051
lawsoncompanyF: 4052
lawsoncompanyF: 4069
lawsoncompanyF: AP: 4060

Merci d'avance

[jlliagre]

Essaye ça:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
awk '
{
 n=split($NF,a,"-")
 if(n==1) print $0
 else {
   sub("." $NF,"")
   for(i=a[1];i<=a[2];i++) {
    print $0 " " i
   }
 }
}
'

Sous Solaris, remplacer awk par nawk.

[karamurat]

Merci ! vraiment je suis trop content , pourrait tu m'expliquer un peu? car je n'ai pas trop compris ton script a part qu'il fonctionne , je suis suis super content !

Merci encore

[jlliagre]

Le même avec des commentaires.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
awk '
{
# NF est le nombre de champs
# $NF est la valeur du dernier champs
# split découpe ce dernier champs en morceaux en prenant "-" comme séparateur
# split retourne le nombre de morceaux trouvés
# split construit un tableau nommé "a"
 n=split($NF,a,"-")
# s'il n'y a qu'un morceau, on affiche la ligne originale ($0) , pas de traitement donc
 if(n==1) print $0
# sinon, il y a une plage a traiter: 
 else {
# on supprime le dernier champs et le caractère qui le précède dans $0
   sub("." $NF,"")
# pour chaque valeur 
   for(i=a[1];i<=a[2];i++) {
# on affiche $0 tronqué suivi du numero voulu
    print $0 " " i
   }
 }
}
'