Skip to content

Instantly share code, notes, and snippets.

View haoess's full-sized avatar

Frank Wiegand haoess

27 followers · 9 following
View GitHub Profile
@haoess
haoess / gist:784493
Created January 18, 2011 14:30
#!/bin/bash
xmlstarlet sel -N tei="http://www.tei-c.org/ns/1.0" -t -f -o " " -m "//tei:bibl[@type='source']/tei:title" -c "." -n pj10*/*Z.xml | perl -0777 -nE 's/xmlns="[^"]+"//g;s/\.\.\/database\/journals\/journals. xml/\&journals;/g;s/\s{2,}/ /g;s/([^>])\n/\1/g;s/xml\s/xml\n/g;s/\s(pj\d{3})/\n\1/g;print "$_\n"' | grep '\(pj\|jour"\)' | perl -nE 'chomp;if(/^pj/){$v=$_}else{$v{$v}++}; END { printf "%s: %d\n", $_, $v{$_} for sort { $v{$a} cmp $v{$b} } keys %v}'
@haoess
haoess / mysql_table_size.sql
Created November 2, 2010 08:52
List out one database, and each tables size in detail
SELECT table_name, table_rows, data_length, index_length,
round(((data_length + index_length) / 1024 / 1024),2) "Size in MB"
FROM information_schema.TABLES WHERE table_schema = "schema_name";
-- thanks to http://www.mkyong.com/mysql/how-to-calculate-the-mysql-database-size/
@haoess
haoess / gist:204857
Created October 8, 2009 08:17
% perl -e 'goto qq.\010.x0x11.qq.Just another Perl hacker,\n.'
Just another Perl hacker,
@haoess
haoess / gist:204368
Created October 7, 2009 19:45
% perl -e 'goto qq.\010.x0x11.q.Just another Perl hacker,.'
Just another Perl hacker, at -e line 1.
@haoess
haoess / gist:204357
Created October 7, 2009 19:32
% perl -e 'goto("\010"x0x11)."Just another Perl hacker,"'
Just another Perl hacker, at -e line 1.
@haoess
haoess / gist:203370
Created October 6, 2009 20:18
% perl5.11.0 -e 'eval { $::{"@"}="" }'
perl5.11.0: sv.c:4312: Perl_sv_setpvn: Assertion `sv' failed.
zsh: abort LC_ALL=C /opt/perl/bleadperl/bin/perl5.11.0 -e 'eval { $::{"@"}="" }'
@haoess
haoess / gist:203357
Created October 6, 2009 19:59
% perl5.11.0 -le 'eval { undef *$_ } for keys %::'
Attempt to free unreferenced scalar: SV 0x2866aa0, Perl interpreter: 0x283c010.