Skip to content

Instantly share code, notes, and snippets.

View hidek's full-sized avatar

Hideo Kimura hidek

151 followers · 9 following
  • Tokyo, Japan
View GitHub Profile
@hidek
hidek / gist:125650
Created June 8, 2009 05:48
use strict;
use warnings;
use Web::Scraper;
use URI;
use Data::Dumper;
my $s = scraper {
process '//p', 'foo[]' => sub {return {foo => 'bar', hoge => 'huga'}};
result qw/foo/;
@hidek
hidek / gist:134461
Created June 23, 2009 10:02
use strict;
use warnings;
use DBI;
use Benchmark qw(:all);
my $count = 100;
my $loop = 100;
unlink('test.db');
@hidek
hidek / gist:134462
Created June 23, 2009 10:04
use warnings;
use DBI;
use Benchmark qw(:all);
my $count = 100;
my $loop = 100;
cmpthese(
$count,
@hidek
hidek / test.c
Created July 23, 2009 07:40
SV * getString(CFStringRef var) {
char *buf;
SV *sv;
CFIndex len = CFStringGetLength(val);
CFIndex max = CFStringGetMaximumSizeForEncoding(len, kCFStringEncodingUTF8) + 1;
Newxz(buf, max, char);
CFStringGetCString(val, buf, max, kCFStringEncodingUTF8);
CFRelease(val);
sv = newSVpv(buf, max);
Safefree(buf);
@hidek
hidek / EncodeColumns.pm
Created September 8, 2009 05:55
package DBIx::Class::EncodeColumns;
use strict;
use warnings;
use base qw/DBIx::Class/;
use Encode qw/encode decode is_utf8/;
__PACKAGE__->mk_classdata('_encode_columns');
__PACKAGE__->mk_classdata('in_encoding');
@hidek
hidek / bench.txt
Created September 10, 2009 09:00
This is ApacheBench, Version 2.3 <$Revision: 655654 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/
Benchmarking localhost (be patient)
Server Software:
Server Hostname: localhost
Server Port: 9999
@hidek
hidek / bench.txt
Created September 14, 2009 02:57
This is ApacheBench, Version 2.3 <$Revision: 655654 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/
Benchmarking localhost (be patient)
Server Software:
Server Hostname: localhost
Server Port: 12345
@hidek
hidek / Benchmark.pm
Created September 15, 2009 10:41
package Plack::Benchmark;
use strict;
use warnings;
use Plack::Loader;
use Test::TCP;
sub run_benchmark {
my ($class, $impl, $handler, $args) = @_;
@hidek
hidek / test.log
Created September 26, 2009 15:22
This is ApacheBench, Version 2.0.40-dev <$Revision: 1.146 $> apache-2.0
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Copyright 2006 The Apache Software Foundation, http://www.apache.org/
Benchmarking 192.168.1.10 (be patient)
Server Software: Apache
Server Hostname: 192.168.1.10
Server Port: 80
@hidek
hidek / test2.log
Created September 26, 2009 15:22
This is ApacheBench, Version 2.0.40-dev <$Revision: 1.146 $> apache-2.0
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Copyright 2006 The Apache Software Foundation, http://www.apache.org/
Benchmarking 192.168.1.10 (be patient)
Server Software: Apache
Server Hostname: 192.168.1.10
Server Port: 80