Classe

#!/bin/csh
#Neste script o utilizador tem a possibilidade de eliminar ficheiros, cadeiras, perguntas, soluções ou corriguir respostas previamente criados set op = "" set cad = "" set per = "" set numper = "" set numres = "" while ($op != "4") echo "|1 - Eliminar cadeira |" echo "|2 - Eliminar pergunta, |" echo "| resposta e solução |" echo "|3 - Corrigir resposta certa |" echo "|4 - Voltar ao menu anterior |" echo " ----------------------------- " set op = $< switch ($op) #opção para eliminar uma cadeira case "1": echo "|Indique a sigla da cadeira: |" set cad = $< #elimina o directorio da cadeira rm -r ./testbattery/$cad echo " ----------------------------- " breaksw case "2": #opção para eliminar uma pergunta, resposta e solução #inicialmente solicita ao utilizador qual a disciplina para a qual pretende eliminar uma resposta echo "|Indique a cadeira: |" set cad = $< echo " ----------------------------- " cat ./testbattery/$cad/"q_$cad.txt" echo " ----------------------------- " #verifica se existem perguntas referentes à disciplina @ numper = `cat ./testbattery/$cad/q_$cad.txt | grep : | cut -c2 | tail -1` if ($numper == "0") then echo "|Não existem perguntas! |" else echo "|Indique o numero da pergunta:|" set numper = $< echo " ----------------------------- " #copia para um ficheiro temporário toda a informação excepto a questão que pretende eliminar sed -e '/P'$numper':/d' ./testbattery/$cad/q_$cad.txt > ./testbattery/$cad/q_"$cad"temp.txt #copia para um ficheiro temporário toda a informação excepto as respostas que pretendem eliminar sed -e '/P'$numper':/d' ./testbattery/$cad/rq_$cad.txt > ./testbattery/$cad/rq_"$cad"temp.txt #copia para um ficheiro temporário toda a informação excepto a solução que pretende eliminar sed -e '/P'$numper' /d'