{filelink=13229}

   #!/usr/bin/perl -w

   # Empêcher l'utilisateur à appuyer
   # sur plusiuers touches du clavier

  use Term::ReadKey;

  ReadMode('cbreak');
  print "Appuyez sur une touche pour voir ses codes ASCII, Ctrl-C pour quitter.n";
  while (1)
  {
      $myKey = ReadKey(0);
      last unless defined $myKey;
      printf("Code Décimal: %dt Code Hex: %xn", ord($myKey), ord($myKey));
  }

  ReadMode('normal');

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]