Skip to content

Instantly share code, notes, and snippets.

View fgabolde's full-sized avatar

Fabrice Gabolde fgabolde

View GitHub Profile
@fgabolde
fgabolde / truncated-blobs-in-zk.pl
Last active September 18, 2015 14:41
Blobs containing NUL bytes are truncated when written to ZooKeeper nodes
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
use Carp;
use autodie;
use utf8;
use Devel::Peek;
@fgabolde
fgabolde / detect-unused-variables.pl
Created January 5, 2015 13:47
Use PPI to detect variables that are declared and never referred to again.
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;
use PPI;
@fgabolde
fgabolde / splitterify.pl
Created April 28, 2014 10:02
Use IO::Scalar to read data chunks line by line
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;
use IO::Scalar;
@fgabolde
fgabolde / dump-to-csv.pl
Created March 20, 2014 11:05
Dump database query to CSV
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;
use DBI;
@fgabolde
fgabolde / rindtroup.pl
Created March 13, 2014 15:40
Trying and failing to trip Email::Simple::Header's folding and unfolding routines
#!perl
use strict;
use warnings;
use 5.010;
use Carp;
use Data::Dumper;
use Email::Simple::Header;
@fgabolde
fgabolde / init.el
Created March 11, 2014 09:41
Example imenu configuration
;; keybinding to summon up imenu
(require 'imenu)
(global-set-key (kbd "C-c C-d") 'imenu)
;; display current defun in modeline
(which-function-mode 1)
(custom-set-variables
'(imenu-after-jump-hook (quote ((lambda nil (recenter 10)))))
'(imenu-auto-rescan t))
@fgabolde
fgabolde / baggins.pl
Created January 28, 2014 09:16
(unsuccessful) attempt to tally module usage
package EyeOfSauron;
use strict;
use warnings;
use 5.010;
use Carp;
# THE EYE SEES ALL, THE EYE KNOWS ALL
my %fellowship;
@fgabolde
fgabolde / packaged-classes.pl
Created January 1, 2014 13:24
p5 packages and mop classes, and how they interact
#!perl
use strict;
use warnings;
use 5.010;
use Carp;
use Test::More;
use Test::Exception;
@fgabolde
fgabolde / Plomo.pm
Created December 27, 2013 10:14
Example Floop app with sugar applied.
use strict;
use warnings;
use 5.010;
use Carp;
use mop;
use Floop::Confectionery;
class Plomo extends Floop {
@fgabolde
fgabolde / smarter-exception.pl
Last active December 21, 2015 01:39
A simple exception class that detects when it's being caught.
#!perl
package SmartLoggingException;
use strict;
use warnings;
use 5.010;
use Carp;
use Devel::StackTrace;