Guida avanzata di scripting Bash - Portale Posta DMI

Capitolo 11. Comandi interni e builtin
rm /var/lock/LCK..ttyS3 # Cancella il lock file della porta seriale. Perché?
exit 0
# Esercizi:
# --------
# 1) Lo script deve verificare se è stato root ad invocarlo.
# 2) Effettuate un controllo per verificare che, prima di tentarne la chiusura,
#+ il processo che deve essere terminato sia effettivamente in esecuzione.
# 3) Scrivete una versione alternativa dello script basata su ’fuser’:
#+ if [ fuser -s /dev/modem ]; then . . .
Esempio 11-13. Una versione di “rot13”
#!/bin/bash
# Una versione di "rot13" usando ’eval’.
# Confrontatelo con l’esempio "rot13.sh".
impvar_rot_13() # Codifica "rot13"
{
local nomevar=$1 valoreval=$2
eval $nomevar=’$(echo "$valoreval" | tr a-z n-za-m)’
}
impvar_rot_13 var "foobar" # Codifica "foobar" con rot13.
echo $var # sbbone
impvar_rot_13 var "$var" # Codifica "sbbone" con rot13.
# Ritorno al valore originario della variabile.
echo $var # foobar
# Esempio di Stephane Chazelas.
# Modificato dall’autore del documento.
exit 0
Rory Winston ha fornito il seguente esempio che dimostra quanto possa essere utile eval.
Esempio 11-14. Utilizzare eval per forzare una sostituzione di variabile in uno script Perl
Nello script Perl "test.pl":
...
my $WEBROOT = ;
...
Per forzare la sostituzione di variabile provate:
$export WEBROOT_PATH=/usr/local/webroot
$sed ’s//$WEBROOT_PATH/’ < test.pl > out
Ma questo dà solamente:
my $WEBROOT = $WEBROOT_PATH;
204