#!/usr/bin/perl
print "nom du répertoire contenant les fichiers à traiter \n";
chomp ($rep = <STDIN>);

system ("mkdir -p ./resultats_graphml");
system ("mkdir -p ./resultats_altova");

opendir (DIR, "$rep"); #ouverture du répertoire donné en entrée
@files = readdir (DIR);
foreach $fic(@files)
{
    next if $fic =~ /^\.\.?$/; #élimination des fichiers par défaut "." et ".."
	system("perl patron2graphml.pl $rep/$fic");
	system("mv patron-graphml.xml ./resultats_graphml/$fic.xml");
	system("\"/cygdrive/c/Program\ Files/Altova/AltovaXML2006/AltovaXML.exe\" -xslt1 GraphML2Pajek.xsl -in ./resultats_graphml/$fic.xml -out ./resultats_altova/$fic.net");
	system("unix2dos ./resultats_altova/$fic.net");
}