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);

use Term::TtyRec::Player;
use FileHandle;
 
# $handle is any IO::* object
my $handle = FileHandle->new('file.tty');
my $player = Term::TtyRec::Player->new($handle);
 
# options can be set as hashref
my $player = Term::TtyRec::Player->new($handle, {
    speed => 1, nowait => undef,
});

use lib 'path/to/lib';
use Foo;

use lib 'path/to/lib';
use Text::Iconv;