optimisation de script

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 chariots

Code:

---

#($Ligne) =~ s/[\n]//g;

---

pour é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 !!


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:

---

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);

---

Un script uniligne comme celui-ci remplacera dans ton fichier (en fait, derrière la scène, il crée un fichier temporaire et fait le renommage, mais tu n'a pas à t'en préoccuper, c'est transparent pour toi):

Code:

---

perl -pi.bak -e 's/\n//g' nom_fichier.txt

---

Ton fichier d'origine sera renommé en .bak, et ton fichier nom_fichier.txt n'aura plus de retours à la ligne.

A travers un script ça donne quoi ?

En fait, à la réflexion, il y a plus simple. Modifie ton script comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10

open my $ENTREE, "<", $FicEntree or die "Ouverture impossible du fichier $FicEntree: $!"; open my $SORTIE, ">", $FicSortie or die "Ouverture impossible du fichier $FicSortie: $!";   while (read $ENTREE, my $Ligne, 160) { $Ligne =~ s/\n/ /g; # commence par remplacer les retours à la ligne existants par des espaces print $SORTIE $Ligne, "\n"; print ">$Ligne, \n<"; } close $SORTIE; close $ENTREE;

---