Discussion :

[Dra_Gun]

Bonjour,

Je récupère en expect sur un équipement réseau sa configuration.

Voici un extrait du retour d'expect:

^@^@^M^@ // WIRELESS PROPERTIES CONFIGURATION //
^@^@^M^@
^@^@^M^@INTERFACE 1
^@^@^M^@
^@^@^M^@ Current Channel Bandwidth : 20 MHz
^@^@^M^@ Supported Channel Bandwidth : 5,10,20,40
^@^@^M^@ Auto Channel Selection : disable
^@^@^M^@ Current Configured Channel : 100

Histoire que ce soit propre et lisible, j'aimerais supprimer le début des lignes.

autant le ^M, pas de souci, autant le ^@ n'est pas reconnu. ni avec le caractère ^, ni @, ni "en couple" ^@. Je suis donc parti sur sur une suppression de tout ce qu'il y a avant le premier espace.

j'ai un début de regexp qui me convient presque:

Code :

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

$line =~ s/^.+?\s+//g;

ce qui me donne (le "!" est rajouté après):

!// WIRELESS PROPERTIES CONFIGURATION //
!1
!Current Channel Bandwidth : 20 MHz
!Supported Channel Bandwidth : 5,10,20,40
!Auto Channel Selection : disable
!Current Configured Channel : 100

Le souci est que le mot INTERFACE a disparu. (quelques lignes comme ca n'ont pas d'espaces..)

j'ai donc voulu remplacer le . par "tout ce qui n'est pas une lettre" et plus génériquement, un alphanumérique.

Code :

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

$line =~ s/^\W+?\s+//g;

Le retour est pire, je n'ai tout simplement plus la ligne!!

!// WIRELESS PROPERTIES CONFIGURATION //
!Current Channel Bandwidth : 20 MHz
!Supported Channel Bandwidth : 5,10,20,40
!Auto Channel Selection : disable
!Current Configured Channel : 100

Avez-vous une idée pour améliorer cette regexp?



PS: j'ai le code suivant juste après ma ligne

Code :

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

1
2
3
4
5
6
# Ne conserver que les lignes non vides et commencant par certains
# caracteres (le reste ne contenant normalement pas d'information
# exploitable)
next if ($line =~ /(^[^a-z,0-9,\-,\/]|^space|^\s*$)/i);
 
push (@ret, "!$line");

Merci d'avance,

[disedorgue]

Bonjour,
Essaie cette regex:

Code :

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

s/[^[:print:]]//g

ou (equivalent):

Code :

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

s/[[:cntrl:]]//g

[Dra_Gun]

Bonjour,

ca fonctionne nickel

Code :

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

1
2
3
4
5
6
7
    $line =~ s/[^[:print:]]//g;
    $line =~ s/^\s+//g;
 
    # Ne conserver que les lignes non vides et commencant par certains
    # caracteres (le reste ne contenant normalement pas d'information
    # exploitable)
    next if ($line =~ /(^[^a-z,0-9,\-,\/]|^space|^\s*$)/i);

J'ai toujours une ligne pour supprimer les espaces, mais c'est pas bien grave

à quoi correspond par contre ce [:print:] ? je suis curieux de savoir

Merci encore

[disedorgue]

C'est une classe de caractères en norme posix.
Pour plus d'information, un man 7 regex qui explique le principe.
et man 3 ctype pour connaitre la correspondance.