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



 


indietro

[17] Come posso misurare intervalli di tempo inferiori al secondo?

In generale, potreste non essere in grado di farlo. Il modulo Time::Hires (disponibile su CPAN, e parte della distribuzione standard a partire da Perl 5.8) fornisce questa funzionalità per alcuni sistemi.

Se il vostro sistema supporta la funzione syscall() in Perl e la chiamata di sistema gettimeofday(2), allora potreste esser in grado di fare qualcosa del genere:

    require 'sys/syscall.ph';
    $TIMEVAL_T = "LL";
    $fatto = $inizio = pack($TIMEVAL_T, ());
    syscall(&SYS_gettimeofday, $inizio, 0) != -1
               or die "gettimeofday: $!";
       #################################
       # FATE LE VOSTRE OPERAZIONI QUI #
       #################################
    syscall( &SYS_gettimeofday, $fatto, 0) != -1
           or die "gettimeofday: $!";
    @inizio = unpack($TIMEVAL_T, $inizio);
    @fatto  = unpack($TIMEVAL_T, $fatto);
    # converte i microsecondi
    for ($fatto[1], $inizio[1]) { $_ /= 1_000_000 }
    $delta_t = sprintf "%.4f", ($fatto[0]  + $fatto[1]  )
                                          -
                               ($inizio[0] + $inizio[1] );

vedi in inglese

AUTORE E COPYRIGHT

Copyright (c) 1997, 1998, 1999, 2000, 2001 Tom Christiansen e Nathan Torkington. Tutti i diritti riservati.

Questa documentazione è libera; puoi ridistribuirla e/o modificarla secondo gli stessi termini applicati al Perl.

Indipendentemente dalle modalitè di distribuzione, tutti gli esempi di codice in questo file sono rilasciati al pubblico dominio. Potete, e siete incoraggiati a farlo, utilizzare il presente codice o qualunque forma derivata da esso nei vostri programmi per divertimento o per profitto. Un semplice commento nel codice che dia riconoscimento alle FAQ sarebbe cortese ma non è obbligatorio.

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