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 / 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 / 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 / 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 / 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 / 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 / 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 / get-width-stat.sh
Created September 21, 2012 05:20
Get statistics for screen resolution and sum it by width
wget 'https://www.openstat.ru/rest/v0.3/ct:openstat:trends/display/columns/20120820-20120920?column=0%0Dvisitors_sum_average&column=0%0Dvisitors_sum_average_verticalpercent&column=0%0Dsessions_sum&column=0%0Dpageviews_sum&primary_column=0&view_id=1810&format=tsv' -O - \
| perl -nlaF'\t' -MList::Util=max \
-e '$F[0]=~s/x.*//||next;$sum{$F[0]}+=$F[4];END{for$k(0..max(keys%sum)){print"$k\t$sum{$k}"}}'
@shoorick
shoorick / word-color.pl
Created April 23, 2012 12:22
Print color stripes with HTML colouring
#!/usr/bin/perl
=head1 USAGE
./word-color.pl
=head1 DESCRIPTION
Print color stripes. See L<http://habrahabr.ru/post/142570/>
@shoorick
shoorick / sphinxdrupal-ru.po
Created April 6, 2012 09:59
Russian translation for Sphinxdrupal
# Russian translation for sphinxdrupal https://bitbucket.org/ivinco/drupal-7-sphinx-search-module/
#, fuzzy
msgid ""
msgstr ""
"Project-Id-Version: 0.1\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2012-04-05 18:45+0600\n"
"PO-Revision-Date: 2012-04-06 13:40+0600\n"
"Last-Translator: Alexander Sapozhnikov <shoorick@cpan.org>\n"
@shoorick
shoorick / accordion-horizontal-css3-transition.html
Created January 12, 2012 18:52
CSS3 transition sample - Horizontal Accordion
<!DOCTYPE html>
<html>
<head>
<title>CSS3 Transition - Accordion sample</title>
<!-- 2012-01-12 - Alexander Sapozhnikov - http://shoorick.ru/ -->
<style>
body {
font-family: "Liberation Sans",sans-serif;
color: #000;
background-color: #fff;