Skip to content

Instantly share code, notes, and snippets.

View dval-leak.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Validator;
memory_usage();
for (1 .. 200) {
View parse-pcap.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
BEGIN {
sub p($) {
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Deepcopy = 1;
View result.md

redis-traffic-stats

Summary

  • Duration:
    • 2014-02-24 16:34:10 - 2014-02-24 16:34:13 (3s)
  • Total Traffic:
    • 43311772 bytes (14437257.33 bytes/sec)
  • Total Requests:
    • 110109 requests (Avg 36703.00 req/sec, Peak 47170.00 req/sec)
View foo.md

redis-traffic-stats

  • hello
    • world
View leak-memory.txt
not ok 1 - apply_all_roles (leaks 49 <= 0)
# Failed test 'apply_all_roles (leaks 49 <= 0)'
# at 043_leak-memory.t line 15.
# '49'
# <=
# '0'
# leaked REF(0xb83160) from /usr/local/lib/perl/5.10.1/Mouse/Meta/Module.pm line 166.
# 165:sub create {
# 166: my($self, $package_name, %options) = @_;
# 167:
View void-context.pl
use Sub::Retry;
my $ret = retry 3, 1, sub {
print "foo\n";
return 1;
}, sub {
my $ret = shift;
defined $ret ? 0: 1;
};
# =>
View e
git clone https://github.com/hirose31/Parse-Daemontools-Service.git
cd Parse-Daemontools-Service/
git-strata.rb .
...
+junk/*
+private/*
+TODO.todo
+MEMO
+xt/9*_*
diff --git a/.travis.yml b/.travis.yml
View gist:9826054
abspath() {
_CWD=$(pwd)
if [ -d "$1" ]; then
\cd $1
echo $(pwd -P)/
elif [ -f "$1" ]; then
case $1 in
*/*) \cd ${1%/*};;
esac
echo $(pwd -P)/${1##*/}
View race.pl
#!/usr/bin/env perl
# Time-stamp: <2014-04-04 16:58:12 JST, hirose31>
use strict;
use warnings;
use IO::File;
STDOUT->autoflush(1);
STDERR->autoflush(1);
use Data::Dumper;
View README.md

NAME

start-fluent-agent-lite - fluent-agent-lite launcher script

SYNOPSIS

start-fluent-agent-lite --primary-server HOST:PORT [--secondary-server HOST:PORT] -T TAG:FILE [-T TAG:FILE ...] [OTHER OPTIONS]

start-fluent-agent-lite -p SERVER_LIST_FILE [-s SERVER_LIST_FILE] -T TAG:FILE [-T TAG:FILE ...] [OTHER OPTIONS]