Skip to content

Instantly share code, notes, and snippets.

View kotaroito's full-sized avatar

kotaroito kotaroito

3 followers · 5 following
View GitHub Profile
@kotaroito
kotaroito / gist:1455312
Created December 10, 2011 14:37
How to insert with Net::HandlerSocket::Simple
use strict;
use warnings;
use Net::HandlerSocket::Simple;
my $hs = Net::HandlerSocket::Simple->new(+{
host => 'localhost',
port => 9998,
wo_host => 'localhost',
wo_port => 9999,
@kotaroito
kotaroito / gist:1601407
Created January 12, 2012 16:21
How to count length of multi-byte character.
use strict;
use warnings;
use Encode qw(decode);
my $str = 'あいうえお';
warn length($str); # 10
warn length(decode("euc-jp", $str)); # 5
@kotaroito
kotaroito / gist:2245108
Created March 30, 2012 00:06
Difference between array and list on Perl
$ perl -E 'say scalar (@array=qw(foo bar piyo))'
3
$ perl -E 'say scalar qw(foo bar piyo)'
piyo
@kotaroito
kotaroito / gist:3990680
Created October 31, 2012 23:41
Solr Example doc - currency
<!-- JPY -->
<add>
<doc>
<field name="id">JPY</field>
<field name="name">One Yen</field>
<field name="manu">Bank of Japan</field>
<field name="manu_id_s">boj</field>
@kotaroito
kotaroito / gist:4162158
Created November 28, 2012 15:56
Mojolicious::Lite
#!/usr/bin/env perl
use utf8;
use Mojolicious::Lite;
use XML::Feed;
use URI;
get '/' => sub {
my $self = shift;
$self->render('index');
@kotaroito
kotaroito / gist:4223429
Created December 6, 2012 10:08
A basic sequence to explain OAuth2 authorization code grant.
@startuml
actor UserAgent
participant Client
participant "Authorization Server"
activate UserAgent
UserAgent -> "Authorization Server" : client Identifier & redirection URI
activate "Authorization Server"
@kotaroito
kotaroito / gist:4651754
Last active May 6, 2019 15:48
perl eval.
#!/usr/env/perl
use strict;
use warnings;
use utf8;
sub eval_func {
@kotaroito
kotaroito / gist:6255538
Last active December 21, 2015 05:18
Old way to use vagrant. Don't use vagrant which is installed via gem. 
# install vagrant
$ gem install vagrant

# download box
$ cd ~/Downloads; 
$ curl -L http://developer.nrel.gov/downloads/vagrant-boxes/CentOS-6.4-x86_64-v20130731.box -o CentOS-6.4-x86_64-v20130731.box

# add box
$ vagrant box add centos6.4-x86_64 ./CentOS-6.4-x86_64-v20130309.box
@kotaroito
kotaroito / gist:6257228
Last active December 21, 2015 05:28
vagrant
# download box
$ cd ~/Downloads;
$ curl -L http://developer.nrel.gov/downloads/vagrant-boxes/CentOS-6.4-x86_64-v20130427.box -o CentOS-6.4-x86_64-v20130427.box
# add box
$ vagrant box add centos6.4-x86_64 ./CentOS-6.4-x86_64-v20130427.box
# initialize
$ mkdir ~/vagrant; cd ~/vagrant
$ vagrant init centos6.4-x86_64
@kotaroito
kotaroito / gist:6510614
Created September 10, 2013 14:53
use Fcntl qw(:flock LOCK_NB);
use Parallel::ForkManager;
my $pm = new Parallel::ForkManager(2);
for (1..2) {
my $pid = $pm->start and next;
write_file();
$pm->finish;
}