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
22 followers · 11 following
View GitHub Profile
@shoorick
shoorick / panoramio-rss.pl
Last active January 5, 2016 19:23
#!/usr/bin/env perl
=head1 USAGE
./panoramio-rss.pl
=head1 DESCRIPTION
Get RSS feed of my photos from panoramio.com and make HTML list of images
@shoorick
shoorick / extract-mapbox-tiles.pl
Last active September 11, 2016 10:00
Extract tiles from *.mbtiles file made by TileMill
#!/usr/bin/perl
# VERSION: 1.0
# CREATED: 10.02.2013 23:41:17
use strict;
use warnings;
=head1 USAGE
@shoorick
shoorick / bar-between-natural-and-flats.ly
Created March 4, 2013 17:07
Sample where new key signs (naturals and sharps/flats) divided by bar: ♮ | ♯
\version "2.14.2"
\relative c' {
\key e \major
\cadenzaOn
e4 gis b a
s
\key a \minor
s256
\cadenzaOff
\bar "|"
@shoorick
shoorick / bike-area.dot
Last active January 1, 2021 10:18
Where I was with bicycle.
// moved to https://github.com/shoorick/bike-area
graph G {
node [ shape=box, fontsize=10, fontname="Droid Sans", style=filled, height=0.2 ]
edge [ color=gray50, penwidth=3, fontname="Droid Sans" ]
graph [ overlap=false ]
subgraph main {
node [ fillcolor=pink ]
@shoorick
shoorick / split-prostopleer.pl
Created December 4, 2013 10:08
Split big pseudo zip-archive from prostopleer.com into small mp3 files.
#!/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
@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
@shoorick
shoorick / wcloop
Created November 18, 2014 10:31
#!/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 / .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, многоточие
@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 / hash-value-overwrite-due-to-similar-keys.pl
Created October 22, 2018 19:15
#!/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',