Skip to content

Instantly share code, notes, and snippets.

Vyacheslav Matyukhin berekuk

View GitHub Profile
View workshops-remark.css
@import url(,700,400italic);
@import url(,700,400italic);
@page {
size: 1210px 681px;
margin: 0;
@media print {
.remark-slide-scaler {
#!/usr/bin/env python3
import argparse
from bs4 import BeautifulSoup
import requests
import urllib.parse
import re
def extract_tumblr_content(soup):
item = soup.find(class_='post-content')

Keybase proof

I hereby claim:

  • I am berekuk on github.
  • I am berekuk ( on keybase.
  • I have a public key whose fingerprint is A742 E40C 51FD BA2A 27E1 5E9F 3D2A 774C 5489 F96C

To claim this, I am signing this object:

berekuk /
Created Nov 30, 2013
Ubic custom status checks example
# two options:
# 1) put it into Ubic::Service::Starman::WithFileChangeDetection, and reuse it in multiple ubicservice configs;
# in this case, you'll have to add [package ...] line here
# 2) put it directly into service config; in this case, you don't need package line
use strict;
use warnings;
use parent qw(Ubic::Service::Starman); # or whatever you use
use Ubic::Result qw(result);
berekuk /
Created Oct 8, 2013
ubic custom commands
sub custom_commands { qw( foo bar ) };
sub do_custom_command {
my ($self, $command) = @_;
if ($command eq "foo") {
... # do action "foo"
elsif ($command eq "bar") {
... # do action "bar"
berekuk /
Last active Dec 18, 2015
#!/usr/bin/env perl
# This code is working.
package R1;
use Moo::Role;
before 'foo', 'bar' => sub {
print "before\n";
berekuk / wget-invalid.txt
Last active Dec 18, 2015
EC2 wrong response
View wget-invalid.txt
### This is riotgames headers and html
mmcleric@mmbook:~$ wget -S -O - ''
--2013-06-04 03:39:28--
Connecting to||:80... connected.
HTTP request sent, awaiting response...
HTTP/1.1 200 OK
Cache-Control: must-revalidate
Content-Type: text/html; charset=utf-8
#!/usr/bin/env perl
use strict;
use warnings;
use Coro;
use Coro::AnyEvent;
my $param;
sub param {
#!/usr/bin/env perl
use Dancer2;
use Coro::AnyEvent;
set logger => 'console';
set log => 'core';
get '/:foo' => sub {
Coro::AnyEvent::sleep 1;
berekuk / test.txt
Created May 14, 2013
Dancer::Request from env issue
View test.txt
$ perl -e 'use Dancer::Request; Dancer::Request->new(env => { REQUEST_METHOD => "GET", REQUEST_URI => "/", PATH_INFO => "/", QUERY_STRING => "", HTTP_foo => "abc" })->header("foo")'
Can't call method "header" on an undefined value at /Users/mmcleric/perl5/perlbrew/perls/perl-5.16.1/lib/site_perl/5.16.3/Dancer/ line 92, <DATA> line 1003.
You can’t perform that action at this time.