1 changed files with 411 additions and 0 deletions
-
411run.sh
@ -0,0 +1,411 @@ |
|||
#!/bin/bash |
|||
|
|||
|
|||
########################## |
|||
# Version beta 1 |
|||
# Cette version ne fonctionne PAS dans le cas où la réponse à une 'question A CHOIX UNIQUE (de type radio bouton)' contient une 'virgule' |
|||
# Il se peut également que la version ne fonctionne pas si la réponse contient des guillemets. |
|||
# Les questions A CHOIX MULTIPLES, eux, n'induisent jamais ce genre de problème car les réponses multiples sont de type booleen "Oui"/"Non". |
|||
# |
|||
# En conséquence, s-assurer que les réponses uniques ne contiennent pas de virgules avant d-utiliser ce code. |
|||
########################## |
|||
|
|||
########################## |
|||
# Ressources |
|||
# https://learn-bash.org/arrays.html |
|||
########################## |
|||
# Array : construction d un tableau à partir d une ou plusieurs chaînes |
|||
# a="1 2" |
|||
# b="3 4" |
|||
# c=($a $b) |
|||
# c=($a) |
|||
# echo ${#c[@]} |
|||
# echo ${c[@]} |
|||
########################## |
|||
# AWK : iteration sur les champs, passage de valeurs via le paramètre "-v" |
|||
# $ echo "un deux trois quatre" | awk '{for(i=1;i<=NF;i++) printf $i" "; print ""}' |
|||
# $ echo "un deux trois" | awk -v n=2 '{print $n}' |
|||
# champs=$(echo "$qcm" | awk -F "," -v field=$num_champs '{print $field}') |
|||
# |
|||
# |
|||
# |
|||
########################## |
|||
# arithmetic : bash only support arithmetic integer operations, that's not the case with zsh |
|||
# |
|||
# incrementer de 3 une variable : |
|||
# (( a += 3 )) |
|||
# |
|||
# |
|||
# $(( < expr arithmetique quelconque avec des entiers uniquement pas de valeurs décimales autorisées avec bash > )) |
|||
# a=$((3 * 4 + 2)) |
|||
# y=$(($a + 1)) ou y=$(( a + 1)) |
|||
# |
|||
# calcul decimal/flottant : bc command pour du calcul décimal/float |
|||
# |
|||
# attention à l usage du '$' qui n est valable que lorsque les variables sont celles définies dans le shell: |
|||
# |
|||
# x=$(echo "1.2 + 1.3" | bc -l) |
|||
# a=1.2; b=2.3; echo "$a+$b" | bc -l |
|||
# echo "y=1.22; z=2.33; y+z" | bc -l |
|||
# |
|||
# récupération de la valeur : |
|||
# |
|||
# x=`echo "12 + 5" | bc` |
|||
# x=$(echo "12 + 5" | bc -l) |
|||
|
|||
########################## |
|||
#If then else statement https://stackoverflow.com/questions/6270440/simple-logical-operators-in-bash |
|||
# ( [ $a -eq 1 ] || [ $b -eq 2 ] ) && echo "ok" || echo "nok" |
|||
# var1=20 |
|||
# var2=22 |
|||
# [ "$var1" -ne "$var2" ] && echo "$var1 is not equal to $var2" |
|||
# |
|||
# a=3; if [ $a = 1 ]; then echo 1; elif [ $a = 2 ]; then echo 2; else echo toto; fi |
|||
########################## |
|||
|
|||
|
|||
|
|||
########################## |
|||
# variables GLOBALES |
|||
########################## |
|||
|
|||
### structure du fichier d'export des données de réponses qcm : |
|||
### nombre de sous-questions pour chaque question |
|||
nombre_sous_reponses=\ |
|||
"1 1 1 1 3 3 3 1 3 3\ |
|||
3 3 3 1" |
|||
#typesq est un tableau |
|||
#typesq=(${tq1} ${tq2}) |
|||
typesq=($nombre_sous_reponses) |
|||
### |
|||
solution="206","GEDEAS","Yaëlle","B1 _C1",\ |
|||
"d'ajouter/modifier/supprimer des pages web facilement",\ |
|||
"à occulter de l'information cachée aux lecteurs afin de transmettre un code secret",\ |
|||
"récupérer des informations structurées via le web",\ |
|||
"pour décrire la configuration d'un logiciel",\ |
|||
"Oui","Non","Non",\ |
|||
"Non","Non","Oui",\ |
|||
"Oui","Oui","Oui",\ |
|||
"n'importe quel éditeur de texte le + simple possible",\ |
|||
"Non","Oui","Oui",\ |
|||
"Non","Oui","Oui",\ |
|||
"Oui","Non","Oui",\ |
|||
"Oui","Oui","Non",\ |
|||
"Oui","Non","Non",\ |
|||
"ce que vous voyez est ce que vous obtenez" |
|||
|
|||
eleve="207","BRUNO","Javotte","B1 _C1",\ |
|||
"d'ajouter/modifier/supprimer des pages web facilement",\ |
|||
"à occulter de l'information cachée aux lecteurs afin de transmettre un code secret",\ |
|||
"récupérer des informations structurées via le web",\ |
|||
"pour décrire la configuration d'un logiciel",\ |
|||
"Oui","Non","Non",\ |
|||
"Non","Non","Oui",\ |
|||
"Oui","Oui","Oui",\ |
|||
"n'importe quel éditeur de texte le + simple possible",\ |
|||
"Non","Oui","Oui",\ |
|||
"Non","Oui","Oui",\ |
|||
"Oui","Non","Oui",\ |
|||
"Oui","Oui","Non",\ |
|||
"Oui","Non","Non",\ |
|||
"ce que vous voyez est ce que vous obtenez" |
|||
|
|||
|
|||
########################## |
|||
# Fonctions |
|||
########################## |
|||
|
|||
nb_questions() |
|||
{ |
|||
echo "${#typesq[@]}" |
|||
} |
|||
|
|||
#### |
|||
# |
|||
# $1 : numéro de la question |
|||
# |
|||
nb_sous_reponses() |
|||
{ |
|||
echo ${typesq[$(($1-1))]} |
|||
} |
|||
|
|||
#### |
|||
# Calculer la postion du champs où commence la réponse pour la questions N |
|||
# $1 : numero de la question (>0) |
|||
# |
|||
function index_champs_reponses_n () |
|||
{ |
|||
n=$1 |
|||
|
|||
# initialisation de l'index à 5 pour le premier champs de la première réponse |
|||
index_champs=5 |
|||
sous_reponses_precedentes=0 |
|||
|
|||
i=1 |
|||
while [ $i -le $n ] |
|||
do |
|||
index_champs=$((${index_champs} + ${sous_reponses_precedentes})) |
|||
sous_reponses_precedentes=${typesq[(($i-1))]} |
|||
((i++)) |
|||
done |
|||
|
|||
echo "$index_champs" |
|||
} |
|||
|
|||
#### |
|||
# Est-ce qu'une question donnée est une question à choix multiple ? |
|||
# $1 : numero de la question |
|||
# |
|||
question_a_choix_multiple () |
|||
{ |
|||
#[ $(nb_questions $1) -gt 1 ] |
|||
#($(nb_questions $1) > 1) |
|||
# la fonction 'nb_sous_reponses' appelle la fonction 'echo' pour retourner sa valeur |
|||
a=`nb_sous_reponses $1` |
|||
[[ $a -gt 1 ]] |
|||
|
|||
} |
|||
|
|||
|
|||
#### |
|||
# Pour un "numéro de question donné en paramètre" ('$1'), "retourne une chaîne" qui correspond soit à : |
|||
# - réponse unique (question de "type L" = Liste de "radio boutons"). Ex : "d'ajouter/modifier/supprimer des pages web facilement" |
|||
# - réponse multiple (question de "type M" = liste choix Multiples). Ex : "Oui Non Oui" |
|||
# $1 : numero de la question |
|||
# $2 : réponses d'un qcm |
|||
function reponses_n () |
|||
{ |
|||
n=$1 |
|||
qcm=$2 |
|||
|
|||
# nombre de sous-réponses pour la réponse n |
|||
nbs=${typesq[$(($n-1))]} |
|||
|
|||
# stocker toutes les sous-réponses de la question n |
|||
reponse="" |
|||
|
|||
pos=$(index_champs_reponses_n $n) |
|||
|
|||
i=1 |
|||
while [ $i -le $nbs ] |
|||
do |
|||
j=$(($i-1)) |
|||
num_champs=$(($pos+$j)) |
|||
champs=$(echo "$qcm" | awk -F "," -v field=$num_champs '{print $field}') |
|||
|
|||
# test awk pour prendre en compte la virgule dans la réponse : ne donne pas satisfaction |
|||
#https://www.unix.com/shell-programming-and-scripting/154945-awk-multiple-character-delimiter.html |
|||
#champs=$(echo "$qcm" | awk -v field=$num_champs 'BEGIN {FS="[,]+";}{print $field}') |
|||
|
|||
#reponse="$reponse $champs" |
|||
#([ $i -eq 1 ] && echo "champs = $champs" && reponse="$champs" && echo "reponse = $reponse") || reponse+=" $champs" |
|||
if [ $i -eq 1 ]; then reponse="$champs"; else reponse+=" $champs"; fi |
|||
|
|||
((i++)) |
|||
done |
|||
echo "$reponse" |
|||
|
|||
} |
|||
|
|||
#### |
|||
# Comparer les sous-reponses de deux qcm pour la question N |
|||
# $1 : numéro de la question |
|||
# $2 : qcm |
|||
# $3 : qcm |
|||
function reponses_identiques_n () |
|||
{ |
|||
n=$1 |
|||
qcm_1=$2 |
|||
qcm_2=$3 |
|||
|
|||
echo "*** debug reponses_identiques_n $n" |
|||
r1=$(reponses_n $n "$qcm_1") |
|||
r2=$(reponses_n $n "$qcm_2") |
|||
echo "* r1 : $r1 / r2 : $r2 *" |
|||
|
|||
|
|||
[ "$r1" == "$r2" ] |
|||
# si le test est vrai retourne 0 sinon retourne 1 |
|||
} |
|||
|
|||
|
|||
#### |
|||
# Compare séquentiellement 2 qcm jusqu'à rencontrer une différence entre les réponses. |
|||
# Retourne un Exit status = numéro de la réponse pour laquelle on rencontre une différence |
|||
# $1 : qcm |
|||
# $2 : qcm |
|||
qcm_identiques () |
|||
{ |
|||
|
|||
qcm_1=$1 |
|||
qcm_2=$2 |
|||
i=1 |
|||
|
|||
while [ $i -le $(nb_questions) ] |
|||
do |
|||
#if reponses_identiques_n $i "$qcm_1" "$qcm_2" |
|||
#then |
|||
# ((i++)) |
|||
#else |
|||
# #echo "différence : réponse #$i" |
|||
# return |
|||
#fi |
|||
|
|||
# alternative If...Then...Else : |
|||
reponses_identiques_n $i "$qcm_1" "$qcm_2" && ((i++)) && echo "$i" || return |
|||
done |
|||
|
|||
} |
|||
|
|||
|
|||
#### |
|||
# Compter le nombre de réponses juste d'un qcm à évaluer par rapport au qcm de référence |
|||
# |
|||
|
|||
# $1 : qcm de référence |
|||
# $2 : qcm à noter |
|||
compter_nb_reponses_justes () |
|||
{ |
|||
qref=$1 |
|||
qeval=$2 |
|||
# nombre de réponses justes |
|||
nb_reponses_justes=0 |
|||
|
|||
# |
|||
i=1 |
|||
while [ "$i" -le "$(nb_questions)" ] |
|||
do |
|||
reponses_identiques_n $i "$qref" "$qeval" && ((nb_reponses_justes++)) |
|||
((i++)) |
|||
done |
|||
|
|||
echo $nb_reponses_justes |
|||
} |
|||
|
|||
|
|||
|
|||
|
|||
|
|||
#### |
|||
# Nombre de réponses à choix multiples qui sont 'fausses' pour une question à choix multiples |
|||
# |
|||
# Pour rappel le format d'une réponse multiple est la suivante : "Oui Non Oui [...] Non" |
|||
# $1 : numero de la question à évaluer |
|||
# $2 : qcm de référence |
|||
# $3 : qcm dont une réponse est à évaluer relativement au qcm de référence |
|||
choix_multiples_nb_reponses_fausses () |
|||
{ |
|||
num_q=$1 |
|||
nb_choix=$(nb_sous_reponses $num_q) |
|||
#nombre de sous-réponse de la question à choix multiple |
|||
|
|||
if [ $nb_choix -eq 1 ] |
|||
then |
|||
# erreur |
|||
return 1 |
|||
else |
|||
# la question est une question à choix multiple |
|||
qr=$2 |
|||
qe=$3 |
|||
reponse_r=($(reponses_n $num_q "$qr")) |
|||
reponse_e=($(reponses_n $num_q "$qe")) |
|||
reponses_fausses=0 |
|||
|
|||
i=1 |
|||
while [ $i -le $nb_choix ] |
|||
do |
|||
[ "${reponse_r[(($i-1))]}" != "${reponse_e[(($i-1))]}" ] && ((reponses_fausses++)) |
|||
((i++)) |
|||
done |
|||
fi |
|||
|
|||
echo "$reponses_fausses" |
|||
} |
|||
|
|||
|
|||
#### |
|||
# Noter de manière assez cool un qcm. |
|||
# On attribue : |
|||
# '0.5' points pour les questions à choix multiples pour lesquelles il y a UNE ET UNE SEULE réponses fausse |
|||
# '1.0' points pour toute question dont la réponse est parfaite |
|||
# $1 : qcm de référence |
|||
# $2 : qcm à noter |
|||
note_laxiste_qcm () |
|||
{ |
|||
qref=$1 |
|||
qeval=$2 |
|||
# evaluation du qcm |
|||
note=0 |
|||
|
|||
# |
|||
i=1 |
|||
while [ "$i" -le "$(nb_questions)" ] |
|||
do |
|||
reponses_identiques_n $i "$qref" "$qeval" && note=$(echo "$note + 1" | bc -l) |
|||
|
|||
# cas réponse non-identique : |
|||
if [ $? -eq 1 ] |
|||
then |
|||
# si la questions est à choix multiples : |
|||
if ($(nb_sous_reponses $i) > 1) |
|||
then |
|||
if (choix_multiples_nb_reponses_fausses |
|||
else |
|||
fi |
|||
|
|||
|
|||
|
|||
else |
|||
fi |
|||
|
|||
|
|||
|
|||
((i++)) |
|||
done |
|||
|
|||
echo $note |
|||
} |
|||
|
|||
#### |
|||
# fonction de déboggage |
|||
# Afficher toutes les réponses d'un qcm |
|||
# $1 : qcm |
|||
# |
|||
debug_reponses_n () |
|||
{ |
|||
qcm="$1" |
|||
|
|||
i=1 |
|||
while [ $i -le $(nb_questions) ] |
|||
do |
|||
echo "$i" |
|||
echo "$(reponses_n $i "$qcm")" |
|||
((i++)) |
|||
done |
|||
|
|||
|
|||
|
|||
} |
|||
|
|||
|
|||
########################## |
|||
# Main |
|||
########################## |
|||
|
|||
|
|||
#echo "nombre de questions : $(nb_questions)" |
|||
|
|||
#i=1 |
|||
#question_a_choix_multiple $i |
|||
#ret=$? |
|||
#echo "Est-ce que la question $i est à choix multiple ? : $ret" |
|||
|
|||
#i=14 |
|||
#echo -n "debug sur la question $i, est-elle identique ? : " |
|||
#reponses_identiques_n $i "$solution" "$eleve" |
|||
#echo $? |
|||
|
|||
#debug_reponses_n "$eleve" |
|||
|
|||
|
|||
exit |
|||
Write
Preview
Loading…
Cancel
Save
Reference in new issue