Instantly share code, notes, and snippets.

View Makefile
SRC=.
DST=2b
FILES=*.png
trim $(DST)/$(FILES): $(SRC)/$(FILES)
for file in $(SRC)/$(FILES); do \
[ ! -f $(DST)/$$file -o $(SRC)/$$file -nt $(DST)/$$file ] \
&& echo $$file \
&& convert $(SRC)/$$file -dither none -colors 2 -trim +repage $(DST)/$$file; \
done
View p2yaml.pl
#!/usr/bin/perl -0777 -n
=head1 NAME
p2yaml.pl - PHP to YAML reserializer.
=head1 DESCRIPTION
Reserialize PHP-serialized data to YAML
View 2.html.ep
%= include 'header';
<%= $callee %> <%= $name %>!
Some text here
View 1.html.ep
%#= include 'header'; # Does not work
%# layout 'layout'; # Does not work
<%= $callee %> <%= $name %>!
Some text here.
View hash-value-overwrite-due-to-similar-keys.pl
#!/usr/bin/perl
# https://stackoverflow.com/questions/48529062/hash-value-overwrite-due-to-similar-keys
use Data::Dumper;
my $mapping_table = {
'Exemplare' => 'copies',
'Seiten' => 'pages',
'Statushinweis' => 'status',
View simple.pl
#!/usr/bin/perl
# $Id: receiver_manage.pl 1977 2010-10-14 09:12:15Z bfg $
# $Date: 2010-10-14 11:12:15 +0200 (Thu, 14 Oct 2010) $
# $Author: bfg $
# $Revision: 1977 $
# $LastChangedRevision: 1977 $
# $LastChangedBy: bfg $
# $LastChangedDate: 2010-10-14 11:12:15 +0200 (Thu, 14 Oct 2010) $
# $URL: https://svn.interseek.com/repositories/admin/misc/cic/receiver_manage.pl $
View .XCompose
include "/usr/share/X11/locale/en_US.UTF-8/Compose"
# See
# http://s.arboreus.com/2008/02/compose.html
# http://shoorick.livejournal.com/tag/compose
# Punctuation
# знаки препинания, необходимые в русском, которых нет в en_US.UTF-8/Compose
<Multi_key> <period> <minus> : "…" U2026 # HORIZONTAL ELLIPSIS, многоточие
<Multi_key> <period> <space> : "…" U2026 # HORIZONTAL ELLIPSIS, многоточие
View wcloop
#!/usr/bin/perl
print STDERR "Press ^C to exit\n";
my $cmd_line = 'wc ' . join ' ', @ARGV;
my $out;
while (1) {
$out = `$cmd_line`;
chomp $out;
print "\cM$out";
sleep 1;
View mark-academic-buildings.pl
#!/usr/bin/perl -w
use strict;
=head1 DESCRIPTION
Marks academic buildings which belongs to SUSU relation in PostGIS:
set type='academic'. This mark-up used for map coloring.
=head1 SEE ALSO
View split-prostopleer.pl
#!/usr/bin/perl -0777 -n
=head1 DESCRIPTION
Split big pseudo zip-archive from prostopleer.com into small mp3 files.
=head1 USAGE
./split-prostopleer.pl big-pseudo.zip