hercynium

You put the stack trace into my logs
You send the load sky-high when the server starts
Hiesenbug killin’ my brain
My fingers bang on the keyboard ‘till my head does the same

The debugger ain’t helping
This code just ain’t right
Stack overflow says
I should call it a night

hercynium

Finished with my language 'cause it didn't fit in with my mind
People think I'm insane because I am coding all the time

All day long I hack on Go but nothing seems to satisfy
I'll refactor one more time to avoid dreaded DRY

Can you help me?
Perl just fits my brain!

Oh, yeah

hercynium

#!/bin/bash

set -o errexit
set -o pipefail
set -o nounset

host="$1"
port="$2"
starttls_prot="${3:-}" # xmpp, smtp, pop3, imap, or ftp (optional)

hercynium

#!/bin/bash
#
# This is a simple script to allow someone on an RPM-based
# system to build the custom opt-perl package defined by
# the RPM specfile in this same directory.
#
# @author: Stephen R. Scaffidi <sscaffidi@tripadvisor.com>
# @date: Oct. 2012
#

hercynium

#!/bin/bash
set -o errexit
set -o nounset
set -o pipefail

source /bath/to/bash-getopt

foo_dflt="wibble"

bash-getopt "$@" <<END_OPTS

hercynium

#!/bin/bash
#
# Summary:
#   This script will set up your environment et al so you can run the Hive
#   Query Tool. This script is intended to be sourced, but can be run without
#   sourcing. The /path/to/perl argument(s) are optional.
#
# Usage:
#   source setup-hqt [/path/to/perl /path/to/other/perl ...]
#   setup-hqt [/path/to/perl /path/to/other/perl ...]

hercynium

#!/bin/bash
# relpath -- Compute relative path from a given DIR to given PATHs
# Usage: relpath DIR PATH...
# 
# Example: relpath /a/b/c /a/d/e/f
#  prints: ../../d/e/f
# 
# Example: relpath /a/b/c /
#  prints: ../../../
# 

hercynium

use feature ':5.10.0';
package Foo;
use Text::Template;

# needs to be in scope for Text::Template's processing
my %data;

sub get_metadata {
  my ($tmpl) = @_;
  return Bar::get_metadata($tmpl);

hercynium

#!/bin/bash

set -e
tar czf rrds.tar.gz rrds/

find rrds/ -name '*.rrd' \
| xargs -P8 -I{} bash -c '
  set -e
  echo "{}"
  ./rrd-clone.pl "{}" "{}.new"

hercynium

#!/usr/bin/env perl

use strict;
use warnings;
use English qw( -no_match_vars );
use Data::Dumper;
use EV;
use AnyEvent;
use AnyEvent::Strict;