[Linux-Biella] goto

[vallini.daniele a bilug.linux.it]

Sat, Dec 31, 2011 at 12:59:18AM +0100  ledi salillari ha scritto: 

> ps. luca, da te mi aspetto anche le schede perforate ;)
> sei troppo un dinosauro! solo fammi una cortesia, se ti capitasse di scrivere
> del codice, non usare il goto, che   un insulto all'evoluzione, per favore!

Ultimamente non uso piu' le schede perforate pero' a volte uso ancora
il goto.

Capisco la tua osservazione pero' ho ancora trovato in perl comodo il
goto per gestire le opzioni di scelta che richiamano specifiche
funzioni.

Cosi' ad esempio in perl:

ini: ##########   AVVIO PROGRAMMA LETTURA DATI TELEBORSA

print "
$gn  lettura quotazioni da http://www.teleborsa.it
$gn -----------------------------------------------

$Rn (1) $gn Indici
$Rn (2) $gn Cambi
$Rn (3) $gn All-Share
$Rn (4) $gn Etc
$Rn (5) $gn Etf
$Rn (<) $gn exit
$z";

$x=<STDIN>;
if ($x =~ "1")  {goto indici;}
if ($x =~ "2")  {goto cambi;}
if ($x =~ "3")  {goto allshare;}
if ($x =~ "4")  {goto etc;}
if ($x =~ "5")  {goto etf;}
if ($x =~ "<")  {exit;}
else            {goto ini;}

(Quelle variabili $Rn, $gn, $z richiamano semplicemente sequenze ANSI
per colorare il testo dell'interfaccia utente)