Skip to content

Instantly share code, notes, and snippets.

View fskale's full-sized avatar

Franz Skale fskale

View GitHub Profile
@fskale
fskale / disk-stats-nb.pl
Created August 6, 2018 08:51
Non-blocking disk stats using Mojolicious Framework
#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::File 'path';
use Mojo::Collection 'c';
use Mojo::IOLoop;
use Mojo::JSON 'j';
use Mojo::Util 'getopt';
use Number::Bytes::Human;
BEGIN {
@fskale
fskale / cpu-stats-nb.pl
Created August 3, 2018 09:15
Non Blocking CPU Stats (1s) using Mojo::IOLoop:Delay
#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::File 'path';
use Mojo::Collection 'c';
use Mojo::IOLoop;
use Mojo::JSON 'j';
BEGIN {
#only linux is supported !
#!linux
@fskale
fskale / cpu-stat.pl
Last active July 28, 2018 09:50
CPU Usage percentage summary using Mojolicious Non-blocking IO (EV) feature.
#!/usr/bin/env perl
use Mojo::Base -strict;
use Mojo::File 'path';
use Mojo::Collection 'c';
use Mojo::IOLoop;
BEGIN {
#only linux is supported !
#!linux
die( sprintf( "OS %s not supported !\n", $^O ) ) if $^O ne 'linux';