[perl] écrire nombre caractere limité [Fermé]

Signaler
-
 TMTOWTDI -
Bonjour à vous tous,
je récupère des données dans un tableau et je veux les ecrire dans un fichier le problem c'est pour les écrire j'ai un nombre de caractére limité a 100 puis je doit retourner à la ligne et terminer le contenu de la phrase et si ca depasse 100 je doit encore retourner a la ligne et continuer
si quelqu un connait une fonction ou comment y faire ca me serait d'une grande aide et merci d'avance.


1 réponse

Après 3,4 et 5 colonnes

~$ cat fic
aaaaaaaaaaaaaaa
bbbbbbbbbbb
ccccccccccccc
d
eeeeee
~$ perl -MText::Wrap -ne '$Text::Wrap::columns=4;print wrap("","","$_")' fic
aaa
aaa
aaa
aaa
aaa
bbb
bbb
bbb
bb
ccc
ccc
ccc
ccc
c
d
eee
eee
~$ perl -MText::Wrap -ne '$Text::Wrap::columns=5;print wrap("","","$_")' fic
aaaa
aaaa
aaaa
aaa
bbbb
bbbb
bbb
cccc
cccc
cccc
c
d
eeee
ee
~$ perl -MText::Wrap -ne '$Text::Wrap::columns=6;print wrap("","","$_")' fic
aaaaa
aaaaa
aaaaa
bbbbb
bbbbb
b
ccccc
ccccc
ccc
d
eeeee
e