tkusano

#! /usr/bin/perl

use strict;
use warnings;
use utf8;
use IO::Socket::INET6;
use LWP::UserAgent;

## Use IO::Socket::INET6 instead of IO::Socket::INET6 in Net::HTTP.
BEGIN {

tkusano

#! /usr/bin/perl

use strict;
use local::lib;
use Unicode::Normalize;
use bytes;
no bytes;
use utf8;
use Encode qw(encode_utf8);

tkusano

#! /usr/bin/perl

##
## Convert EmojiSources.txt to UTF-8 text
##

use strict;
use warnings;

binmode STDOUT, ':utf8';

tkusano

#! /bin/sh

if [ $# -lt 2 ]; then
   echo usage: `basename $0` input-dir output-dir 1>&2
   exit 64
fi

input=$1
output=$2

tkusano

#! /usr/bin/perl

## simple ja.po checker for GNOME Japanese translation team.
## Useful if this script used with pofilter.

use strict;
use warnings;
use utf8;
use Getopt::Long;
use File::Basename;

tkusano

#! /usr/bin/perl

use v5.10.1;
use strict;
use warnings;
use utf8;
use Encode 2.39;
use Encode::JP::Mobile 0.27;

## panic: do_trans_simple_utf8 line 388 at .../Encode/JP/Mobile/Vodafone.pm line 32.

tkusano

#! /usr/bin/perl

=head1

html2kindle.pl - Convert xml2rfc HTML to Kindle friendly HTML.

=head1 SYNOPSIS

Download XML files in RFC 2629 format of RFC or Internet Draft.

tkusano

##
## Email address grammer for Parse::RecDescent
##

{
        our $is_obsoleted;
        $skip = '';

        sub Parse::RecDescent::is_obsoleted {
            return $is_obsoleted;