bundler
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
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{@_} |
git clone git://github.com/averyanov/mc.git --branch whenever
Женщина пришла к Конфуцию и спросила, чем многоженство отличается от многомужества. | |
Конфуций поставил перед ней пять чайников и пять чашек, и говорит: | |
- Лей чай в пять чашек из одного чайника. Нравится? | |
- Нравится, - согласилась женщина. | |
- А теперь, наоборот, лей в одну чашку из пяти чайников. Нравится? | |
- Ещё больше нравится, - призналась женщина. | |
- Дура! - заорал Конфуций. - Такую притчу испортила! |
<?php echo("Hello world"); ?> |
<?php echo("Hello world"); ?> |
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 |
#!/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; |
#!/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; |
#!/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; |