averyanov

package qxp;
use strict;

# https://code.google.com/p/qxp/

sub H($){pack'H*',$_[0]}
sub by{map{[splice@_,1,$_[0]]}!($#_%$_[0])..$#_/$_[0]}
sub is($){$_ eq$_[0]}
sub cat{join'',@_}
sub list{@_}

averyanov

bundler

• http://gembundler.com

whenever

• gem - https://github.com/javan/whenever
• demo - https://github.com/averyanov/mc/archive/whenever.zip
• repo - https://github.com/averyanov/mc/tree/whenever
  git clone git://github.com/averyanov/mc.git --branch whenever

rails_config

averyanov

Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества. 
Конфуций поставил перед ней пять чайников и пять чашек, и говорит:
- Лей чай в пять чашек из одного чайника. Нравится?
- Нравится, - согласилась женщина.
- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится?
- Ещё больше нравится, - призналась женщина.
- Дура! - заорал Конфуций. - Такую притчу испортила!

averyanov

<?php echo("Hello world"); ?>

averyanov

<?php echo("Hello world"); ?>

averyanov

module Main where

import Control.Monad
import Data.Char

data Expr = Expr Integer Char Integer [Integer]
    deriving Show

digits :: String -> [Integer]
digits s = map (toInteger . digitToInt) s

averyanov

#!/usr/bin/perl -w
use strict;
use AnyEvent::HTTP;
use Time::HiRes qw/time/;

use constant LOGGER_INTERVAL => 1;
use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

my ( $max_requests, $max_threads, $url ) = @ARGV;
die USAGE unless $max_requests && $max_threads && $url;

averyanov

#!/usr/bin/perl -w
use strict;
use AnyEvent::HTTP;
use Time::HiRes qw/time/;

use constant LOGGER_INTERVAL => 1;
use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

my ( $max_requests, $max_threads, $url ) = @ARGV;
die USAGE unless $max_requests && $max_threads && $url;

averyanov

#!/usr/bin/perl -w
use strict;
use AnyEvent::HTTP;
use Time::HiRes qw/time/;

use constant LOGGER_INTERVAL => 1;
use constant USAGE => "$0 [requests_count] [threads_count] [url]\n";

my ( $max_requests, $max_threads, $url ) = @ARGV;
die USAGE unless $max_requests && $max_threads && $url;

averyanov

We couldn’t find that file to show.