LoL _ with my Big Chars

Que peut on faire pour tuer le temps... des gros caractères

 alain Adelmar
aadelmar@numericable.fr beuuh c est quoi ca

J'ai écris ce script pour voir le comportement des Listes de Listes. Ce script permet d'afficher sur votre écran ou dans un fichier, les phrases que vous entrez avec une police personnelle formée de 4 caractères de larges/ 5 de hauteur. Style:

bbb    oo   n  n    jj   oo   u  u  rrrr     l     eeee     m  m   oo   n  n  ddd   eeee
b  b  o  o  nn n     j  o  o  u  u  r  r     l     e        mmmm  o  o  nn n  d  d  e
bbb   o  o  n nn     j  o  o  u  u  rrr      l     ee       m  m  o  o  n nn  d  d  ee
b  b  o  o  n  n  j  j  o  o  u  u  r  r     l     e        m  m  o  o  n  n  d  d  e
bbbb   oo   n  n   jjj   oo    uu   r  r     llll  eeee     m  m   oo   n  n  ddd   eeee

Je sais c'est pas très joli, mais c'est juste à titre d'exemple et ce qui compte c'est la manière qui elle s'adapte à toutes vos fantaisie. Vous pouvez changer le nombre de caractères en hauteur, en largeur, le nombre de caractères par ligne, etc...
Il tourne sur Linux et sur le MS-DOS de Windows. Avec un peu d'imagination et des fontes chiadée, on peu se faire une police
vraiment top.  Avec les Listes de Listes, les hashages de tableaux, les tableaux de hashages et les références tout deviens plus simple. Merci Larry Wall et merci professeur Choron.                              Alain A

Pour faire tourner ce script Perl: sur Linux | sur Windows


Sur Linux:    copier/coller/sauver sous lol_bc.plpuis rendez le executable en tapant:
          $ chmod +x lol_bc.pl
                  et enfin lancer le en tapant:
          $ ./lol_bc.pl

Sur Windows: copier/coller/sauver sous C:\perl\bin\lol_bc.pl
           changer la première ligne par: #!perl -w au lieu de:   #!/usr/bin/perl -w
                          puis taper au MS-DOS: perl lol_bc.pl
.......................................................................................................................................................

#!/usr/bin/perl -w
#********************************************************************
# remd: projet for show my strings on many height lines with format.*
# avec une matrice de caractéres réutilisable. ambitieux didn't it? *
# alain adelmar <aadelmar@wanadoo.fr>                               *
#                                                                   *
#*******************************************************************


# déclaration des @ pour chaque caractères.

@LoLc =(
[" aa ","bbb "," ccc","ddd ","eeee","ffff"," ggg","h  h"," ^^ "," jjj","k  k","l   ","m  m","n  n"," oo ","ppp "," qq ","rrr "," sss","tttt","u  u","v  v","w  w","x  x","y  y","zzzz","    "],
["a  a","b  b","c   ","d  d","e   ","f   ","g   ","h  h"," ii ","   j","k k ","l   ","mmmm","nn n","o  o","p  p","q  q","r  r","s   "," t  ","u  u"," v v","w ww"," xx "," y y","  z ","    "],
["aaaa","bbb ","c   ","d  d","ee  ","fff ","g gg","hhhh"," ii ","   j","kk  ","l   ","mm m","n nn","o  o","ppp ","q qq","rrr "," ss "," t  ","u  u","  vv","w ww","  x ","  yy"," zz ","    "],
["a  a","b  b","c   ","d  d","e   ","f   ","g  g","h  h"," ii ","j  j","k k ","l   ","m  m","n  n","o  o","p   ","q qq","r r ","   s"," t  ","u  u","  vv"," www"," xx ","   y"," z  ","    "],
["a  a","bbb "," ccc","ddd ","eeee","f   "," ggg","h  h"," ii "," jj ","k  k","llll","m  m","n  n"," oo ","p   "," qqq","r  r","sss "," t  "," uu ","   v"," w w","x  x","  y ","zzzz","    "],
         );

 $count=0 ;

 @texte = <STDIN >;
chomp @texte;

@ligne =split (//, @texte);




  
foreach $i( @ligne) {
   "a" = 0;
   "b" = 1;
   ..
   "z" = 26;
   }
   if ($i eq " " ) {
     $i = 25;
   }
   
   if ( $count >= 9) {
     push @nl, $i;
    
     print "$LoLc[0][$nl[0]] " . "$LoLc[0][$nl[1]] " . "$LoLc[0][$nl[2]] " . "$LoLc[0][$nl[3]] " . "$LoLc[0][$nl[4]] " . "$LoLc[0][$nl[5]] " . "$LoLc[0][$nl[6]] " . "$LoLc[0][$nl[7]] " . "$LoLc[0][$nl[8]] " . "$LoLc[0][$nl[9]] " . "\n" ;
     @nl =();
     $count = 0;
   }
   else {
     push @nl , $i ;
     $count ++;
     print "@nl\n";
   }
   
}





# $test = "bonjour";
 END;
 
 
                 retour en haut de page

Je viens de refaire pas mal de pages avec XEmacs et c'est trop chouet, c'est incroyable la rapidité d'action et les possibilités d'un tel éditeur. Tout les jours je découvre de nouvelles fonctionnalités, (et je suis loin d'en avoir fait le tour). Super j'aurai plus de temps pour programmer et éditer d'autres pages.
Pour aujourd'hui c'est fini mais demain nous verrons la manière adéquate de vous défendre face à un monstre qui surgit de nulle part et qui vous fonce dessus avec une bannane (à moins que nous l'ayons déjà vue, hier aprés-midi).


Last modified: Sun May 23 19:02:47 CEST 2009