• [^] # Re: Plusieurs trucs bizarres...

    Posté par . En réponse au message références aux dossiers parents. Évalué à 2.

    bien,
    admettons que le code fonctionne malgré les 3 premiers lignes qui ne font rien.

    tu definis ensuite un tableau avec les fichiers avec

    open my @files = glob 'C:\Users\Desktop\SysCompare_v01\InputData\*.xml';

    j'imagine que c'est ca que tu veux remplacer par un autre dossier, pour pouvoir lancer, par exemple : 

    perl tonscript.pl "c:\Users\Desktop\UnAutreDossier\"

    et bien il faut appliquer ce que tu as appris depuis 3 mois.

    1°) recuperer l'argument de la ligne de commande dans presenté dans $ARGV

    2°) l'utiliser dans le open my @files... à la place du chemin en dure.

    ca donnerait un code qui ressemble à ca : 

    my $MYDIR=shift @ARGV;
open my @files = glob $MYDIR.'\*.xml';