kotaroito’s gists

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 / 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 / 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 / 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 / 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 / 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 / gist:4651754

Last active May 6, 2019 15:48

perl eval.

	#!/usr/env/perl
	use strict;
	use warnings;
	use utf8;

	sub eval_func {

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 / 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 / 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;
	}

kotaroito kotaroito