Skip to content

Instantly share code, notes, and snippets.

View shoorick's full-sized avatar
🔍
Looking for new job as backend of fullstack web developer

Alexander Sapozhnikov shoorick

🔍
Looking for new job as backend of fullstack web developer
View GitHub Profile
@shoorick
shoorick / renumber-files.sh
Created December 19, 2019 20:38
Renumber file sequence
perl -e 'while (<prefix*png>) { printf("mv $_ %03d.png\n", $1 + 42) if /(\d+)/ }'
@shoorick
shoorick / Makefile
Created December 19, 2018 20:46
Makefile for trimming PNG files and making them 2-bit black and white
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
@shoorick
shoorick / p2yaml.pl
Last active November 29, 2018 05:46
Reserialize PHP-serialized data to YAML
#!/usr/bin/perl -0777 -n
=head1 NAME
p2yaml.pl - PHP to YAML reserializer.
=head1 DESCRIPTION
Reserialize PHP-serialized data to YAML
%= include 'header';
<%= $callee %> <%= $name %>!
Some text here
%#= include 'header'; # Does not work
%# layout 'layout'; # Does not work
<%= $callee %> <%= $name %>!
Some text here.
#!/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',
@shoorick
shoorick / simple.pl
Created September 18, 2018 19:10 — forked from knutov/gist:78b7043ee6ea4f345f6da55670e65582
mojolicious async external command execution using Mojo::IOLoop
#!/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 $
@shoorick
shoorick / .XCompose
Last active August 15, 2023 12:01 — forked from astanin/.XCompose
My Compose key configuration
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, многоточие
#!/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;
@shoorick
shoorick / mark-academic-buildings.pl
Last active September 11, 2016 10:26
Mark in PostGIS buildings which belongs to South Ural State University
#!/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