#/usr/bin/perl
#---------------------------------------------
use strict;
use warnings;
#---------------------------------------------
#Usage
my $Usage="Usage : script_align.pl [fichier1.txt] [fichier2.txt]\n";
if (@ARGV!=2) { die $Usage;}
#---------------------------------------------

if (!open (FILE1,"<$ARGV[0]")) { die "Pb a l'ouverture du fichier $ARGV[0]"};
if (!open (FILE2,"<$ARGV[1]")) { die "Pb a l'ouverture du fichier $ARGV[1]"};
my $sortie="Alignement.xml";
if (!open (OUT,">$sortie")) { die "Pb a l'ouverture du fichier $sortie"};

my $j=1;
my $ligne1=<FILE1>;
my $ligne2=<FILE2>;
print OUT "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n"; #écriture de l'entête dans le fichier de sortir étiquetage
print OUT "<alignement type=\"français-kabyle\">\n";
chomp($ligne1);
if ($ligne1=~/#(.+)-(.+)/)
{
	print OUT "<chanson num=\"$j\" auteur=\"$1\" titre=\"$2\">\n"; 
	$j++;
}
while ($ligne1=<FILE1>) 
{
	next if ($ligne1=~/^$/);
	chomp($ligne1);
	$ligne2=<FILE2>;
	chomp($ligne2);
	if ($ligne1=~/#(.+)-(.+)/)
	{
		print OUT "<\/chanson>\n";
		print OUT "<chanson num=\"$j\" auteur=\"$1\" titre=\"$2\">\n"; 
		$j++;
	}
	else
	{
		print OUT "<element langue=\"fr\">$ligne1<\/element><element langue=\"kb\">$ligne2<\/element>\n"; 
	}
 }
print OUT "<\/chanson>\n";
print OUT "</alignement>";
print "Ok\n";
close($ARGV[0]);
close($ARGV[1]);
close(OUT);