Skip to content

Instantly share code, notes, and snippets.

@mbeijen
mbeijen / odbc-unicode-test.pl
Last active December 28, 2015 20:49
I tried this with DBD::ODBC 1.43 and 1.46_1 on Windows, against SQL Server 2012. Result is here: https://gist.github.com/mbeijen/5a497e05e0739ef93ce9
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use DBI qw(:utils);
my $dbh =
DBI->connect( 'DBI:ODBC:driver={SQL Server};Server=localhost;Database=test','user','pass')
@mbeijen
mbeijen / jsonb.pl
Created January 18, 2015 21:21
use jsonb with '?' operator - for blog post https://huntingbears.nl/?p=86
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use DBD::Pg 3.5.0;
my $dbh = DBI->connect("dbi:Pg:", '', '',
{
AutoCommit => 1,
From 3c4342d182f8e7b1ea9a8d907de65ec6338b4d53 Mon Sep 17 00:00:00 2001
From: Pali <pali@cpan.org>
Date: Sat, 24 Sep 2016 14:47:59 +0200
Subject: [PATCH] Do not use unsafe sprintf w/variable length input
This can cause a buffer overflow to occur when reporting
error message about validation of (untrusted) user input parameters.
---
dbdimp.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
@mbeijen
mbeijen / # batik - 2018-06-02_11-34-20.txt
Created June 2, 2018 09:40
batik on macOS 10.13.4 - Homebrew build logs
Homebrew build logs for batik on macOS 10.13.4
Build date: 2018-06-02 11:34:20
@mbeijen
mbeijen / netcap
Created February 26, 2026 13:36
netcap: capture and sum bytes send for command
#!/usr/bin/env bash
set -euo pipefail
if [[ $# -lt 1 ]]; then
echo "usage: netcap <command> [args...]"
exit 1
fi
RAND=$(head -c 32 /dev/urandom | tr -dc a-z0-9 | head -c 6)
NS="netcap-$RAND"