Yopla all,

Je suis actuellement sur un script de parsing de règles de FW et je me retrouve confronté à un petit problème (ça commence à faire un bout de temps que j'ai pas programmé en Perl !).

J'ai les lignes suivantes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
set policy id 1 name "GROUPE_SRC" "GROUPE_DEST" "SERVICES" permit log
 
set policy id 1
 
set src-address "GROUPE1_SRC"
 
set dst-address "GROUPE1_DEST"
 
exit
Mon but, arriver à construire ce type de sortie :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
set policy id 1 name  "GROUPE_SRC" "GROUPE_DEST" "SERVICES" permit log
 
set policy id 1 name  "GROUPE1_SRC" "GROUPE_DEST" "SERVICES" permit log
 
set policy id 1 name  "GROUPE_SRC" "GROUPE1_DEST" "SERVICES" permit log
 
set policy id 1 name "GROUPE1_SRC" "GROUPE1_DEST" "SERVICES" permit log
En gros, je reprends les lignes src-address et dst-address pour créer les nouvelles lignes de règles.

J'ai pas trop d'idée au niveau algo pour avoir cette sortie.

Si vous avez une idée, je suis preneur.

Bon week-end prolongé pour ceux qui ont leur vendredi

Thx all !

Edit : petite précision, il y a plusieurs ensembles de lignes allant de set policy id X ... jusqu'au exit et il n'y a pas forcément les lignes set src-address et set dest-address.