#/usr/bin/perl -w
<<DOC; 
Votre Nom : Pantikina
Avril 2006
 usage : perl SORTIE_etiquetage.pl tag.tt
 Le programme prend en entrée un fichier de contenu de balise extrait et étiqueté par Tree-tagger. Chaque contenu est séparé par une ligne indiquant le nom du fichier source.
 Le programme construit en sortie un fichier ne contenant que les données étiquetées.
DOC
#-----------------------------------------------------------
open(INPUT, "<$ARGV[0]") or die "Impossible d'ouvrir $ARGV[0]: $!\n"
. "usage: perl programme.pl INPUT \n";

my $out = "tagTT.txt";
open (FILEOUT,">$out");
	while (<INPUT>) {
	    if ($_ !~ /^<! arbo-fils/) {
		print FILEOUT "$_";
}
}
close FILEOUT;
close INPUT;
