Perl/Applicare la teoria: differenze tra le versioni

Wikibooks, manuali e libri di testo liberi.
Contenuto cancellato Contenuto aggiunto
Nessun oggetto della modifica
Diablo (discussione | contributi)
mNessun oggetto della modifica
Riga 64: Riga 64:


Se siete riusciti a seguire fino qui allora ... è ora di proseguire la lettura !
Se siete riusciti a seguire fino qui allora ... è ora di proseguire la lettura !

[[Categoria:Linguaggio Perl|Applicare la teoria]]

Versione delle 17:35, 15 mar 2007

Si è visto finora tante nozioni , vediamo "nel poco possibile" cosa si può fare:

1) Creiamo un array con i giorni della settimana :

@g_sett = ( "lun" , "mar" , "mer" , "gio" , "ven" , "Sab" , "Dom" );

2) Creiamo un Hash con la corrispondenza giorni della settimana , numero del giorno : ( lun = 1 , Dom = 7 )

for ( $a = 0 ; $a < @g_sett ; $a++ )
{
    $giorno = $g_sett[$a];
    $g_sett_it{$giorno} = $a+1;
}

oppure

$a = 1;
foreach $g ( @g_sett )
{
   $g_sett_it{$g} = $a++;
}

3) Creiamo un Hash con la corrispondenza numero del giorno , giorni della settimana ( senza usare @g_sett .... )

foreach $K ( keys %g_sett_it )
{
    $num = $g_sett_it{$K};
    
    $num_g_sett_it{$num} = $K;
}

4) Creiamo una stringa così formata "uno due tre quattro cinque sei sette"

$str = "uno due tre quattro cinque sei sette ";

5) Dividiamo il contenuto il pezzi in modo da ottenere le parole separate:

@num_a_lettere = split ( " " , $str );

6) Creiamo un altro hash dei giorni della settimana che abbia, al posto dei numeri, le stringhe che rappresentano i numeri:

NOTA : i giorni della settimana e i numeri sono "ordinati" e corrispondenti !

for ( $a = 0 ; $a < @g_sett ; $a++ )
{
    $giorno = $g_sett[$a];
    $num = $num_a_lettere[$a];
    $g_sett_lett_it{$giorno} = $num;
}

7) Ora elenchiamo i giorni della settimana come nomegiorno , numero

foreach $g ( @g_sett ) # Così sono ordinati da lun a Dom
{
    print "giorno : $g , numero $g_sett_it{$g} \n";
}

8) Ora facciamo la stessa cosa ma con i numeri "letterali" :

foreach $g ( @g_sett ) # Così sono ordinati da lun a Dom
{
    print "giorno : $g , numero $g_sett_lett_it{$g} \n";
}

Se siete riusciti a seguire fino qui allora ... è ora di proseguire la lettura !