Skip to content

Instantly share code, notes, and snippets.

View fujiwara's full-sized avatar

FUJIWARA Shunichiro fujiwara

392 followers · 18 following
View GitHub Profile
@fujiwara
fujiwara / edit-server.pl
Created April 19, 2010 08:35
use strict;
use warnings;
use Hitagi;
use File::Temp qw/ tempfile /;
use IO::File::WithPath;
my ($client) = grep { -e $_ } qw(
/Applications/Emacs.app/Contents/MacOS/bin/emacsclient
/usr/bin/emacsclient.emacs-snapshot
);
@fujiwara
fujiwara / ec-remote.pl
Created April 19, 2010 08:46
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Path::Class qw/ file /;
use Try::Tiny;
my $host = "fujiwara-mac";
my $port = 9292;
my $file = shift;
@fujiwara
fujiwara / stream.psgi
Created April 25, 2010 17:00
#!/usr/bin/env perl
use feature ":5.10";
use strict;
use utf8;
use Tatsumaki::Error;
use Tatsumaki::Application;
use Tatsumaki::HTTPClient;
use Tatsumaki::Server;
use Tatsumaki::MessageQueue;
@fujiwara
fujiwara / gist:404726
Created May 18, 2010 07:17
sub {
my $env = shift; # request
# ...
return [ # response
200, # status code
[ "Content-Type" => "text/plain" ], # headers
["Hello world"] # body
];
}
@fujiwara
fujiwara / gist:404727
Created May 18, 2010 07:17
sub {
my $env = shift; # request
# ...
return [ # response
200, # status code
[ "Content-Type" => "text/plain" ], # headers
["Hello world"] # body
];
}
@fujiwara
fujiwara / gist:421856
Created June 2, 2010 02:58
package ImageResize;
use strict;
use warnings;
use nginx;
use Image::Imlib2;
Image::Imlib2->set_cache_size(0);
sub handler {
my $r = shift;
my ($file) = split /\?/, $r->uri;
@fujiwara
fujiwara / gist:428095
Created June 7, 2010 01:16
use strict;
use Web::Scraper;
use LWP::UserAgent;
use Encode;
my $s = scraper { process "#topicsfb li" => "topics[]" => "TEXT" };
$s->user_agent( LWP::UserAgent->new( agent => "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0)" ) );
my $r = $s->scrape( URI->new("http://www.yahoo.co.jp") );
print encode_utf8($_), "\n" for @{ $r->{topics} };
@fujiwara
fujiwara / gist:428752
Created June 7, 2010 14:49
use strict;
use Benchmark qw/cmpthese/;
cmpthese( 0, {
'core' => \&core_reverse,
'push_pop' => \&push_pop_style,
'slice' => \&slice,
});
sub core_reverse {
@fujiwara
fujiwara / gist:431394
Created June 9, 2010 12:22
[fujiwara@hostname]$ /usr/local/perl-5.8.3/bin/perl Makefile.PL
Writing ppport.h
Writing Makefile for Text::Xslate
[fujiwara@hostname]$ make
cp lib/Text/Xslate/PP/EscapedString.pm blib/lib/Text/Xslate/PP/EscapedString.pm
cp lib/Text/Xslate/PP/Const.pm blib/lib/Text/Xslate/PP/Const.pm
cp lib/Text/Xslate/PP/Booster.pm blib/lib/Text/Xslate/PP/Booster.pm
cp lib/Text/Xslate/PP/Type/Hash.pm blib/lib/Text/Xslate/PP/Type/Hash.pm
cp lib/Text/Xslate.pm blib/lib/Text/Xslate.pm
cp lib/Text/Xslate/EscapedString.pm blib/lib/Text/Xslate/EscapedString.pm
@fujiwara
fujiwara / result.txt
Created June 16, 2010 06:41
0.1031
Benchmark: running tx for at least 3 CPU seconds...
tx: 4 wallclock secs ( 2.90 usr + 0.27 sys = 3.17 CPU) @ 28618.30/s (n=90720)
0.1032
Benchmark: running tx for at least 3 CPU seconds...
tx: 4 wallclock secs ( 2.80 usr + 0.36 sys = 3.16 CPU) @ 3044.62/s (n=9621)
0.1033
Benchmark: running tx for at least 3 CPU seconds...
tx: 3 wallclock secs ( 2.85 usr + 0.35 sys = 3.20 CPU) @ 3010.00/s (n=9632)