Revision a8adbdb35428201402acbb2c253412cf57170731 authored by Elliot Blackburn on 02 April 2019, 20:40:35 UTC, committed by Elliot Blackburn on 02 April 2019, 20:40:35 UTC
1 parent 75de5ff
perl-example.pl
#! /usr/bin/perl
# example perl code for Etsy StatsD
# Steve Sanbeg http://www.buzzfeed.com/stv
# host and port are passed in as command line options, default to
# localhost & 8125.
use strict;
use warnings;
use Getopt::Long;
use lib '.';
use Etsy::StatsD;
my %opt;
GetOptions(\%opt, 'host=s', 'port=s', 'sample=f', 'time=f', 'increment', 'decrement', 'update=i') or die;
my $bucket = shift or die "Need to provide a bucket";
my $statsd = Etsy::StatsD->new($opt{host}, $opt{port}, $opt{rate});
if ($opt{time}) {
$statsd->timing($bucket,$opt{time});
}
if ($opt{increment}) {
$statsd->increment($bucket);
}
if ($opt{update}) {
$statsd->update($bucket, $opt{update});
}
if ($opt{decrement}) {
$statsd->decrement($bucket);
}
Computing file changes ...
