Journal Script perl pour comparer Dvorak et Azerty
30
mar.
2003
Remplacez [[ et ]] par inférieur et supérieur. #!/usr/bin/perl -w open ( I , "fr_FR.dic" ) ; while ( $a=[[I]] ) { 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]+$/ (…)
