Journal Script perl comparant les claviers AZERTY et DVorak

Suite de http://linuxfr.org/comments_reply,11871,188930,1.html#post

#!/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