Bonjour,
J'ai un fichier qui ne possède pas de retour chariot (il est sur une seule ligne).
Or je voudrai tous les 160 caractères faire un retour chariot et passés à la ligne suivante afin de recréer mon fichier avec des sauts de lignes.
Or je ne sais pas comment récupérer les caractères 161 à ...... et ainsi de suite !!
J'ai fait cela :
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 my $Ligne; my UneLigne; my @TableauLigne; my $FicEntree; open (FIC, "<$FicEntree") || die "Ouverture impossible du fichier $FicEntree: $!"; while ($Ligne = <FIC> ) { @TableauLigne = split '', ${Ligne} ; $UneLigne = join '',@TableauLigne[1..159]; print ">$UneLigne<\n"; } close (FIC);
Partager