Journal Script perl pour comparer Dvorak et Azerty

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]+$/ ) {
$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
[[html]]
[[head]] [[title]]Comparaison Dvorak-Azerty[[/title]] [[/head]]
[[body]] [[p]] [[table]]
[[tr]]
[[td]][[/td]][[td]]AZERTY[[/td]][[td]]ABCD[[/td]][[td]]Dvorak[[/td]]
[[/tr]]
[[tr]] [[td]](More is better...)[[/td]][[/tr]]
[[tr]][[td]]Home-row-only[[/td]] [[td]]$aze_home_only[[/td]][[td]]$abc_home_only[[/td]][[td]]$dvo_home_only[[/td]][[/tr]]
[[tr]][[td]]Top-two-rows-only[[/td]][[td]]$aze_top_two_rows_only[[/td]][[td]]$abc_top_two_rows_only[[/td]][[td]]$dvo_top_two_rows_only[[/td]][[/tr]]
[[tr]][[td]](Fewer is better...)[[/td]][[/tr]]
[[tr]][[td]]Left-hand-only [[/td]] [[td]]$aze_left_only[[/td]][[td]]$abc_left_only [[/td]][[td]]$dvo_left_only[[/td]][[/tr]]
[[tr]][[td]]Right-hand-only [[/td]] [[td]]$aze_right_only[[/td]][[td]] $abc_right_only [[/td]][[td]]$dvo_right_only[[/td]][[/tr]]
[[tr]][[td]]Off-home-row-only[[/td]][[td]]$aze_off_home_row_only[[/td]][[td]] $abc_off_home_row_only [[/td]][[td]]$dvo_off_home_row_only[[/td]][[/tr]]
[[/table]]
[[/head]]
[[/html]]
FIN