Discussion :

[mamax29]

Bonjour,

J'ai à afficher un paragraphe de texte dont la longueur est variable.

Pour des questions de mise en forme, je souhaiterais pouvoir découper cette chaine de caractères en sous-chaines d'une longueur de 50 caractères max afin de les afficher individuellement...

Bien entendu, il faut penser à la coupure des mots, et c'est là que je ne sais pas comment faire.

Si quelqu'un a une idée.

[michon]

niveau méthodologie je dirais :

- découper ton texte via la méthode split() et le separateur "espace" afin de récupérer des mots...
- Concaténer ces mots jusqu'à ce que l'ajout d'un prochain mot fasse passer la longueur de la chaîne au delà de 50.

Il y a peut être plus simple mais la de tête je vois pas

[Philou67430]

Une expression régulière de ce type devrait également faire l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@short_texts = $long_text =~ /(.{1,50})\s/g;

[michon]

Cher Philou, ton expression m'intrigue...
Je ne conteste pas sa véracité, loin de la, mais j'aimerais que tu détail :

- comment repère tu les caractères espace pour délimiter les mots ?
- comment l'expr sait-elle qu'elle doit recommencer à parser à tel endroit de la chaîne ?

Je ne suis pas encore super à l'aise avec les expr, donc je ne demande qu'a apprendre plus ! J'aime me coucher moins bête que la veille...

[mamax29]

J'ai trouvé une solution...

J'ai trouvé un module qui fait ça tout seul: Text::Wrap

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
use Text::Wrap;
$Text::Wrap::columns = 50;
$Text::Wrap::separator = "\n";
print wrap("","",$long_text);

[Philou67430]

@michon :
1- comment repère tu les caractères espace pour délimiter les mots ?
L'expression régulière recherche jusqu'à 50 caractères quelconque et DOIT être suivie d'un espace. Je ne me préoccupe donc pas des mots, mais simplement de "couper" les motifs avec un espace.
2- c'est le propre du moteur de recherche de motif que de continuer là où il s'est arrêté, l'option /g permettant de lui demander de répéter jusqu'à ce que le motif ne soit pas trouvé.
Pour comprendre le détail, voir l'aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perldoc perlretut; # paragraphe "Global matching"