<html><head><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body dir="auto"><div>Bonjour,</div><div> </div><div>Ceci devrait aider. Dommage que ces exemples ne soient pas liés depuis perlform d’ailleurs…</div><div> </div><div><div style="display: block;" class=""><div style="-webkit-user-select: all; -webkit-user-drag: element; display: inline-block;" class="apple-rich-link" draggable="true" role="link" data-url="https://perldoc.perl.org/perlunicook#%E2%84%9E-34:-Unicode-column-width-for-printing"><a style="border-radius:10px;font-family:-apple-system, Helvetica, Arial, sans-serif;display:block;-webkit-user-select:none;width:300px;user-select:none;-webkit-user-modify:read-only;user-modify:read-only;overflow:hidden;text-decoration:none;" class="lp-rich-link" rel="nofollow" href="https://perldoc.perl.org/perlunicook#%E2%84%9E-34:-Unicode-column-width-for-printing" dir="ltr" role="button" draggable="false" width="300"><table style="table-layout:fixed;border-collapse:collapse;width:300px;background-color:#E9E9EB;font-family:-apple-system, Helvetica, Arial, sans-serif;" class="lp-rich-link-emailBaseTable" cellpadding="0" cellspacing="0" border="0" width="300"><tbody><tr><td vertical-align="center"><table bgcolor="#E9E9EB" cellpadding="0" cellspacing="0" width="300" style="font-family:-apple-system, Helvetica, Arial, sans-serif;table-layout:fixed;background-color:rgba(233, 233, 235, 1);" class="lp-rich-link-captionBar"><tbody><tr><td style="padding:8px 0px 8px 0px;" class="lp-rich-link-captionBar-textStackItem"><div style="max-width:100%;margin:0px 16px 0px 16px;overflow:hidden;" class="lp-rich-link-captionBar-textStack"><div style="word-wrap:break-word;font-weight:500;font-size:12px;overflow:hidden;text-overflow:ellipsis;text-align:left;" class="lp-rich-link-captionBar-textStack-topCaption-leading"><a rel="nofollow" href="https://perldoc.perl.org/perlunicook#%E2%84%9E-34:-Unicode-column-width-for-printing" style="text-decoration: none" draggable="false">perlunicook - cookbookish examples of handling Unicode in Perl - Perldoc Browser</a></div><div style="word-wrap:break-word;font-weight:400;font-size:11px;overflow:hidden;text-overflow:ellipsis;text-align:left;" class="lp-rich-link-captionBar-textStack-bottomCaption-leading"><a rel="nofollow" href="https://perldoc.perl.org/perlunicook#%E2%84%9E-34:-Unicode-column-width-for-printing" style="text-decoration: none" draggable="false">perldoc.perl.org</a></div></div></td><td style="padding:6px 12px 6px 0px;" class="lp-rich-link-captionBar-rightIconItem" width="36"><a rel="nofollow" href="https://perldoc.perl.org/perlunicook#%E2%84%9E-34:-Unicode-column-width-for-printing" draggable="false"><img style="pointer-events:none !important;display:inline-block;width:36px;height:36px;border-radius:3px;" width="36" height="36" draggable="false" class="lp-rich-link-captionBar-rightIcon" alt="favicon.ico" src="cid:3C6BDEDE-EE61-4FF7-A557-C18328CA2D22"></a></td></tr></tbody></table></td></tr></tbody></table></a></div></div> </div> <div dir="ltr">Sébastien Feugère</div><div dir="ltr"> <blockquote type="cite">Le 4 mai 2024 à 11:37, Patrice Karatchentzeff <patrice.karatchentzeff@gmail.com> a écrit : </blockquote></div><blockquote type="cite"><div dir="ltr">Salut, J'ai un test case pour ceux qui voudraient m'aider. Je cherche à utiliser format pour formater mon texte. C'est nickel, quand il n'y a pas d'accent... Dès qu'il y a des accents, l'alignement ne se fait plus. J'ai eu du mal à comprendre que cela venait de l'encodage. Mon environnement : % env | grep LANG LANGUAGE=fr_FR.UTF-8 GDM_LANG=fr_FR LANG=fr_FR.UTF-8 Si je n'utilise pas le pragma utf8, la sortie du script donne :  ------------------------------------------------------------ |                       Statistiques                         |  +----------------------------------------------------------+ |        recherche             |   cible    | trouvé | Échec |  +----------------------------------------------------------+ | Foo Bar                      | Littératu |  Foo   |  Litt | | Foo Bar                      | Maths      |  Foo   |  Math | | Peti Bar                     | Literature |  Peti  |  Lite | (je ne sais ce que donnera le copier-coller, mais la ligne avec 'Littératu' est décalée, comme si il y avait un caractère de moins après. Si j'active le pragma, (GMail me refuse le copier-coller, sans doute pour des problèmes de transcodage), le formatage est nickel, mais les accents sautent et sont remplacés par des points d'interrogation sur fond blanc. je peux transformer ce point d'interrogation en bonne lettre en appelant encode_utf8($note), mais je ne peux pas le faire sur les chaînes codées en dur dans le format. Mais si l'accent de littérature apparaît, le formatage lui n'est alors plus bon :( J'avoue que j'ai du mal à piger comment fonctionne l'encodage avec Perl aujourd'hui. Ça fait des années que je code en Perl sans me prendre le chou avec ça. Je crois avoir toujours utilisé le pragma use utf8 et fait des print avec des variables avec accent sans problème. Là, cela ne fonctionne plus... Mon système est en UTF-8 depuis que Debian y est passé, donc ça commence à dater... Merci de vos lumières, PK --      |\      _,,,---,,_           Patrice KARATCHENTZEFF ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:patrice.karatchentzeff@gmail.com     |,4-  ) )-,_. ,\ (  `'-'    '---''(_/--'  `-'\_) <div><test.pl></div>_______________________________________________ Perl mailing list Perl@mongueurs.net http://listes.mongueurs.net/mailman/listinfo/perl Attention, les archives sont publiques</div></blockquote></body></html>