Newsgroup: it.comp.lang.perl
Titolo: Programma Perl

Salve a tutti! Sono uno studente di Milano che sta impazzendo con il Perl.
Avrei bisogno di una mano. C'è qualcuno che ha un programma sulla tombola?
MI spiego meglio: un programma che estragga a caso i vari novanta numeri e
li salvi su un "tabellone". Vanno bene anche qualsiasi tipo di suggerimenti
su cosa usare per crearlo.
Grazie mille!!!
Pink

su cosa usare per crearlo.
Questa è la routine di base più semplice che mi viene in mente.
Ricorda, c'è sempre più di un modo per farlo.
-- 
       ¥ 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'

Devi utlilizzare la funzione rand che restituisce un numero casuale compreso
tra 0 l'eventuale valore passato a rand
ad esempio   $num=rand 10;
restituisce un valore numerico frazionario compreso tra 0 e 10
nel caso specifico tu hai bisogno di un valore intero quindi devi abbinare a
rand la funzione int che restituisce la aprte intera di un numero decimale.
Questo arrotondamento deve essere per eccesso in modo da valutare 1
qualsiasi numero compreso tra 0 e 1 quindi devi ancora modificare il comando
rand che quindi diventerebbe
                    $num=int((rand 90)+0.99999999));
                    $num=1 if(! $num);
Tutto questo rigiro strano, mi riferisco alla somma di un numero molto
vicino a 1 serve per dare la stessa probabilità di uscire al numero 90
se infatti avessimo scritto
                    $num=int(rand 90);
                    $num=1 if(! $num);
avremmo comunque ottenuto un numero compreso tra 1 e 90 ma il novanta
avrebbe avuto meno probabilità di uscire.
E neanche posso aggiungere un numero uguale a 1 perchè innanzi tutti dovrei
spostare il limite di rand a 90 ma nel caso in cui uscisse l'intero 90
otterrei 91 il che non vale per la tua tombola!!!!
bye bye

[cut]
Grazie mille!!!
Bertini

[cut]
Grazie mille per l'aiuto.
Bertini

[cut]
Scusa la mia invadenza, ho provato a scriverti una mail (per non intasare
troppo il NG), ma mi č rimbalzata. Puoi darmi un tuo recapito di posta
elettronica? Scusa per l'invadenza.
Bertini

elettronica? Scusa per l'invadenza.
Oh beh, in realtà scusa a te e a tutto l'ng, essendo olbie di un
gruppo di cazzeggio mi devo premunire contro spam e postatori...
troppo solerti nel cazzeggio ;) 
Il mio mailaddress è lakyba(at)
tin.it
, da oggi lo terrò in sign.
-- 
       ¥ 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'     e-mail: lakyba(at)
tin.it

	     print $tabella{$pippo}.". estratto: ".$pippo."\n";
che differenza passa tra sprintf e print ?
\n indica vai a capo?
Scusate la banalità delle domande ma se non chiedo non imparo
bye

Scusate la banalità delle domande ma se non chiedo non imparo
Prego, rispondo con piacere.
Però visto che hai di queste lacune ti consiglio di leggerti prima la
guida (fai dalla liena di comando: perldoc perl).
-- 
       ¥ 
      |†|
     /    \         la scusa giusta al momento giusto : l'alcool
    |      |        non ho potuto fare i compiti : stavo bevendo
J  |  &  |  D   domani non posso andare al lavoro : devo bere
    |      |        scusa non posso sposarti : la vite mi chiama
    '-----'     e-mail: lakyba(at)
tin.it