-+  Associazione
-+  Documenti
 |-  Modern Perl
 |-  Bibliografia
 |-  Articoli
 |-  Talk
 |-  Perlfunc
 |-  F.A.Q.
 |-  F.A.Q. iclp
-+  Eventi
-+  Community
-+  Blog
-+  Link
Corso di Perl



 

Assegnazione palline in un tennis club di Michele Beltrame

Versione stampabile.

1. Introduzione 2. Codice Sorgente (parte 1) 3. Discussione (parte 1) 4. Codice sorgente (parte 2: subroutine) 5. Discussione sulle subroutine 6. Estensioni 

Codice Sorgente (parte 1)

 #!/usr/bin/perl -w

 use strict;
 use threads;
 use threads::shared;

 # ### Tennis club ###

 # Palline da tennis del club
 my $pallinetot = 270;

 # Palline correnti
 my $palline : shared = $pallinetot;

 # ### Giocatori ###

 # Nomi
 my @nomi = (
             'Beppe', 'Michele', 'Laura', 'Marco', 'Elena',
             'Mauro', 'Stefania', 'Mirka', 'Agenore', 'Cosimo',
             'Alessandro', 'Valentina', 'Denis', 'Sabrina', 'Anna',
             'Nicola', 'Luca', 'Frida', 'Gliano', 'Asdrubale',
             'Lisa', 'Elisa', 'Louis', 'Ernesto', 'Loris',
             );

 # Massimo tempo per completare la partita
 my $tempomax = 20;

 # Tempo di attesa se le palline sono rifiutate per riprovare
 my $tempobar = 2;

 # Tempo di attesa tra la restituzione delle palline e una nuova partita
 my $tempoidl = 3;

 # Massimo numero di palline che possono richiedere
 my $pallinemaxe = 25;

 # ### Programma principale ###

 # Crea i thread giocatori
 my @g;
 for my $i(0..$#nomi) {
     $g[$i] = threads->new(\&giocatore, $nomi[$i]);
 }

 # Attende la fine prima di uscire (non esce mai)
 for my $i(0..$#nomi) {
     $g[$i]->join();
 }

‹‹ Introduzione

Discussione (parte 1) ››

D:
Progetti e documenti in rilievo
Corso di Perl Progetto pod2it
D:
La ML di Perl.it
mongers@perl.it è la lista ufficiale di Perl Mongers Italia per porre quesiti di tipo tecnico, per rimanere aggiornato su meeting, incontri, manifestazioni e novità su Perl.it.
Iscriviti!
D:
Annunci Google