Skip to content

Instantly share code, notes, and snippets.

View fujiwara's full-sized avatar

FUJIWARA Shunichiro fujiwara

417 followers · 18 following
View GitHub Profile
@fujiwara
fujiwara / client.html
Created June 21, 2010 02:52
<!Docutype HTML>
<html lang="ja">
<head>
<meta charset="utf-8">
<title>UserStreamsClient</title>
<script src="http://www.google.com/jsapi"></script>
<script> google.load("jquery", "1.4") </script>
<style>
div.tweet {
border-bottom: 1px solid #999;
@fujiwara
fujiwara / reverse_proxy.js
Created July 14, 2010 16:56
var sys = require('sys'),
http = require('http'),
port = 8001,
upstreamHost = process.argv[2];
sys.puts("reverse proxy to " + upstreamHost + " listen port " + port );
var main = function() {
http.createServer(handle_request).listen(port);
};
@fujiwara
fujiwara / gist:477109
Created July 15, 2010 15:28
-c 1 -m read
block size: 16 KB
file size: 102400 KB
cuncurrency: 1 threads
elapsed: 0.215 seconds (4652.960 tps)
throughput: 72.703 MB/sec.
-----------
-c 1 -m write
block size: 16 KB
file size: 102400 KB
@fujiwara
fujiwara / gist:477831
Created July 16, 2010 02:23
-c 1 -m read
block size: 16 KB
file size: 1024000 KB
cuncurrency: 1 threads
elapsed: 0.171 seconds (5840.201 tps)
-----------
-c 1 -m write
block size: 16 KB
file size: 1024000 KB
cuncurrency: 1 threads
@fujiwara
fujiwara / gist:498310
Created July 29, 2010 14:52
Disk Test 8.44
Sequential 10.53
Uncached Write 5.88 3.61 MB/sec [4K blocks]
Uncached Write 5.99 3.39 MB/sec [256K blocks]
Uncached Read 28.99 8.48 MB/sec [4K blocks]
Uncached Read 116.37 58.49 MB/sec [256K blocks]
Random 7.05
Uncached Write 2.07 0.22 MB/sec [4K blocks]
Uncached Write 12.32 3.94 MB/sec [256K blocks]
Uncached Read 1096.81 7.77 MB/sec [4K blocks]
@fujiwara
fujiwara / gist:509354
Created August 5, 2010 06:42
$ perl benchmark/others.pl --pp [~/devel/p5-Text-Xslate]
testing with PP
Perl/5.12.1 darwin-2level
Text::Xslate/0.1054
Text::MicroTemplate/0.15
Template/2.22
Text::ClearSilver/0.10.5.4
HTML::Template::Pro/0.9502
1..5
ok 1 - TT: Template-Toolkit
@fujiwara
fujiwara / gist:569567
Created September 8, 2010 03:23
#!/usr/bin/env perl
use strict;
use warnings;
use 5.12.0;
use iCal::Parser;
use Data::Dumper;
use utf8;
use JSON;
use LWP::Simple;
use Clone qw/ clone /;
@fujiwara
fujiwara / gist:577329
Created September 13, 2010 14:04
use strict;
use Mojo::Parameters;
use Plack::Request;
use Benchmark qw/ :all /;
my $query_string = join("&", map { $_ . "=" . $_ x 3 } ("a" .. "n") );
print "QUERY_STRING=$query_string\n";
cmpthese( 0, {
mojo => sub {
@fujiwara
fujiwara / hello.pl
Created October 7, 2010 15:07
#!/usr/bin/perl
use strict;
use warnings;
print "Hello World!\n";
=pod
=head1 NAME
@fujiwara
fujiwara / gist:653307
Created October 29, 2010 10:34
my $obj = try {
MightFail->new;
} catch {
...;
return; # avoid returning a true value;
};
return unless $obj;