Skip to content

Instantly share code, notes, and snippets.

@yappo
yappo / gist:11389
Created September 18, 2008 06:32 — forked from hirose31/gist:11387
memslap --concurrency=20 --execute-number=100000 --initial-load=100000 --servers=mcd1 --test get
set/s get/s
=============================
1.2.6 14457 59459
binprot ASCII 13923 92950
binprot BINARY 13985 102328
@yappo
yappo / gist:20009
Created October 27, 2008 02:55 — forked from eto/gist:20008
皆様,
産総研の江渡です.お世話になっております.
第130回SIGHCI研究会の参加募集です.
今回は招待講演が3件もあり,充実しています.
今回は特に,ニコニコ動画の開発者として有名な戀塚昭彦氏に来ていただける
ことになりました.ニコニコ動画の裏側に,どのようなインタラクション上の
工夫があるかについてお話ししていただきます.
P.14
- $self->SUPER($client, $request)
+ $self->SUPER::write_response($client, $request)
P.26 図1.3
- Mamma
+ Mammal
use strict;
use warnings;
use URI::Escape 'uri_escape';
use LWP::UserAgent;
use JSON 'decode_json';
use Term::ReadLine;
my $ua = LWP::UserAgent->new(agent => "Dan the shell");
&main;exit;
use strict;
use warnings;
use URI::Escape 'uri_escape';
use LWP::UserAgent;
use JSON 'decode_json';
use Term::ReadLine;
my $ua = LWP::UserAgent->new(agent => "Dan the shell");
&main;exit;
@yappo
yappo / scale.pl
Created April 23, 2009 04:10 — forked from tokuhirom/scale.pl
use strict;
use warnings;
use autodie;
use Imager;
use GD;
use Image::Magick;
print "# Imager $Imager::VERSION\n";
print "# GD $GD::VERSION\n";
package HTTP::Engine::Middleware::Profile::NYTProf;
use Any::Moose;
use Time::HiRes;
with 'HTTP::Engine::Middleware::Profile::Role';
BEGIN {
# referred to L<Devel::NYTProf::Apache>
if (!$ENV{NYTPROF}) {
$ENV{NYTPROF} = "file=/tmp/nytprof.$$.out";
@yappo
yappo / gist:176111
Created August 27, 2009 05:51 — forked from imakado/gist:176075
(defun perl-insert-package ()
(interactive)
(require 'perl-completion)
(cond
((null buffer-file-truename) (error "no buffer-file-truename"))
(t
(let* ((s (replace-regexp-in-string
(rx-to-string `(and bol ,(plcmp--get-lib-path) (? "/")))
""
(expand-file-name buffer-file-truename)))
@yappo
yappo / gist:188421
Created September 17, 2009 09:28 — forked from mattn/gist:188420
mattn: さいたまさいたまー?
@yappo
yappo / gist:188424
Created September 17, 2009 09:32 — forked from mattn/gist:188422
mattn: さいたまさいたまー?
いえ、ちがいます
すいません、どうやら人違いでした。