#!/usr/bin/perl 
  
  if($#ARGV != 1){
  	print("usage : cat <fichierLIUM.seg> | ./myConvert <fichier.ctm> <fichier.txt>");
  	exit(1);
  }
  
  open(TXT, ">$ARGV[1]");
  while(<STDIN>){
  	$ligne = $_;
  	if($ligne !~ m/;;.*/){
  		chomp($ligne);
  		@tempo = split(/ /, $ligne);
  		$debut = $tempo[2]/100;
  		$duree = $tempo[3]/100;	
  		$fin = $debut + $duree;
  		$debutMilli = $debut * 100;
  		$finMilli = $fin * 100;
  		print TXT "#$debutMilli-$finMilli# ";
  		open(CTM, "<$ARGV[0]");
  		while($ligne2 = <CTM>){
  			chomp($ligne2);
  			@tempo2 = split(/ /, $ligne2);
  			$temps = $tempo2[2];
  			if($temps >= $debut && $temps < $fin ){
  				if($tempo2[4] !~ m/<\/?[a-zA-Z:]+>/){ print TXT "$tempo2[4] ";}
  			}	
  		}	
  		print TXT "
  ";	
  		close(CTM);
  	}
  }
  close(TXT);