#!/usr/bin/perl

<<DOC; 
Axel COURT & Marjorie SEIZOU
MARS 2010
 usage : perl NPtoNC.pl cordial.cnr
DOC

# Test des paramètres
if($#ARGV!=0){
	print "usage : perl $0 cordial.cnr\n";
	exit;
}

#----------------------------------
# Ouverture des fichiers en lecture
#----------------------------------
open (FICTAG, $ARGV[0]) or die ("Probleme sur ouverture du fichier de tags : $!\n");
open (OUT, ">Cordial_NP.cnr") or die ("Probleme sur ouverture du fichier de sortie : $!\n");

while (my $ligne = <FICTAG>) {
	if ($ligne =~ /\bNP.*/) {
		$ligne =~ s/NP/NC/g;
	}
	print OUT $ligne;
}

close(FICTAG);
close(OUT);