Skip to content

Instantly share code, notes, and snippets.

View tkusano's full-sized avatar

Takayuki KUSANO tkusano

View GitHub Profile
##
## Email address grammer for Parse::RecDescent
##
{
our $is_obsoleted;
$skip = '';
sub Parse::RecDescent::is_obsoleted {
return $is_obsoleted;
#! /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.
#! /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
tkusano / check-gnome-japo.pl
Created September 12, 2010 13:42
check-gnome-japo.pl
#! /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
tkusano / filter-gnome-japo.sh
Created September 12, 2010 13:47
filter-gnome-japo.sh
#! /bin/sh
if [ $# -lt 2 ]; then
echo usage: `basename $0` input-dir output-dir 1>&2
exit 64
fi
input=$1
output=$2
#! /usr/bin/perl
##
## Convert EmojiSources.txt to UTF-8 text
##
use strict;
use warnings;
binmode STDOUT, ':utf8';
@tkusano
tkusano / unicode-normalize-test.pl
Created December 23, 2010 07:51
Unicode Normalization test using Unicode::Normalize
#! /usr/bin/perl
use strict;
use local::lib;
use Unicode::Normalize;
use bytes;
no bytes;
use utf8;
use Encode qw(encode_utf8);
@tkusano
tkusano / lwp-ipv6-test.pl
Created February 4, 2011 03:16
Connect IPv6 only host by libwww-perl
#! /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
tkusano / gist:6153061
Created August 5, 2013 02:27
freerdb 1.0.1 jp keyboard fix (for Ubuntu 13.04)
Index: freerdp-1.0.1/libfreerdp-core/freerdp.c
===================================================================
--- freerdp-1.0.1.orig/libfreerdp-core/freerdp.c 2013-08-05 10:55:39.000000000 +0900
+++ freerdp-1.0.1/libfreerdp-core/freerdp.c 2013-08-05 11:03:46.108837876 +0900
@@ -35,6 +35,18 @@
rdp = instance->context->rdp;
+ {
+ rdpSettings* settings;
$ host www.melbourneit.com.au
www.melbourneit.com.au has address 203.27.227.79
$ telnet 203.27.227.79 80
Trying 203.27.227.79...
Connected to 203.27.227.79.
Escape character is '^]'.
GET /blog/ HTTP/1.1
Host: www.melbourneit.com.au
Connection: close