La voix du secrétaire (Jean)
Présents à la réunion, en fonction de l'ordre d'arrivée :
Laurent (B) n'a pas pu venir, à cause d'un conflit d'emploi du temps.
Nous avons mangé des bo-buns, des ravioles, du saumon fumé, des entrecôtes, des fondants au chocolat, des tiramisus et des tartes Tatin. Nous avons bu du vin (blanc et rosé), un cocktail Diderot et un Mojito. Les apéritifs étaient payés par Vincent, pour célébrer le fait qu'il vient de conclure un contrat pour son logiciel de contentieux d'assurance.
Nous avons parlé de Perl, Internet informatique et points divers.
Veullez transférer 4500 francs CFA à mon cousin Mamadou Diallo, habitant à Trifouillis-les-Autruches pour la vente d'une chèvre. Veuillez agréer l'expression de mes sentiments distingués.ou l'équivalent, exprimé en ouolof, en lingala, en kiswahili, en xhosa ou autre. Moi, qui ai travaillé avec de l'EDI, qui ai pratiqué des jeux par messagerie électronique avec l'aide d'un serveur de lancer de dés je voyais plutôt des SMS du genre
TRF 06-55-55-12-34 4500,00(où 06-55-55-12-34 est le numéro de portable du destinataire de la somme) Et si le payeur envoie à la place
trf 0655551234 4500.00ce n'est pas grave, les expressions rationnelles sont là pour ça.
#!/usr/bin/perl # -*- encoding: utf-8; indent-tabs-mode: nil -*- # # Generation d'un dessin inclus dans un source HTML # Copyright (C) 2017 Jean Forget et les Mongueurs de Perl # # Voir le resume de la license (en anglais) ci-dessous # use v5.10; use strict; use warnings; use GD; use MIME::Base64; my $rep = '/var/tmp'; my $fic_img = "$rep/toto.png"; my $fic_html = "$rep/toto.html"; my $img = image(); open my $im, '>', $fic_img or die "$!"; print $im $img->png; close $im or die "$!"; open my $ht, '>', $fic_html or die "$!"; printf $ht <<'EOF', $fic_img, encode_base64($img->png); <html> <head><title>Test de PNG en ligne </title></head> <body> <p>Externe</p><img src='%s' /> <p>Interne</p><img src="data:image/png;base64,%s" /> </body> </html> EOF close $ht or die "$!"; sub image { my $img = GD::Image->new(50, 50); my $blanc = $img->colorAllocate(255,255,255); my $noir = $img->colorAllocate( 0, 0, 0); my $rouge = $img->colorAllocate(255, 0, 0); my $vert = $img->colorAllocate( 0,255, 0); my $bleu = $img->colorAllocate( 0, 0,255); my @col = ($noir, $rouge, $vert, $bleu); for my $i (1..5) { my $x = 5 + rand(40); my $y = 5 + rand(40); my $r = 5 + rand(10); $img->ellipse($x, $y, $r, $r, $col[$i % @col]); } return $img; } __END__ =head1 Utilisation perl dessin-html.pl firefox /var/tmp/toto.html Puis afficher le source HTML avec Ctrl-U (ou bien Outils -> Developpement web -> Code source de la page. =head1 License La license est la meme que Perl : GPL et Artistic Licence. Voici le resume en anglais de la GPL. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., L<http://www.fsf.org/>.