Skip to content

Instantly share code, notes, and snippets.

@mcsnolte
mcsnolte / badchars.pl
Created September 12, 2016 18:57
Finds characters you probably don't need
#!/usr/bin/env perl
use strict;
use warnings;
use open qw(:std :utf8);
my %badchars;
while (my $line = <>) {
my @bad = ( $line =~ m/([^[:print:][:space:]])/g); # find all bad characters
if (@bad) {
@mcsnolte
mcsnolte / .psqlrc
Created December 2, 2015 20:03
psql helpers to enable CSV output
\set csvon '\\f '','' \\t off \\timing off \\pset format unaligned \\pset border 0 \\pset footer off'
\set csvoff '\\f ''|'' \\t off \\timing on \\pset format aligned \\pset border 2 \\pset footer on'