#!/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 (…)
Journal Script perl comparant les claviers AZERTY et DVorak
30
mar.
2003
Suite de http://linuxfr.org/comments_reply,11871,188930,1.html#post

