Bonjour
Je souhaiterai découper un fichier qui est sur une seule ligne tous les 160 caractères avec un retour chariot.
Mais avant de commencer cela, il faut que je supprime tous les retours chariots de mon fichier. Comment puis je faire sans avoir à exploiter des fichiers temporaires.
Car j'ai d'abord ouvert mon fichier ENTREE et j'ai supprimé les retours chariotspour écrire dans un fichier temporaire et seulement après rouvrir ce même fichier pour réaliser mon découpage tous les 160 caractères. Mais cela me semble lourd !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part #($Ligne) =~ s/[\n]//g;
Le script ci-dessous est plus simple, mais ne réalise que le découpage ! comment puis je placer la suppression des retours chariots.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 open (ENTREE, "<$FicEntree") || die "Ouverture impossible du fichier $FicEntree: $!"; open (SORTIE, ">$FicSortie") || die "Ouverture impossible du fichier FicSortie: $!"; while (read ENTREE, my $Ligne, 160) { print SORTIE $Ligne, "\n"; print ">$Ligne, \n<"; } close (SORTIE); close (ENTREE);
Partager