Discussion :

[mollux]

Je cherche a supprimer une virgule à la fin de la dernière ligne du d'un fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
"/KMSetup/APPLICATIONS/vtom/ConfigurationVersion" = { REPLACE = "5.0" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/ApplicationLogin" = { REPLACE = "" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/ApplicationName" = { REPLACE = "tuxedo_tuxsref" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/ApplicationPassword" = { REPLACE = "" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/ApplicationVersion" = { REPLACE = "" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/Contact" = { REPLACE = "" },
"/KMSetup/APPLICATIONS/tuxedo_tuxsref/ConfigurationVersion" = { REPLACE = "5.0" },

je n'arrive pas a trouver le bon code pour cela

[Lolo78]

Bonjour,

Pas assez de détails sur ton fichier.

Tu peux essayer un truc du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while (<FIC>) {
     chomp;
     s/,$// if ($. == 7);
     print FIC_OUT "$_ \n";
     }

s/,$// if ($. == 7) supprime la virgule finale de la ligne si c'est la septième ligne du fichier.

Si ce n'est pas forcément la septième ligne, tu peux faire une première passe pour compter les lignes et adapter le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
while (<FIC>) { $nb_line = $.;}
close FIC;
open FIC, "mon_fichier.txt" or die "erreur ouverture \n";
while (<FIC>) {
     chomp;
     s/,$// if ($. == $nb_line);
     print FIC_OUT "$_ \n";
     }

[Lolo78]

Il y a une meilleure solution, en différant l'écriture, un truc dans ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
$line = ""
while (<FIC>) {
     print FIC_OUT "$line \n" unless $line eq "";
     chomp;
     $line = $_;
     }
$line =~s/,$//;
print FIC_OUT "$line \n";

[mollux]

Bonjour, merci, j'ai juste modifié un peu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        while (<FICH>) {
                print FICHIER_FINAL "$line\n" unless $line eq "";
                chomp;
                $line = $_;
        }
        $line =~s/,$//;
        print FICHIER_FINAL "$line\n";

[Philou67430]

Une solution encore plus simple : ne faire la suppression que si c'est la fin de fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while (<FICH>) {
                chomp;
                s/,$// if eof FILE;
                print FICHIER_FINAL "$_\n" unless $_ eq "";
        }