$ brew list |grep env
plenv
pyenv
pyenv-virtualenv
rbenv
$ brew remove plenv
$ brew remove pyenv
$ brew remove pyenv-virutalenv
$ brew remove rbenv

$ git clone https://github.com/riywo/anyenv ~/.anyenv

if [ -d $HOME/.anyenv ] ; then
	export PATH="$HOME/.anyenv/bin:$PATH"
	eval "$(anyenv init -)"

	for D in `ls $HOME/.anyenv/envs`
	do
		export PATH="$HOME/.anyenv/envs/$D/shims:$PATH"
	done
fi

$ exec $SHELL -l

$ anyenv install plenv
$ anyenv install pyenv
$ anyenv install rbenv
$ anyenv install phpenv

$ mkdir -p $(anyenv root)/plugins
$ git clone https://github.com/znz/anyenv-update.git $(anyenv root)/plugins/anyenv-update
$ anyenv update

$ mkdir -p $(anyenv root)/plugins
$ git clone git://github.com/aereal/anyenv-exec.git $(anyenv root)/plugins/anyenv-exe
$ anyenv --version

$ mkdir -p $(anyenv root)/plugins
$ git clone https://github.com/znz/anyenv-git.git $(anyenv root)/plugins/anyenv-git
$ anyenv git gc

% brew install perl-build plenv
% plenv install-cpanm

# plenv
eval "$(plenv init -)"

if [[ -d $HOME/.plenv/shims ]]; then
	export	PATH="$HOME/.plenv/shims:$PATH"
fi

% plenv install 5.18.2
% plenv global 5.18.2

% which perl
$HOME/.plenv/shims/perl

% which cpanm
$HOME/.plenv/shims/cpanm

use strict;
use warnings;
use utf8;

use Template;
use Template::Provider::Encoding;
use Template::Stash::ForceUTF8;

my $tt = Template->new(
    LOAD_TEMPLATES => [ Template::Provider::Encoding->new() ],
    STASH          => Template::Stash::ForceUTF8->new,
);

$tt->process('template.tt', $vars) || die $tt->error();

export PERL_AUTOINSTALL='--defaultdeps'

$ cpan
cpan> o conf prerequisites_policy follow
cpan> o conf commit
cpan> quit

'make_arg' => q[PREFIX=/home/user/local],
'make_install_arg' => q[PREFIX=/home/user/local],
'makepl_arg' => q[PREFIX=/home/user/local],
'mbuildpl_arg' => q[--install_base /home/user/local],

#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8;
binmode STDOUT, ":utf8";
my $a = "情報時代";
$a =~ s/&#x([0-9A-F]{4});/decode('UCS2', pack('H*', $1))/ge;
print "$a\n";

my $a = "情報時代";
use HTML::Entities;
print HTML::Entities::decode($a), "\n";

my $a = "情報時代";
$a =~ s/&#x([0-9A-F]{4});/chr(hex($1))/ge;
print "$a\n";

my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby');
for my $line (@{ $diff->[0] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# -: 'Perl'

for my $line (@{ $diff->[1] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# +: 'Ruby'

my $diff = String::Diff::diff('this is Perl', 'this is Ruby');

print "$diff->[0]\n";# this is [Perl]
print "$diff->[1]\n";# this is {Ruby}

my $diff = String::Diff::diff('this is Perl', 'this is Ruby',{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});

print "$diff->[0]\n";# this is <del>Perl</del>
print "$diff->[1]\n";# this is <ins>Ruby</ins>

my $diff = String::Diff::diff_merge('this is Perl', 'this is Ruby'{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});
int "$diff\n";# this is <del>Perl</del><ins>Ruby</ins>

my $diff = String::Diff::diff_regexp('this is Perl', 'this is Ruby');
print "$diff\n";# this\ is\ (?:Perl|Ruby)

#!/usr/bin/env perl
# -*- mode: cperl; -*-
use Test::Base;
use Net::SSL::ExpireDate;
use Regexp::Common qw(net);

my $Check_Duration;
# $Check_Duration = '15 years';

plan tests => 1 * blocks;

run {
    my $block = shift;
    my $ed = Net::SSL::ExpireDate->new( build_arg($block->name) );
    is($ed->is_expired($Check_Duration) && $ed->expire_date->iso8601,
        undef,
        $block->name);
};

sub build_arg {
    my ($v) = @_;
    if ($v =~ m{^(file)://(.+)}) {
        return $1 => $2;
    } elsif ($v =~ m{^(https)://([^/]+)}) {
        return $1 => $2;
    } elsif ($v =~ m{^$RE{net}{domain}{-nospace}{-keep}$}) {
        return 'https' => $1;
    } elsif (-r $v) {
        return 'file' => $v;
    } else {
        croak "$v: assume file. but cannot read.";
    }
}

__END__
=== rt.cpan.org
=== www.google.com

use strict;
use warnings;
use utf8;
use Lingua::JA::Summarize::Extract;

my $extracter = Lingua::JA::Summarize::Extract->new;
my $text = "日本語の文章を沢山書きます";
my $result = $extracter->extract($text);
my $summary = $result->as_string;

utf8::encode($summary);
print $summary; #サマリーが出てくる．

print if /[。-゜]/;

use Dumpvalue;

my $d = Dumpvalue->new();

# dumpValue
$d->dumpValue($target);
$d->dumpValue(\@target);

# dumpValues
$d->dumpValues($target1,$target2);