• [^] # Re: tes chaines et tes variables

    Posté par (site web personnel) . En réponse au message Concatenation. Évalué à 2.

    Tu fais ça dans le mauvais sens j'ai l'impression.

    Avec

    my $FileResult = 'C:\Users\Documents\probe\DATA2.csv';
     open( my $FhResult, '>', $FileResult );
    

    Tu vas écraser ton fichier DATA2.csv, alors que j'ai plutôt l'impression que c'est le fichier qui te donne les résultats à mettre en forme.

    Pour lire DATA.csv :

    my $FileInput = 'C:\Users\Documents\probe\DATA2.csv';
     open( my $FhInput, '<', $FileInput );
    

    Et ensuite, pour écrire dans C:\Users\Documents\probe\result.html :

    my $FileOutput = 'C:\Users\Documents\probe\result.html';
     open( my $per_line_fh, '>', $FileOutput );
    

    C'était bien le sens de ta question ?

    Ah, et sinon, pense à mettre des die quand tu ouvres un fichier, juste au cas où :

    open( my $per_line_fh, '>', $FileOutput ) or die "Y a un problème pour ouvrir $FileOutput : $!";
    

    Tu auras alors un message vite compréhensible (Y a un problème pour ouvrir C:\Users\Documents\probe\result.html) avec la raison pour laquelle perl n'a pas réussi à l'ouvrir (c'est le $! qui donne ça).

    Being a sysadmin is easy. As easy as riding a bicycle. Except the bicycle is on fire, you’re on fire and you’re in Hell.