UV::Util - Some utility functions from libUV.
UV::Util is being released as a learning process that will hopefully be folded into a more complete set of modules allowing use of libUV with Perl later. In other words, this will be more useful later. If it happens to be useful now, that's awesome. If not, hopefully it will be soon. Until then, please let me know of any errors during installation or of anything I can do to make this better.
#!/usr/bin/env perl use strict; use warnings; use feature ':5.14'; use Data::Dumper::Concise qw(Dumper); use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::cpu_info(); } catch { die "Aw, man. $@"; }
This module provides access to a few of the functions in the miscellaneous libUV utilities. While it's extremely unlikely, all functions here can throw an exception on error unless specifically stated otherwise in the function's description.
UV::Util makes the following constants available that represent different handle types.
All functions provided here provide a Perl interface to their libUV equivalents.
use Data::Dumper; use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::cpu_info(); } catch { die "Aw, man. $@"; } say Dumper $res; # [ # { # cpu_times => { # idle => "1157161200", # irq => 19912800, # nice => 242400, # sys => 8498700, # user => 39428000 # }, # model => "Intel(R) Core(TM) i7-7700HQ CPU \@ 2.80GHz", # speed => 1048 # }, # { # cpu_times => { # idle => 16922900, # irq => 846300, # nice => 371800, # sys => 6491400, # user => 34690000 # }, # model => "Intel(R) Core(TM) i7-7700HQ CPU \@ 2.80GHz", # speed => 899 # } # ]
This function returns an array reference full of hashrefs. Each hashref represents an available CPU on your system. cpu_times, model, and speed will be supplied for each.
cpu_times
model
speed
use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::get_free_memory(); } catch { die "Aw, man. $@"; } say $res; # 23052402688
This function returns an unsigned integer representing the number of bytes of free memory available.
use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::get_total_memory(); } catch { die "Aw, man. $@"; } say $res; # 33452101632
This function returns an unsigned integer representing the number of bytes of total memory in the system.
use Data::Dumper; use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::getrusage(); } catch { die "Aw, man. $@"; } say Dumper $res; # { # ru_idrss => 0, # ru_inblock => 0, # ru_isrss => 0, # ru_ixrss => 0, # ru_majflt => 0, # ru_maxrss => 10132, # ru_minflt => 1624, # ru_msgrcv => 0, # ru_msgsnd => 0, # ru_nivcsw => 1, # ru_nsignals => 0, # ru_nswap => 0, # ru_nvcsw => 1, # ru_oublock => 0, # ru_stime => "0.005963", # ru_utime => "0.02801" # }
This function returns a hash reference of resource metrics for the current process.
use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::guess_handle_type(\*STDIN); } catch { die "Aw, man. $@"; } say "yay!" if ($res == UV::Util::UV_TTY);
This function takes in a reference to a handle (e.g. \*STDIN) and returns an integer that represents one of the CONSTANTS above.
\*STDIN
use UV::Util; # does not throw exceptions my $time = UV::Util::hrtime();
This function returns the current high-resolution real time. This is expressed in nanoseconds. It is relative to an arbitrary time in the past. It is not related to the time of day and therefore not subject to clock drift. The primary use is for measuring performance between intervals.
Not every platform can support nanosecond resolution; however, this value will always be in nanoseconds.
use Data::Dumper qw(Dumper); use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::interface_addresses(); } catch { die "Aw, man. $@"; } say Dumper $res; # [ # { # address => "127.0.0.1", # is_internal => 1, # mac => "00:00:00:00:00:00", # name => "lo", # netmask => "255.0.0.0" # }, # ]
This function returns an array reference containing hash references representing each of your available interfaces.
use Data::Dumper qw(Dumper); use UV::Util; # does not throw exceptions my $res = UV::Util::loadavg(); say Dumper $res; # [ # "0.43212890625", # "0.39599609375", # "0.27880859375" # ]
This function returns an array reference containing the load average.
On Windows, this will always return [0,0,0] as it's not implemented.
[0,0,0]
use Data::Dumper qw(Dumper); use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::resident_set_memory(); } catch { die "Aw, man. $@"; } say Dumper $res; # 10473472
This function returns an unsigned integer representing the resident set size (RSS) for the current process.
use Data::Dumper qw(Dumper); use UV::Util; use Syntax::Keyword::Try; my $res; try { $res = UV::Util::uptime(); } catch { die "Aw, man. $@"; } say Dumper $res; # 603468
This function returns a float representing the current system uptime.
use UV::Util; say UV::Util::version(); # 1.9.1
This function returns the libUV version number as a string. Does not throw errors.
Copyright 2017, Chase Whitener.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install UV::Util, copy and paste the appropriate command in to your terminal.
cpanm
cpanm UV::Util
CPAN shell
perl -MCPAN -e shell install UV::Util
For more information on module installation, please visit the detailed CPAN module installation guide.