Guessing...
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11142528 use warnings; my @AoH = do { local $/ = "objet => fin\n"; map { s/^objet => .*\n//gm; +{ split /"?\n(?:\.{3}\n)?| => "?/} } <D +ATA>; }; use Data::Dump 'dd'; dd \@AoH; __DATA__ objet => debut index => 1 a => "premiere valeur" b => 'better example required" z => "dernier mot" objet => fin objet => debut index => 77 a => "autre valeur" y => 'better example required" z => "aurai-je le dernier mot ?" objet => fin
Outputs:
[ { a => "premiere valeur", b => "'better example required", index => 1, z => "dernier mot", }, { a => "autre valeur", index => 77, y => "'better example required", z => "aurai-je le dernier mot ?", }, ]
In reply to Re: parse a file TXT similar to XML
by tybalt89
in thread RESOLVED - parse a file TXT similar to XML
by x-lours
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |