Fungsi time() di Perl

Dalam bahasa pemrograman Perl memiliki fungsi built-in time(). Fungsi ini mengembalikan sebuah integer — jumlah detik sejak awal era. Hampir semua sistem modern waktu mulai adalah nol detik, nol menit nol jam pertama januari 1970 di zona waktu UTC (1970-01-01T00:00:00Z). Nomor ini sering disebut timestamp.

Berikut adalah contoh menggunakan fitur ini:

▶ Run
#!/usr/bin/perl

print time();

Pada saat penulisan ini, program ini membawa jumlah 1577113985yang sesuai untuk tanggal 2019-12-23T15:13:05Z.

Argumen

Fungsi time() tidak menerima argumen. Jika anda mencoba untuk memberikan sebuah argumen, maka akan error:

▶ Run
#!/usr/bin/perl

print time(8);

Berikut adalah output:

syntax error at script.pl line 3, near "(8"
Execution of script.pl aborted due to compilation errors.

Presisi

Fungsi time() (alias CORE::time()) mengembalikan jumlah dari seluruh detik sejak awal era. Jika akurasi yang kedua adalah tidak cukup, anda dapat menggunakan fungsi Time::HiRes::time(), yang mengembalikan jumlah float jumlah detik sejak awal era.

Contoh program yang menunjukkan penggunaan dua fungsi ini:

▶ Run
#!/usr/bin/perl

use feature qw(say);

use Time::HiRes;

say time();
say Time::HiRes::time();

Contoh output:

1577116390
1577116390.36876

Dokumentasi resmi

Berikut ini adalah output dari perintah perldoc -f time:

       time    Returns the number of non-leap seconds since whatever time the
               system considers to be the epoch, suitable for feeding to
               "gmtime" and "localtime".  On most systems the epoch is
               00:00:00 UTC, January 1, 1970; a prominent exception being Mac
               OS Classic which uses 00:00:00, January 1, 1904 in the current
               local time zone for its epoch.

               For measuring time in better granularity than one second, use
               the Time::HiRes module from Perl 5.8 onwards (or from CPAN
               before then), or, if you have gettimeofday(2), you may be able
               to use the "syscall" interface of Perl.  See perlfaq8 for
               details.

               For date and time processing look at the many related modules
               on CPAN.  For a comprehensive date and time representation look
               at the DateTime module.

Artikel lainnya