Perl/Applicare la teoria: differenze tra le versioni
< Perl
Contenuto cancellato Contenuto aggiunto
Nuova pagina: 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" , "ve... |
(Nessuna differenza)
|
Versione delle 17:25, 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++ ) { $g_sett_it{$g_sett[$a]} = $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"
$str = "uno due tre quattro cinque";
5) Dividiamo il contenuto il pezzi in modo da ottenere le parole separate