parsing txt perl

Version imprimable

12/09/2013, 11h50
kholitta11

parsing txt perl

Bonjour !
J'ai pour but de récuperer les données d'un fichier texte pour pouvoir par la suite les inserer dans une base de données.
Voici un exemple du type de fichier que je souhaite parser:

Citation:

ADD IPADDR:DPUMID=278,GATEWAYTYPE=DSG,IPVER=IPV4,IPV4IP1="10.10.10.21",IPV4GW1="10.10.10.17",IPV4MASK1="255.255.255.248",ETH1=Card4/Lan0,IPV4IP2="10.10.10.29",IPV4GW2="10.10.10.25",IPV4MASK2="255.255.255.248",ETH2=Card4/Lan1,ARPDETECT=ARP,SDPUDETECT=OPEN,ARPINTERV=3,ARPDRPRATE=80,RFC=OPEN,RFCHOLD=1,LFC=OPEN,LFCHOLD=1;
ADD IPADDR:DPUMID=277,GATEWAYTYPE=DSG,IPVER=IPV4,IPV4IP1="10.10.10.20",IPV4GW1="10.10.10.17",IPV4MASK1="255.255.255.248",ETH1=Card4/Lan0,IPV4IP2="10.10.10.28",IPV4GW2="10.10.10.25",IPV4MASK2="255.255.255.248",ETH2=Card4/Lan1,ARPDETECT=ARP,SDPUDETECT=OPEN,ARPINTERV=3,ARPDRPRATE=80,RFC=OPEN,RFCHOLD=1,LFC=OPEN,LFCHOLD=1;

ADD ONF:OOFCN="27",RFORMTYPE=UNCHANGE,NFORMTYPE=NUM_UNLMT,OUTCHGTYPE=ADVANCED,RGLEXP="(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}",RPLEXP="sip:\\4\\3@sip.osk.com\;user=phone",PRIVACYFLAG=N,RESERVED1=0,RESERVED2=0,RESERVED3=0,RESERVED4=0;
ADD ONF:OOFCN="9",RFORMTYPE=UNCHANGE,NFORMTYPE=LOCAL_PRF,OUTCHGTYPE=ADVANCED,RGLEXP="(tel:)([0-9*a-eA-E]+)",RPLEXP="\\1\\2\;phone-context=+32",PRIVACYFLAG=N,RESERVED1=0,RESERVED2=0,RESERVED3=0,RESERVED4=0;

le format de chaque ligne est le suivant :

Action<Space>Object: parameter1 = value1,parameter2 = value2,parameter3 = value3;

les parametres sont séparés par des "," et chaue ligne de termine par ";"

on peut trouver des ";" ou ":" ou "," dans une valeur value,mais dans ce cas là , elle sera rangé dans des " ", comme dans la 3ieme ligne.

des fois on trouve des valeur avec les " " , et des fois non.

Le probleme c'est que je suis débutante en perl , et je ne sais pas écrire la chaine de recherche correspondante ..

Voila, si quelqu'un à une idée.

merci d'avance
12/09/2013, 14h26
messinese

Salut,

tu peux détailler stp car la on ne sais pas justement ce que tu veux garder ou ne pas garder :/ , cela dis ça parait vraiment pas compliqué.
12/09/2013, 19h39
Lolo78

Le texte à parser est complexe, je te conseille vraiment d'utiliser un module spécialisé dans le CSV, comme Text::CSV

Bonjour, tu devrais pouvoir adapter le script suivant à tes besoins :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
# parse.pl
use strict;
use warnings;
use utf8;
 
use Getopt::Long;
 
my $debug;
my $strip_quotes;
GetOptions("d" => \$debug, "s" => \$strip_quotes) 
    or die "usage : $0 [-d] [-s] <files>\n", "   -d: debug\n", "   -s: strip quotes\n";
 
my $action_re = qr/[A-Z]+/;
my $object_re = qr/[A-Z0-9]+/;
my $param_re  = qr/[A-Z0-9]+/;
my $value_re  = qr/[^;:,"]+|"[^"]*"/;
 
sub parse {
    my @objs;
    while (my $line = <>) {
	$line =~ s/[\r\n]*$//g; # safer chomp on Windows when reading ARGV
	my %o;
	if (my ($action) = ($line =~ m/\G($action_re)[ ]/gc)) {
	    warn "  action: $action" if $debug;
 
	    while (my ($object) = ($line =~ m/\G($object_re):/gc)) { 
		warn "  objet: $1" if $debug;
		$o{$object} = {};
 
		while ($line =~ m/\G($param_re)=($value_re)[,;]/gc) {
		    my ($param, $value) = ($1, $2);
		    $value = substr($value, 1, length($value)-2) if $strip_quotes and $value =~ m/^".*"$/;
		    warn "    $param: $value" if $debug;
		    $o{$object}{$param} = $value;
		}
	    }
	}
	my $rest = substr($line, pos($line));
	die q{caractères excédentaires à partir de la position }, pos $line, ": '$rest'"
	    if $rest;
	push @objs, \%o
    }
    return \@objs;
}
 
sub utilise {
    my ($aref) = @_;
    use YAML;
    print Dump($aref);
}
 
utilise(parse);

Code:

1
2
3
4
5
6
Taisha:~/tttmp/parsing_txt_perl $ perl parse.pl -h
Unknown option: h
usage : parse.pl [-d] [-s] <files>
   -d: debug
   -s: strip quotes
Taisha:~/tttmp/parsing_txt_perl $

L'option -d devrait te permettre de voir ce qui se passe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Taisha:~/tttmp/parsing_txt_perl $ perl parse.pl -d filein
  action: ADD at parse.pl line 23, <> line 1.
  objet: IPADDR at parse.pl line 26, <> line 1.
    DPUMID: 278 at parse.pl line 32, <> line 1.
    GATEWAYTYPE: DSG at parse.pl line 32, <> line 1.
    IPVER: IPV4 at parse.pl line 32, <> line 1.
    IPV4IP1: "10.10.10.21" at parse.pl line 32, <> line 1.
    IPV4GW1: "10.10.10.17" at parse.pl line 32, <> line 1.
    IPV4MASK1: "255.255.255.248" at parse.pl line 32, <> line 1.
    ETH1: Card4/Lan0 at parse.pl line 32, <> line 1.
    IPV4IP2: "10.10.10.29" at parse.pl line 32, <> line 1.
    ...

Au final, avec un simple Dump YAML, ça donne ça :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Taisha:~/tttmp/parsing_txt_perl $ perl parse.pl filein
---
- IPADDR:
    ARPDETECT: ARP
    ARPDRPRATE: 80
    ARPINTERV: 3
    DPUMID: 278
    ETH1: Card4/Lan0
    ETH2: Card4/Lan1
    GATEWAYTYPE: DSG
    IPV4GW1: '"10.10.10.17"'
    IPV4GW2: '"10.10.10.25"'
    IPV4IP1: '"10.10.10.21"'
    IPV4IP2: '"10.10.10.29"'
    IPV4MASK1: '"255.255.255.248"'
    IPV4MASK2: '"255.255.255.248"'
    IPVER: IPV4
    LFC: OPEN
    LFCHOLD: 1
    RFC: OPEN
    RFCHOLD: 1
    SDPUDETECT: OPEN
- IPADDR:
    ARPDETECT: ARP
    ARPDRPRATE: 80
    ARPINTERV: 3
    DPUMID: 277
    ETH1: Card4/Lan0
    ETH2: Card4/Lan1
    GATEWAYTYPE: DSG
    IPV4GW1: '"10.10.10.17"'
    IPV4GW2: '"10.10.10.25"'
    IPV4IP1: '"10.10.10.20"'
    IPV4IP2: '"10.10.10.28"'
    IPV4MASK1: '"255.255.255.248"'
    IPV4MASK2: '"255.255.255.248"'
    IPVER: IPV4
    LFC: OPEN
    LFCHOLD: 1
    RFC: OPEN
    RFCHOLD: 1
    SDPUDETECT: OPEN
- ONF:
    NFORMTYPE: NUM_UNLMT
    OOFCN: '"27"'
    OUTCHGTYPE: ADVANCED
    PRIVACYFLAG: N
    RESERVED1: 0
    RESERVED2: 0
    RESERVED3: 0
    RESERVED4: 0
    RFORMTYPE: UNCHANGE
    RGLEXP: '"(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}"'
    RPLEXP: '"sip:\\4\\3@sip.osk.com\;user=phone"'
- ONF:
    NFORMTYPE: LOCAL_PRF
    OOFCN: '"9"'
    OUTCHGTYPE: ADVANCED
    PRIVACYFLAG: N
    RESERVED1: 0
    RESERVED2: 0
    RESERVED3: 0
    RESERVED4: 0
    RFORMTYPE: UNCHANGE
    RGLEXP: '"(tel:)([0-9*a-eA-E]+)"'
    RPLEXP: '"\\1\\2\;phone-context=+32"'
Taisha:~/tttmp/parsing_txt_perl $

il ne reste plus qu'à transférer les données vers la BD...

En fait, avec Perl 5.18, on peut même le faire avec une regexp étendue :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
# parse2.pl
use 5.018; # pour l'utilisation de (?{...}) dans les regexp.
use strict;
use warnings;
use utf8;
 
use Getopt::Long;
 
my $debug;
my $strip_quotes;
GetOptions("d" => \$debug, "s" => \$strip_quotes) 
    or die "usage : $0 [-d] [-s] <files>\n", "   -d: debug\n", "   -s: strip quotes\n";
 
my $action_re = qr/[A-Z]+/;
my $object_re = qr/[A-Z0-9]+/;
my $param_re  = qr/[A-Z0-9]+/;
my $value_re  = qr/[^;:,\042]+|\042[^\042]*\042/; # \042 est le code de ", utilisé ici pour assister un peu les coloriseurs de code...
 
sub parse {
    my @objs; # liste des objets lus
    my ($object, $objname, $param, $value);
    while (my $line = <>) {
	$line =~ m{^($action_re)                  # l'action
                   (?{ warn "  action: $^N" if $debug }) # debug
                   [ ]                            # séparateur
                   ($object_re)                   # nom de l'objet
                   (?{
                       $objname = $^N;            # capture du nom dans $objname
                       warn "  objet: $objname" if $debug; # debug
                     })          
                   [:]                            # séparateur
                   (?{ $object = {} })            # création d'un objet vide
                   (                              # boucle sur les couples param/value
                       ($param_re)                    # paramètre
                       (?{ $param = $^N })            # capture du paramètre dans $param
                       [=]                            # séparateur
                       ($value_re)                    # valeur
                       (?{ $value = $^N })            # capture de la valeur dans $value
                       (?:
                            ,                         # un ',' (on le consomme)
                            |                         # ... ou bien ...
                            (?=;)                     # un ';' (on ne le consomme pas)
                       )
                       (?{
                           warn "    $param: $value" if $debug;  # debug
                           $object->{ $param} = $value # enregistrement de param/valeur dans l'objet courant
                         })
                   )*                             # fin de la boucle sur les couples param/value
                   [;]                            # on est bien à la fin de l'objet
                   [\r\n]*$                       # on est bien à la fin de la ligne
                   (?{ push @objs, {$objname => $object} }) # on peut donc enregistrer notre objet dans la liste.
                   }x
        or die "ligne non conforme";
	if ($strip_quotes) {
	    $_ =~ m/^".*"$/ and $_ = substr($_, 1, length($_)-2) for values %$object;
	}
    }
    return \@objs;
}
 
sub utilise {
    my ($aref) = @_;
    use YAML;
    print Dump($aref);
}
 
utilise(parse);

On obtient le même résultat qu'avec l'autre version :

Code:

1
2
3
4
5
Taisha:~/tttmp/parsing_txt_perl $ perl parse.pl filein > res
Taisha:~/tttmp/parsing_txt_perl $ perl parse2.pl filein | diff - res
Taisha:~/tttmp/parsing_txt_perl $ perl parse.pl -s filein > res-s
Taisha:~/tttmp/parsing_txt_perl $ perl parse2.pl -s filein | diff - res-s
Taisha:~/tttmp/parsing_txt_perl $

à savoir

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Taisha:~/tttmp/parsing_txt_perl $ perl parse2.pl filein
---
- IPADDR:
    ARPDETECT: ARP
    ARPDRPRATE: 80
    ARPINTERV: 3
    DPUMID: 278
    ETH1: Card4/Lan0
    ETH2: Card4/Lan1
    GATEWAYTYPE: DSG
    IPV4GW1: '"10.10.10.17"'
    IPV4GW2: '"10.10.10.25"'
    IPV4IP1: '"10.10.10.21"'
    IPV4IP2: '"10.10.10.29"'
    IPV4MASK1: '"255.255.255.248"'
    IPV4MASK2: '"255.255.255.248"'
    IPVER: IPV4
    LFC: OPEN
    LFCHOLD: 1
    RFC: OPEN
    RFCHOLD: 1
    SDPUDETECT: OPEN
- IPADDR:
    ARPDETECT: ARP
    ARPDRPRATE: 80
    ARPINTERV: 3
    DPUMID: 277
    ETH1: Card4/Lan0
    ETH2: Card4/Lan1
    GATEWAYTYPE: DSG
    IPV4GW1: '"10.10.10.17"'
    IPV4GW2: '"10.10.10.25"'
    IPV4IP1: '"10.10.10.20"'
    IPV4IP2: '"10.10.10.28"'
    IPV4MASK1: '"255.255.255.248"'
    IPV4MASK2: '"255.255.255.248"'
    IPVER: IPV4
    LFC: OPEN
    LFCHOLD: 1
    RFC: OPEN
    RFCHOLD: 1
    SDPUDETECT: OPEN
- ONF:
    NFORMTYPE: NUM_UNLMT
    OOFCN: '"27"'
    OUTCHGTYPE: ADVANCED
    PRIVACYFLAG: N
    RESERVED1: 0
    RESERVED2: 0
    RESERVED3: 0
    RESERVED4: 0
    RFORMTYPE: UNCHANGE
    RGLEXP: '"(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}"'
    RPLEXP: '"sip:\\4\\3@sip.osk.com\;user=phone"'
- ONF:
    NFORMTYPE: LOCAL_PRF
    OOFCN: '"9"'
    OUTCHGTYPE: ADVANCED
    PRIVACYFLAG: N
    RESERVED1: 0
    RESERVED2: 0
    RESERVED3: 0
    RESERVED4: 0
    RFORMTYPE: UNCHANGE
    RGLEXP: '"(tel:)([0-9*a-eA-E]+)"'
    RPLEXP: '"\\1\\2\;phone-context=+32"'
Taisha:~/tttmp/parsing_txt_perl $

Bonjour,
Une simple regex peut aussi le faire (au moins sur le fichier exemple):

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
$ perl -pe 's/,([[:alnum:]]*)=/\n\t\1: /g;s/:([[:alnum:]]*)=/\n\t\1: /;s/;$//' filein
ADD IPADDR
        DPUMID: 278
        GATEWAYTYPE: DSG
        IPVER: IPV4
        IPV4IP1: "10.10.10.21"
        IPV4GW1: "10.10.10.17"
        IPV4MASK1: "255.255.255.248"
        ETH1: Card4/Lan0
        IPV4IP2: "10.10.10.29"
        IPV4GW2: "10.10.10.25"
        IPV4MASK2: "255.255.255.248"
        ETH2: Card4/Lan1
        ARPDETECT: ARP
        SDPUDETECT: OPEN
        ARPINTERV: 3
        ARPDRPRATE: 80
        RFC: OPEN
        RFCHOLD: 1
        LFC: OPEN
        LFCHOLD: 1
ADD IPADDR
        DPUMID: 277
        GATEWAYTYPE: DSG
        IPVER: IPV4
        IPV4IP1: "10.10.10.20"
        IPV4GW1: "10.10.10.17"
        IPV4MASK1: "255.255.255.248"
        ETH1: Card4/Lan0
        IPV4IP2: "10.10.10.28"
        IPV4GW2: "10.10.10.25"
        IPV4MASK2: "255.255.255.248"
        ETH2: Card4/Lan1
        ARPDETECT: ARP
        SDPUDETECT: OPEN
        ARPINTERV: 3
        ARPDRPRATE: 80
        RFC: OPEN
        RFCHOLD: 1
        LFC: OPEN
        LFCHOLD: 1
 
 
ADD ONF
        OOFCN: "27"
        RFORMTYPE: UNCHANGE
        NFORMTYPE: NUM_UNLMT
        OUTCHGTYPE: ADVANCED
        RGLEXP: "(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}"
        RPLEXP: "sip:\\4\\3@sip.osk.com\;user=phone"
        PRIVACYFLAG: N
        RESERVED1: 0
        RESERVED2: 0
        RESERVED3: 0
        RESERVED4: 0
ADD ONF
        OOFCN: "9"
        RFORMTYPE: UNCHANGE
        NFORMTYPE: LOCAL_PRF
        OUTCHGTYPE: ADVANCED
        RGLEXP: "(tel:,)([0-9,*a-eA-E]+)"
        RPLEXP: "\\1\\2\;phone-context=+32"
        PRIVACYFLAG: N
        RESERVED1: 0
        RESERVED2: 0
        RESERVED3: 0
        RESERVED4: 0

Citation:

Envoyé par disedorgue

Bonjour,
Une simple regex peut aussi le faire (au moins sur le fichier exemple):

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
$ perl -pe 's/,([[:alnum:]]*)=/\n\t\1: /g;s/:([[:alnum:]]*)=/\n\t\1: /;s/;$//' filein
ADD IPADDR
        DPUMID: 278
        GATEWAYTYPE: DSG
        IPVER: IPV4
        IPV4IP1: "10.10.10.21"
        IPV4GW1: "10.10.10.17"
        IPV4MASK1: "255.255.255.248"
        ETH1: Card4/Lan0
        IPV4IP2: "10.10.10.29"
        IPV4GW2: "10.10.10.25"
        IPV4MASK2: "255.255.255.248"
        ETH2: Card4/Lan1
        ARPDETECT: ARP
        SDPUDETECT: OPEN
        ARPINTERV: 3
        ARPDRPRATE: 80
        RFC: OPEN
        RFCHOLD: 1
        LFC: OPEN
        LFCHOLD: 1
ADD IPADDR
        DPUMID: 277
        GATEWAYTYPE: DSG
        IPVER: IPV4
        IPV4IP1: "10.10.10.20"
        IPV4GW1: "10.10.10.17"
        IPV4MASK1: "255.255.255.248"
        ETH1: Card4/Lan0
        IPV4IP2: "10.10.10.28"
        IPV4GW2: "10.10.10.25"
        IPV4MASK2: "255.255.255.248"
        ETH2: Card4/Lan1
        ARPDETECT: ARP
        SDPUDETECT: OPEN
        ARPINTERV: 3
        ARPDRPRATE: 80
        RFC: OPEN
        RFCHOLD: 1
        LFC: OPEN
        LFCHOLD: 1
 
 
ADD ONF
        OOFCN: "27"
        RFORMTYPE: UNCHANGE
        NFORMTYPE: NUM_UNLMT
        OUTCHGTYPE: ADVANCED
        RGLEXP: "(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}"
        RPLEXP: "sip:\\4\\3@sip.osk.com\;user=phone"
        PRIVACYFLAG: N
        RESERVED1: 0
        RESERVED2: 0
        RESERVED3: 0
        RESERVED4: 0
ADD ONF
        OOFCN: "9"
        RFORMTYPE: UNCHANGE
        NFORMTYPE: LOCAL_PRF
        OUTCHGTYPE: ADVANCED
        RGLEXP: "(tel:,)([0-9,*a-eA-E]+)"
        RPLEXP: "\\1\\2\;phone-context=+32"
        PRIVACYFLAG: N
        RESERVED1: 0
        RESERVED2: 0
        RESERVED3: 0
        RESERVED4: 0

Heuu, ça n'a pas grand chose à voir... Le code ci-dessus se contente de reformater mais ne capture rien, ce qui n'est pas forcément le plus utile pour alimenter une BD... Les dumps YAML n'étaient présentés que pour valider qu'on avait bien construit les objets, dans la vraie vie on aurait quelque chose du type

Code:

1
2
3
4
5
6
sub utilise {
    my ($aref) = @_;
    use YAML;
    print Dump($aref);
    ...alimenter la BD à partie des objets dans @aref...
}

Ceci dit, avec un minimum de modifications on pourrait peut être piper le résultat de ton programme dans une boucle YAML::Load, recupérer ainsi les objets et s'en servir pour alimenter la BD... Je n'y avais pas pensé mais ça peut être envisageable.

01/10/2013, 20h03
disedorgue

Ok, je crois que l'on a pas compris la même chose, je n'ai fait que donner un pattern de recherche (ce qui est demandé à la base).
Après, c'est sur, il faut adapter.

Toutes mes confuses :oops:
01/10/2013, 21h27
cmcmc
Citation:

Envoyé par disedorgue

Ok, je crois que l'on a pas compris la même chose, je n'ai fait que donner un pattern de recherche (ce qui est demandé à la base).

On n'a effectivement pas lu la même chose : je retiens alimenter la BD alors que tu te concentres sur écrire la chaine de recherche correspondante.

La chaîne elle même n'est pas bien difficile : étant donnés
Code:

1 2 3 4 my $action_re = qr/[A-Z]+/; my $object_re = qr/[A-Z0-9]+/; my $param_re = qr/[A-Z0-9]+/; my $value_re = qr/[^;:,"]+|"[^"]*"/;
on peut écrire facilement un validateur de ligne :

Code:

my $line_re = qr/$action $object:(?:$param_re=$value_re[,;])+$/

mais on ne peut pas en faire grand chose à part valider le fichier d'entrée, par exemple

Code:

m/$line_re/ or die 'bad line' while <>;

A ce stade on est dans une impasse car l'objet à construire est hiérarchique et il n'est pas possible de construire directement un tel objet en utilisant uniquement les groupes capturants car certains constituants sont de cardinalité variable. Par exemple, si on tentait
Code:

1 2 my $capturing_line_re = qr/$action ($object):(?:($param_re=$value_re)[,;])+$/ my ($obj, @parval) = ($line =~ m/$capturing_line_re/);
en espérant avoir la liste complète des couples param=valeur dans @parval, on déchanterait vite : @parval ne contient que le dernier couple lu...

C'est ce besoin de capture qui rend le parsing singulièrement plus difficile que le simple matching, et c'est notamment pourquoi

Citation:

Envoyé par disedorgue

Après, c'est sur, il faut adapter.

ne me semble pas une démarche valide :nono:: si le parsing est complexe, il faut l'avoir identifié dès le départ pour ne pas risquer le cul de sac. Comme la question est posée à l'origine par une débutante, il est important de ne pas risquer de lui donner de fausses idées. En l'occurrence, elle doit comprendre qu'elle ne s'en sortira pas avec une simple expression régulière.

Citation:

Envoyé par disedorgue

Toutes mes confuses :oops:

va, et ne pêche plus ;)

Ceci dit, je maintiens ce que j'ai écrit précédemment : il n'est pas forcément idiot d'utiliser une approche comme la tienne pour produire à partir d'un fichier texte une forme compatible avec JSON, YAML ou une autre sérialiseur. Ca pourrait même avoir quelques avantages. Je garde cette idée dans un coin le temps qu'elle mûrisse :ccool:

Il est vrai que j'aurai pu faire quelque chose du genre :aie::

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -n
use strict;
my ($act,%y,@c,$i);
/^ *$/ && next;
s/:/,/;
s/;$//;
($act,%y) = split(/,([[:alnum:]]*)=/);
chomp %y;
@c=keys(%y);
print "\n$act\n";
foreach $i (sort @c){
        print "$i => $y{$i}\n";
}