Skip to content

Instantly share code, notes, and snippets.

View tokuhirom's full-sized avatar
💖
Focusing

Tokuhiro Matsuno tokuhirom

💖
Focusing
990 followers · 443 following
View GitHub Profile
@tokuhirom
tokuhirom / 032_roles_alias_methods.t
Created August 29, 2008 02:57
# THIS TEST DOESN'T PASS WITH PERL 5.10
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;
use Moose::Meta::Class;
@tokuhirom
tokuhirom / 032_roles_alias_methods.t
Created August 29, 2008 02:58
# THIS TEST DOESN'T PASS WITH PERL 5.10
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;
use Moose::Meta::Class;
@tokuhirom
tokuhirom / mobirc's memory map
Created August 29, 2008 23:19
0307200, 19247104 # Encode
0405504, 12943360 # POE::Sugar::Args
0405504, 19980288 # HTTP::Request
0405504, 28332032 # Template
0405504, 34455552 # App::Mobirc::Web::Template::IPhone
0536576, 30158848 # HTTP::Engine::Request
0540672, 34996224 # App::Mobirc::Web::Template::MobileAjax
0671744, 36478976 # App::Mobirc::Web::Template::IRCMessage
0675840, 17690624 # POE::Component::IRC::Plugin::DCC
0720896, 38146048 # App::Mobirc::Plugin::Authorizer::Cookie
@tokuhirom
tokuhirom / gist:8103
Created August 30, 2008 10:44
=== lib/CPAN/Mini/Webserver/Templates.pm
==================================================================
--- lib/CPAN/Mini/Webserver/Templates.pm (revision 24233)
+++ lib/CPAN/Mini/Webserver/Templates.pm (local)
@@ -593,10 +593,12 @@
attr { class => 'span-18 last' };
# outs_raw '<table>';
- my ( @code, @test, @other );
+ my ( @code, @test, @other, @doc );
@tokuhirom
tokuhirom / gist:8930
Created September 5, 2008 06:25
#
# Fatal error in v8::HandleScope::CreateHandle()
# Cannot create a handle without a HandleScope
#
zsh: abort ./llv8call examples/urlfetch.js
@tokuhirom
tokuhirom / benchmarks libmemcached
Created September 17, 2008 07:16
TRY 100000
-- python
python: 100000
Result: 100000
python2.5 python.py $NUM 1.51s user 5.92s system 57% cpu 13.010 total
-- perl
TRY 100000
Result : 100000
perl perl.pl $NUM 1.79s user 6.03s system 59% cpu 13.104 total
-- ruby
@tokuhirom
tokuhirom / simple benchmarking script for memcached
Created September 18, 2008 02:28
#include <libmemcached/memcached.h>
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#define KEY "counter"
#define KEYLEN 7
int main (int argc, char **argv) {
uint64_t buf;
@tokuhirom
tokuhirom / benchmarking result(memcached)
Created September 18, 2008 08:22
gp.ath.cx{tokuhirom}% ./memslap --servers=127.0.0.1:11212 --concurrency=100 --execute-number=1000 --binary
Threads connecting to servers 100
Took 1.686 seconds to load data
gp.ath.cx{tokuhirom}% ./memslap --servers=127.0.0.1:11212 --concurrency=100 --execute-number=1000
Threads connecting to servers 100
Took 1.910 seconds to load data
gp.ath.cx{tokuhirom}% ./memslap --servers=127.0.0.1:11212 --concurrency=10 --execute-number=1000 --binary
Threads connecting to servers 10
Took 0.503 seconds to load data
gp.ath.cx{tokuhirom}% ./memslap --servers=127.0.0.1:11212 --concurrency=10 --execute-number=1000
@tokuhirom
tokuhirom / segv DBD::mysql
Created September 25, 2008 10:32
#!/usr/bin/perl
# see http://rt.cpan.org/Public/Bug/Display.html?id=37027#txn-497961
use strict;
use warnings;
use DBI;
use YAML;
use IO::Prompt;
&main; exit;
@tokuhirom
tokuhirom / memcached bench
Created September 26, 2008 02:53
### 1
Rate pp lib fast
pp 4284/s -- -86% -92%
lib 30120/s 603% -- -40%
fast 50505/s 1079% 68% --
### 5
Rate pp lib fast
pp 2939/s -- -86% -92%
lib 20492/s 597% -- -45%
fast 37037/s 1160% 81% --