#!/usr/bin/perl
use utf8;
-open(FILE, "<:encoding(UTF-8)", "Formations.txt") || die ("Erreur d'ouverture");
-open(OUT, ">:encoding(UTF-8)", "Formations_out.txt") || die ("Erreur d'ouverture");
+open(FILE, "<:encoding(UTF-8)", "../../spool/fusionax/Formations.txt") || die ("Erreur d'ouverture");
+open(OUT, ">:encoding(UTF-8)", "../../spool/fusionax/Formations_out.txt") || die ("Erreur d'ouverture");
while (<FILE>)
{
s/CESDR\t//;
s/CFAF\t//;
s/CHEA\t//;
- s/CHEAR\t//;
+ s/CHEAR\t/CHEAr/;
s/CHEE&DD Session 9\t//;
s/CESB\t//;
s/CESSID\t//;
s/\tès /\t/g;
s/\tof /\t/g;
s/( )+(\t)/\t/g;
-
+
# On remet dans l'ordre lorsque le diplôme se situe après l'université
s/Manag\.Vanderblit/Vanderbilt University\tManagement/;