#!/usr/bin/perl
  use strict;
  
  # récupère les prononciations dans les balises Event
  # Exemples :
  #<Event desc="2 millions 5" type="pronounce" extent="begin"/>
  #2,5 millions
  #<Event desc="2 millions 5" type="pronounce" extent="end"/>
  #
  # ça fait 2 dimanches qu'on est levés à 7h
  #<Event desc="7 heures" type="pronounce" extent="previous"/>
  #
  #<Event desc="JDD point FR" type="pronounce" extent="next"/>
  #jdd.fr, ça c'est important,
  
  
  my @lines=();
  
  while(<>) {
  	chomp;
  	push(@lines,$_);
  }
  
  for(my $i = 0;$i < scalar(@lines);$i++) {
  	# le plus simple : previous et next
  	if($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"next\"\/\>/) {
  		my @tabLineTmp = split(' ',$lines[$i+1]);
  		($tabLineTmp[0]) = ($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"next\"\/\>/);
  		$lines[$i+1] = join(" ",@tabLineTmp);
  	}
  	
  	elsif($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"previous\"\/\>/) {
  		my @tabLineTmp = split(' ',$lines[$i-1]);
  		if (scalar(@tabLineTmp) > 0) {
  			($tabLineTmp[scalar(@tabLineTmp)-1]) = ($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"previous\"\/\>/);
  			$lines[$i-1] = join(" ",@tabLineTmp);
  		}
  	}
  	
  	# Plus compliqué le cas du begin / end : on suppose qu'ils sont pas assez "vicieux" pour mettre plusieurs lignes...
  	# donc en fait, on va faire comme si c'était un next mais sur toute la phrase suivante
  	elsif($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"begin\"\/\>/) {
  		($lines[$i+1]) =  ($lines[$i] =~ /\<Event desc=\"(.*)\" type=\"pronounce\" extent=\"begin\"\/\>/);
  	}
  }
  
  # on réaffiche le tout modifié
  foreach(@lines) {
  	print "$_
  ";
  }