Journal : Script perl comparant les claviers AZERTY et DVorak

#!/usr/bin/perl -w

open ( I , "fr_FR.dic" ) ;
while ( $a= ) {
   chomp($a);

   # Clavier ABCDE
   if ( $a =~ /^[kp]+$/ ) { 
      $abc_home_only++;
   }
   if ( $a =~ /^[a-t]+$/ ) {
      $abc_top_two_rows_only++;
   }
   if ( $a =~ /^[a-ek-ou-x]+$/ ) {
      $abc_left_only++;
   }
   if ( $a =~ /^[f-jp-ty-z]+$/ ) {
      $abc_right_only++;
   }
   if ( $a =~ /^[a-ju-z]$/ ) {
      $abc_off_home_row_only++ ;
   }
      
   # Clavier AZERTY
   if ( $a =~ /^[qsdfghjklm]+$/ ) { 
      $aze_home_only++;
   }
   if ( $a =~ /^[qsdfghjklmazertyuiop]+$/ ) {
      $aze_top_two_rows_only++;
   }
   if ( $a =~ /^[azertqsdfgwxcv]+$/ ) {
      $aze_left_only++;
   }
   if ( $a =~ /^[yuiophjklmbn]+$/ ) {
      $aze_right_only++;
   }
   if ( $a =~ /^[azertyuiopwxcvbn]$/ ) {
      $aze_off_home_row_only++ ;
   }
      
   # Clavier DVORAK
   if ( $a =~ /^[aoeuidhtns]+$/ ) { 
      $dvo_home_only++;
   }
   if ( $a =~ /^[aoeuidhtnspyfgcrl]+$/ ) {
      $dvo_top_two_rows_only++;
   }
   if ( $a =~ /^[pyfaoeuiqjkx]+$/ ) {
      $dvo_left_only++;
   }
   if ( $a =~ /^[fgcrldhtnsbmwvz]+$/ ) {
      $dvo_right_only++;
   }
   if ( $a =~ /^[pyfgcrlqjkxbmwvz]$/ ) {
      $dvo_off_home_row_only++ ;
   }
}

print <<FIN

 Comparaison Dvorak-Azerty 
  

AZERTYABCDDvorak

 (More is better...)
Home-row-only    $aze_home_only$abc_home_only$dvo_home_only 
Top-two-rows-only$aze_top_two_rows_only$abc_top_two_rows_only$dvo_top_two_rows_only
(Fewer is better...)
Left-hand-only   $aze_left_only$abc_left_only   $dvo_left_only
Right-hand-only  $aze_right_only $abc_right_only $dvo_right_only
Off-home-row-only$aze_off_home_row_only  $abc_off_home_row_only   $dvo_off_home_row_only



FIN

> Lire le journal (0 commentaire).