Découpage d’une ligne en perl

j’ai un petit souci avec PERL, j’ai un fichier en entré d’une ligne de 400 caractères et j’aimerais en faire un fichier de 40 lignes de 40 caractères quelqu’un à t-il une idée.

Attention, 1 ligne de 400 caractères et 40 lignes de 40 caractères c'est pas du tout la même taille! (mais c'est peut être une erreur de frappe)

bon on va dire que tu souhaites avoir 10 lignes de 40 caractères et que tu es sûr que la taille de la ligne (400) est fixe:

Code:

1
2
3
4
5
6
7
8
my $ligne="vfsgjnfdgmlkqsdopjnngdfjhsghoidfngoidfhnnpfodjgndfhgoiijepotjkoprjgnergklnerlknglkrenglknerglknergnrdfghgtrryrthfosqihgiohfqdsoigodfihgoihoidfqhgoishdfoighsdofgindfiogniosdfngindfiognidosfngiondsfoignsdngvfsgjnfdgmlkqsdopjnngdfjhsghoidfngoidfhnnpfodjgndfhgoiijepotjkoprjgnergklnerlknglkrenglknerglknergnrdfghgtrryrthfosqihgiohfqdsoigodfihgoihoidfqhgoishdfoindfiogniosdfngindfiognidosfngiondsfoignsdng"; 
my $taille=40;
print length($ligne)."\n";
 
for (my $deb=0; $deb+$taille<length($ligne); $deb+=$taille){
     my $new_ligne = substr($ligne, $deb, $taille);
     print "$new_ligne\n";
}

resultat:

Code:

1
2
3
4
5
6
7
8
9
10
11
>perl test.pl
400
vfsgjnfdgmlkqsdopjnngdfjhsghoidfngoidfhn
npfodjgndfhgoiijepotjkoprjgnergklnerlkng
lkrenglknerglknergnrdfghgtrryrthfosqihgi
ohfqdsoigodfihgoihoidfqhgoishdfoighsdofg
indfiogniosdfngindfiognidosfngiondsfoign
sdngvfsgjnfdgmlkqsdopjnngdfjhsghoidfngoi
dfhnnpfodjgndfhgoiijepotjkoprjgnergklner
lknglkrenglknerglknergnrdfghgtrryrthfosq
ihgiohfqdsoigodfihgoihoidfqhgoishdfoindf

Bonjour,
oui c'est une erreur, pour le fichier en entré c'est de alphanumérique de longueur variable, un multiple de 40.

si ta ligne est de longueur un multiple de 40 et que tu souhaites des lignes de longueur 40 alors mon script doit fonctionner dans tous les cas.

Par contre, si la taille peux être 83 par exemple, il faudra gérer le cas où la dernière ligne produite est incomplète.

Je te remercie ça marche très bien,
Bonne journée.