Discussion :

[kholitta11]

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:

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

[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é.

[Lolo78]

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

[cmcmc]

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

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
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 :

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

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 :

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

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 :

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
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...

[cmcmc]

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

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
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 :

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

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 :

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
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 $

[disedorgue]

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

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
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

[cmcmc]

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

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
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 :

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

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.

[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

[cmcmc]

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 :

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

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 :

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

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 :

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

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 :

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

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

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

ne me semble pas une démarche valide : 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.

Toutes mes confuses

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

[disedorgue]

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

Code :

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

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";
}