Perl hash slices

# filling
%{ $hash } = map { $_ => 1 } @{$array};

# squashing
@{ $hash }{ @{$array} } = (1) x @{$array};
@{ $hash }{ @{$array} } = ();

Quotes

codes:  friendly  numerical  hex
    "   "    "      "
    '             '      '

I love bash

Я люблю баш:
получить имена отсортированных по размеру файлов с определённым расширением и именами, начинающимися с определённых буков, находящихся в определённой папке:

ls -S1 path/to/files*.ext

Bash: search few strings in a directory

generate_strings | xargs sh -c 'ag -l "$0" dir'

Search slashes in Vim

?/abc/def/ghi/
N

OR:

:let @/='/abc/def/ghi/'
n

http://vim.wikia.com/wiki/Searching_for_expressions_which_include_slashes

Which app is using a port?

sudo lsof -i -n -P | ag TCP | ag 8080

Notes.app

To change the default font in Notes.app:
sudo -s
vi /Applications/Notes.app/Contents/Resources/en.lproj/DefaultFonts.plist

Then set it via Format -> Font -> Default Font

Encodings in Perl

perl -MEncode -le "print for Encode->encodings(':all')"

Caller in Perl

my $caller = (caller(1))[3];
damp $caller;

Ag on Ubuntu

Ag (a.k.a. the_silver_searcher) on Ubuntu 12.04 LTS:

wget 'http://swiftsignal.com/packages/ubuntu/precise/the-silver-searcher_0.14-1_amd64.deb'

sudo dpkg -i the-silver-searcher_0.14-1_amd64.deb

Pod viewer on Mac

tkpod

Read query param via JS

var match = RegExp('[?&]' + param + '=([^&#]*)').exec(window.location.search);
var value = match && decodeURIComponent(match[1].replace(/\+/g, ' '));

Tig

Ctrl+Y workaround:

stty -a | grep dsusp
stty dsusp undef
stty -a | grep dsusp

Bash functions

# Usage: many 'echo 123'
many () { for i in {1..10}; do $1; done; }
many () { for i in {1..10}; do echo -e "\n-= $i =-\n" && $1 && sleep 3; done; }

# Usage: many 10 'echo 123'
many () { for ((i=1; i<=$1; i++)); do echo -e "\n-= $i =-\n" && $2 && sleep 3; done; }

Search long lines

alias ick='ack -i --pager="less -R -S"'
alias ig='ag --pager="less -R -S"'