parser un fichier TXT ressemblant au XML

Bonjour,
je cherche à parser un fichier texte qui a la format ci-dessous.
un collègue me vante Ruby avec lequel il a réussi à le faire en " oneline" .

Code:

---

File.readlines("/home/compte/objet_zone.don").reject{|l|}.map{|l|lf=l.strip;(lf.size> 0 && lf[0..1]!="--") ? lf : nil}.compact.inject([]){|ary,l|ary.last << l if (l=~/^[^=]+=>\s*debut/ && ary<<[])..(l=~/^[^=]+=>\s*fin/);ary}.map{|ary|ary[1..-2].map{|e|e.split('=>').map{|f|f.strip.gsub('"','')}}.to_h}

---

le but est de transformer en hash tous les objets (tableau de hash dans sa façon de faire ) afin de les utiliser dans le reste du script.

il m'apprend que l'intervalle qu'il utilise est issu de Perl mais je n'arrive pas à en faire la traduction...

Code:

---

if (l=~/^[^=]+=>\s*debut/ && ary<<[])..(l=~/^[^=]+=>\s*fin/)

---

pourriez-vous m'aider à lui démontrer que Perl est tout aussi efficace que son Ruby ? (même si ce n'est pas en "oneline")
Merci d'avance

exemple de fichier TXT
objet => debut
index => 1
a => "premiere valeur"
...
z => "dernier mot"
objet => fin
...
objet => debut
index => 77
a => "autre valeur"
...
z => "aurai-je le dernier mot ?"
objet => fin

pour mémo, si besoin futur

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

use strict; use warnings; use Data::Dumper; my @AoH ; my $current_hash = {}; while (<DATA>){ chomp $_; if ( $_ =~ /objet => debut$/ .. /objet => fin$/){ if ( /objet => debut$/ ){ next; } elsif ( /objet => fin$/ ){ push @AoH, $current_hash; $current_hash = {}; } else{ my ($key,$value) = split /\s+=>\s+/,$_; $current_hash->{ $key } = $value; } } else{ print "unxpected content outside tags in line: [$_]\n"; } } print Dumper \@AoH; __DATA__ objet => debut index => 1 a => "premiere valeur" z => "dernier mot" objet => fin ALIEN LINE AFTER fin objet => debut index => 77 a => "autre valeur" z => "aurai-je le dernier mot ?" objet => fin

---

outputs:

unxpected content outside tags in line: [ALIEN LINE AFTER fin]
$VAR1 = [
          {
            'a' => '"premiere valeur"',
            'index' => '1',
            'z' => '"dernier mot"'
          },
          {
            'z' => '"aurai-je le dernier mot ?"',
            'a' => '"autre valeur"',
            'index' => '77'
          }
        ];