#/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);