kazeburo

#!/usr/bin/env perl

use strict;
use warnings;
use 5.10.0;
use Digest::MD5 qw/md5/;
use Digest::MurmurHash qw/murmur_hash/;
use Digest::MurmurHash3 qw/murmur32 murmur128_x64/;
use Benchmark qw/cmpthese/;

kazeburo

#!/usr/bin/env perl

use strict;
use warnings;
use 5.10.0;
use Furl;
use Plack::TempBuffer;

my $url = "http://ftp.iij.ad.jp/pub/linux/fedora/updates/15/x86_64/exim-4.76-2.fc15.x86_64.rpm"; #1.2MB

kazeburo

#!/usr/bin/env perl

package RangeFile;

use strict;
use warnings;
use 5.10.0;
use Fcntl qw/:seek/;
use parent qw/Exporter/;

kazeburo

#!/usr/bin/env perl

use strict;
use warnings;
use Time::HiRes;
use Email::MIME;
use Email::Address;
use Email::Address::Loose -override;
use Parallel::Prefork;
use Path::Class qw(dir);

kazeburo

--- memcachedos.pl      2011-07-26 18:57:36.000000000 +0900
+++ dos/memcachedos.pl  2011-07-26 18:39:40.000000000 +0900
@@ -7,21 +7,28 @@
 
 use strict;
 use warnings;
+use lib "extlib/lib/perl5";
 use AnyEvent;
 use AnyEvent::Socket;
+use BSD::Resource;

kazeburo

GNU gdb (GDB) Red Hat Enterprise Linux (7.0.1-32.el5_6.2)
Copyright (C) 2009 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "x86_64-redhat-linux-gnu".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>.
Attaching to process 19110

kazeburo

#!/usr/bin/env perl

use strict;
use warnings;
use Log::Dispatch;

my $log = Log::Dispatch->new(
    outputs => [
        [
            'Screen::Color',

kazeburo

--- memcachedos.pl      2011-08-12 10:30:29.000000000 +0900
+++ dos/memcachedos.pl  2011-08-11 14:13:09.000000000 +0900
@@ -7,11 +7,17 @@
 
 use strict;
 use warnings;
+use FindBin;
+use lib "$FindBin::Bin/extlib/lib/perl5";
 use AnyEvent;
 use AnyEvent::Socket;

kazeburo

# mysql 5.5.10 homebrew, Macbook Air 1.6GHz Core2Duo
# innodb_buffer_pool_size = 32MB

Reading table information for completion of table and column names
You can turn off this feature to get a quicker startup with -A

Welcome to the MySQL monitor.  Commands end with ; or \g.
Your MySQL connection id is 13
Server version: 5.5.10 Source distribution

kazeburo

#!/usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/extlib/lib/perl5";
use DBI;

$|=1;