La voix du secrétaire (Jean)
Présents à la réunion, en fonction de la disposition autour de la table :
Nous avons mangé des pizzas Sainte-Marie, 3 jambons, 4 fromages et calzone sans fromage, une crème caramel, une tarte au citron, un chocolat liégeois, une mcoupe colonel et deux tiramisus (un avec chocolat, un sans). Nous avons bu de l'orangina, un kir, et de la bière. Le lemoncello était offert par la maison.
Nous avons parlé de Perl, Internet informatique et points divers.
:wq![ En fait, Emmanuel ne cherchait pas à nous faire comprendre ceci ou cela, il se levait juste pour aller payer son repas à la caisse, c'est tout. ]
#!/usr/bin/env perl
# -*- encoding: utf-8; indent-tabs-mode: nil -*-
#
use utf8;
use v5.10;
use strict;
use warnings;
use Convert::Braille;
use open ':encoding(utf8)';
verif('⠕⠥⠌⠌⠌⠝');
verif('⠕⠥⠊⠊⠊⠝');
sub verif {
my ($str) = @_;
say $str, " ", brailleUnicode_To_Ascii($str);
}
Et l'on voit que la première chaîne se traduit par « OU///N »
et la deuxième par « OUIIIN ».
Ainsi, il y a une confusion entre la lettre « I »
et le caractère barre oblique « / ». Cette erreur est
due au fait que le point gauche du caractère triplé a été écrit par erreur
en bas du rectangle alors qu'il auraît dû être écrit au milieu. D'un autre
côté, cette erreur est peut-être
délibérée, en raison de la similitude visuelle des deux caractères.
perl -e 'printf( "%o\n", 0x2800)'ce qui donne « 24000 ». Ensuite, on repère les points et les valeurs octales associées dans le schéma suivant :
--------
1 → | O O | ← 10
| |
2 → | O O | ← 20
| |
4 → | O O | ← 40
--------
On effectue la somme des valeurs octales associées à la base
et aux points. Même si vous n'êtes pas habitués à l'arithmétique octale,
cela ne devrait pas poser de problème car l'addition se fait sans retenue.
Par exemple, le schéma
-------- | O O | | | | O | | | | O | --------correspond à :
24000 + 1 + 4 + 10 + 20 = 24035Et dans Emacs, on tape Control-Q, suivi de la valeur obtenue. Par exemple, pour la première chaîne de caractères, il faut taper
C-q 24025 C-q 24045 C-q 24014 C-q 24014 C-q 24014 C-q 24035(pas besoin de taper les espaces).
--------
1 → | O O | ← 8
| |
2 → | O O | ← 10
| |
4 → | O O | ← 20
--------
et vous les additionnez à 2800. Là encore, l'addition se fait en hexadécimal
mais il n'y a pas de retenue. Ainsi, le schéma Braille
-------- | O O | | | | O | | | | O | --------correspond à :
2800 + 1 + 4 + 8 + 10 = 281DAprès avoir fait cela pour tous les caractères, vous tapez
:r! outilf8 -c u+2815 u+2825 u+280c u+280c u+280c u+281d :r! outilf8 -c u+2815 u+2825 u+280a u+280a u+280a u+281dAttention, avec une version récente de Perl, vous avez des avertissements
given is deprecated at /home/jf/bin/outilf8 line 167. when is deprecated at /home/jf/bin/outilf8 line 168.(constaté avec perl-5.40.1 mais pas avec perl-5.32.1). J'ai déjà écrit à plusieurs reprises que j'aime bien given / when et que je regrette très fort la suppression de cette syntaxe.
--------
1 → | O O | ← 4
| |
2 → | O O | ← 5
| |
3 → | O O | ← 6
--------
et au lieu d'additionner les valeurs, vous les concaténez en ordre
croissant. Ainsi, le schéma Braille
-------- | O O | | | | O | | | | O | --------correspond à « 1345 ». Après avoir effectué cette manip pour tous les caractères, tapez :
:r! perl -MConvert::Braille -e 'print brailleDotNumbers_To_Unicode($_) for @ARGV' 135 136 34 34 34 1345 :r! perl -MConvert::Braille -e 'print brailleDotNumbers_To_Unicode($_) for @ARGV' 135 136 24 24 24 1345Là encore, vous avez des avertissements « Wide character in print » dont vous devrez vous débarasser.