Discussion :

[calimero642]

Bonjour a tous qq un pourrais me dire comment je peut extraire tout ce qui est contenu en gras dans le fichier ci dessous ?
j'ai une expression reguliere mais elle ne matche pas !

Code :

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

1
2
 
 if( ($Ligne_Fichier) =~/(\[\S.*?)\[\S/)

[groupe] blabllaalmanlal
blbablihophjfzoejo aefjoopazejfopzej
fzezehjfilzeh l ihzleih lihlih
[groupe1] blelabelablablbl [/code][/b]

[Jedai]

Ok... En fait tu essaies de travailler ligne par ligne tout en matchant sur plusieurs lignes... C'est pas possible.
Donc soit tu travailles sur le fichier entier, et là cette regex pourra effectivement matcher, soit tu fais un tout petit automate pour faire l'équivalent en travaillant ligne par ligne.
Je te recommanderais plutôt la seconde solution, même si elle est un peu plus compliquée, parce qu'elle est plus robuste.

--
Jedaï

[calimero642]

Mais alors serait il possible de convertir le fichier que j ai en une seule ligne en supprimant juste les saut de ligne ?
Jules

[calimero642]

Merci JEDAI pour ton aide mais la je seche a nouveau sur un probleme !!!
Tu m'a dit que l'on ne pouvait pas matcher sur plusieurs lignes alors je me suis dit pas de soucy je vais transformer mon fichier contenant pleins de lignes en une seule ligne avec une expression reguliere qui remplace les saut de ligen par rien. Mais le probleme vient apres car je n arrive pas verifier l'expression reguliere qui suit et la je ne comprend pas pourquoi !!

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
30
31
32
33
34
35
#!/usr/bin/perl
                                          #Utilisation du module POSIX pour recuperer l'heure
                                          #car ce module gère les variables d'environnement
use POSIX qw(strftime);                   #strftime est un sous programme du module POSIX qui retourne des listes
use strict;
my $Ligne_Fichier;
my $cpt=0;
my $Addr_Ip;
my $cpt2=0;
#Variables globales utilisées par le programme
# Vérification et ouverture du fichier base_Lan.txt pour la lecture
open(Fichier_Lan,"< base_Lan_perso") || die ("Vérifiez la présence du fichier base_Lan.txt ou son chemin à la ligne :\n $! ");
        while ($Ligne_Fichier = <Fichier_Lan> )
        {
                next if ($Ligne_Fichier =~ m/^$/);
                {
                    if ($Ligne_Fichier=~s/\n//g)
                        {
                        $cpt++;
###############################################
                               [b] if( ($Ligne_Fichier) =~/(\[.*?)\[/)[/b] 
                                {$cpt2++;
#############################################"
                                        if ( ($Addr_Ip)= (($Ligne_Fichier) =~/\S+\t+(\d+\.\d+\.\d+\.\d+)/sgx))
                                        # expression reguliere qui permet de trouver l'@IP de chaque witch
                                        {
                                                print (" Adresse IP: [$Addr_Ip]");
                                        }
                                }
                        }
                }
        }
print("Nombre de lignes $cpt \n");
print("Nombre de groupes $cpt2 \n");
close Fichier_Lan;

J'ai tendance a penser que l'expression reguliere qui n est pas verifiee (celle qui est en GRAS) ne scrute pas la ligne qui correspond au fichier !!!
Je capte plus snif snif. Est ce l'expression qui est mauvaise ou la variable qu'elle consulte ???

Merci d'un coup de pouce Jules

[calimero642]

Bon apres avoir avance un peu, je suis sur que ca couine au niveau de la recuperation de la ligne unique apèrs avoir transcrit toutes les lignes d'un fichier en une seule :!!!!

Code :

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

1
2
3
4
  if (($essai)=(($Ligne_Fichier)=~s/\n//g))
                        {
                        $cpt++;
                        print("$essai");

Comment etre sur que je recupere la ligne unique ? Le probleme c'est que je ne peux pas mettre de parenthese dans cette regex sinon je recupererait que du vide !!!
Merci d'avance Jules