Differenze tra le versioni di "Perl/Applicare la teoria"

nessun oggetto della modifica
(cambio avanzamento a 50%)
1) Creiamo un array con i giorni della settimana :
 
<source lang=perl>
<source lang=perl> @g_sett = ( "lun" , "mar" , "mer" , "gio" , "ven" , "Sab" , "Dom" );</source>
}</source>
oppure
<source lang=perl>
@g_sett = qw( lun mar mer gio ven Sab Dom );
</source>
 
2) Creiamo un Hash usando l'array @g_sett con la corrispondenza giorni della settimana , numero del giorno : ( lun = 1 , Dom = 7 )
<source lang=perl>
for ( $a = 0 ; $a < @g_sett ; $a++ )
{
$giorno = $g_sett[$a];
$g_sett_ith_gs_ng{$giorno} = $a+1;
}
}</source>
</source>
 
oppure
<source lang=perl>
foreach $g ( @g_sett )
{
$g_sett_ith_gs_ng{$g} = $a++;
}</source>
oppure
<source lang=perl>
@h_gs_ng(@g_sett) = ( 1 .. 7 );
</source>
 
3) Creiamo un Hash conusando la%h_gs_ng corrispondenzama numero del giorno , giornicon dellai settimanavalori (al senzaposto usaredelle @g_settchiavi ....e )viceversa
<source lang=perl>
foreach $K ( keys %g_sett_ith_gs_ng )
{
$num = $g_sett_it{$K};
$num_g_sett_ith_ng_gs{$num} = $K;
}
</source>
 
4) Creiamo una stringa così formata "uno due tre quattro cinque sei sette"
<source lang=perl>
$giorno = $g_sett[$a];
$num = $num_a_lettere[$a];
$g_sett_lett_ith_sett_lett_it{$giorno} = $num;
}
</source>
foreach $g ( @g_sett ) # Così sono ordinati da lun a Dom
{
print "giorno : $g , numero $g_sett_ith_sett_it{$g} \n";
}
</source>
foreach $g ( @g_sett ) # Così sono ordinati da lun a Dom
{
print "giorno : $g , numero $g_sett_lett_ith_sett_lett_it{$g} \n";
}</source>
 
195

contributi