Skip to content

Instantly share code, notes, and snippets.

View bessarabov's full-sized avatar

Ivan Bessarabov bessarabov

154 followers · 108 following
View GitHub Profile
@bessarabov
bessarabov / gist:7569293
Created November 20, 2013 19:20
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);
use Class::Date qw(date);
use Perl6::Form;
@bessarabov
bessarabov / gist:7890748
Created December 10, 2013 13:43
#!/bin/sh
echo ''
date "+%Y-%m-%d %H:%M:%S"
echo ''
cal
echo ''
@bessarabov
bessarabov / gist:7909109
Created December 11, 2013 11:54
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use 5.010;
use Data::Dumper;
my $letter = 'a';
my $tmp_filename = '';
@bessarabov
bessarabov / gist:7991901
Created December 16, 2013 18:33
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
sub with_prototype () {
return 100;
}
@bessarabov
bessarabov / gist:8117852
Created December 24, 2013 21:14
$ ping -c 5 ivan.bessarabov.ru
PING ivan.bessarabov.ru (95.85.3.93): 56 data bytes
64 bytes from 95.85.3.93: icmp_seq=0 ttl=52 time=73.432 ms
64 bytes from 95.85.3.93: icmp_seq=1 ttl=52 time=100.685 ms
64 bytes from 95.85.3.93: icmp_seq=2 ttl=52 time=123.455 ms
64 bytes from 95.85.3.93: icmp_seq=3 ttl=52 time=146.247 ms
64 bytes from 95.85.3.93: icmp_seq=4 ttl=52 time=66.649 ms
--- ivan.bessarabov.ru ping statistics ---
5 packets transmitted, 5 packets received, 0.0% packet loss
@bessarabov
bessarabov / gist:8136758
Created December 26, 2013 18:02
$ curl -v -I https://ivan.bessarabov.ru
* About to connect() to ivan.bessarabov.ru port 443 (#0)
* Trying 95.85.3.93... connected
* successfully set certificate verify locations:
* CAfile: none
CApath: /etc/ssl/certs
* SSLv3, TLS handshake, Client hello (1):
* SSLv3, TLS handshake, Server hello (2):
* SSLv3, TLS handshake, CERT (11):
* SSLv3, TLS alert, Server hello (2):
@bessarabov
bessarabov / gist:8158240
Created December 28, 2013 10:52
@bessarabov
bessarabov / gist:9318850
Created March 3, 2014 05:19
vagrant@tmp:~/DancerTestProblem$ prove -l
t/croak.t .. 1/?
# Failed test ''
# at t/croak.t line 12.
# '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
# "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
# <html>
# <head>
# <title>Runtime Error</title>
# <link rel="stylesheet" href="/css/error.css" />
@bessarabov
bessarabov / gist:9318862
Created March 3, 2014 05:21
vagrant@tmp:~/DancerTestProblem$ prove -l
t/croak.t .. 1/?
# Failed test ''
# at t/croak.t line 12.
# 'GLOB(0x25b0758)'
# doesn't match '(?^:done)'
# Looks like you failed 1 test of 1.
t/croak.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/1 subtests
@bessarabov
bessarabov / gist:9472903
Created March 10, 2014 19:50
bessarabov@lol:~/Dropbox/git/App-Comparator$ time perl -Ilib bin/comparator
Name Releas- ▼ Latest Latest # pass fail na un-
PAUSE::Permissions NEILB 2013-12-06 0.07 7 506 3 6 0
Module::Locate NEILB 2013-12-16 1.78 16 554 0 0 0
Net::Dict NEILB 2013-12-23 2.13 18 351 7 0 0
Template::Plugin::HTTP::UserAgent NEILB 2013-12-29 0.06 6 311 0 8 0
Constant::FromGlobal NEILB 2014-01-07 0.05 5 493 0 0 0
Lingua::EN::Numbers NEILB 2014-01-12 1.06 8 460 0 0 0
HTML::Summary NEILB 2014-01-19 0.019 9 317 0 0 0
Apache::OneTimeURL NEILB 2014-01-22 1.32 6 0 0 0 0