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

> Lire le journal (0 commentaire).