subroutine in variabile

[MIG]

Vorrei che il programma redirezionasse l'esecuzione a subroutines diverse a seconda del valore passato dal form alla var locale $i (es.5) che forma a sua volta la var $scelta (contiene il nome delle sub: es. select_db5).
NB $i è un valore proveniente da form con valore variabile tra 0 e 9;


$i = $FORM{"valore"};

$scelta=”select_db”.$i;

&.$scelta; <- riga che non funziona: cosa sbaglio nella grammatica?




sub select_db0 {
....istruzioni varie }

sub select_db1 {
....istruzioni varie }

sub select_db2 {
....istruzioni varie }

Grazie

[MIG]

In pratica vorrei bypassare le scelte condizionali, ossia non vorrei crearmi:

if ($i =0) {&select_db0}
else if ($i =1) {&select_db1}
else if ($i =2) {&select_db2}
else if ($i =3) {&select_db3}
.....


Non esiste un'istruzione select case?

[Mich_]

Intendi uno switch?

switch($i) {
  case 0: 
    &select_db0;
    break;
  case 1: 
    &select_db1;
    break;
  case 2: 
    &select_db2;
    break;
  ....
  default:
    ....
}

Ciao
Michele

[shishii]

Ciao,

gli switch in perl non esistono, vengono sostituiti da una serie di if... elsif... else

Quello che vuoi fare è creare un reference simbolico, cosa possibile ma altamente sconsigliata, per cui se non sei costretto usa gli if.

Ad ogni modo la sintassi esatta è:

&$scelta;

[MIG]

Proprio quello.

Grazie Mich

[MIG]

Mi sembrava strano ci fosse SWITCH in perl!

Beh comunque grazie ad entrambi

[MIG]

Shishii, perché &$scelta è una cosa altamente sconsigliabile???
A me pare funzioni correttamente!!

Dimmi: è meglio rimpiazzare con gli if, ma non aumenterebbe il tempo di esecuzione e discriminazione??
sarebbero 9 if annidati!! troppi secondo me!

[shishii]

Ciao,

i reference simbolici sono uno strumento residuale, da usare solo quando non è possibile altro, per i seguenti motivi:

- sicurezza: in pratica affidi la costruzione della variabile all'utente.

- debug: diviene molto difficoltoso in quanto il nome della variabile non esiste in maniera stabile nella tabella dei simboli.

- prestazioni: l'interprete effettua queste operazioni in maniera più lenta del normale.

Tanto è vero che se tu usassi il pragma
use strict;

obbligatorio per chi fa buona programmazione il tuo programma genererebbe un errore irreversibile.

Gli if non sono per nulla annidati ma tutti sullo stesso piano e perl non ha problemi a gestire la miseria di 9 alternative.

[MIG]

Indiscutibilmente preciso.

Grazie.