xtetsuji

# -*- makefile -*-
# 2012/08/15

KEN_ALL_ZIP_URL	=	http://www.post.japanpost.jp/zipcode/dl/kogaki/zip/ken_all.zip

usage:
	@echo "Usage:"
	@echo "  make ken_all.zip"
	@echo "  make KEN_ALL.CSV"

xtetsuji

#!/usr/bin/perl
# Dump timetable of September 2012 by UTF-8 Japanese format.

use strict;
use warnings;
use utf8;
use Time::Piece;
use Time::Seconds;

binmode STDOUT, ':utf8';

xtetsuji

#!/usr/bin/perl
# xtetsuji 2013/01/13

use strict;
use warnings;

use Benchmark;

my $count = 50_000_000;

xtetsuji

#!/usr/bin/env perl
# xtetsuji 2013/01/14

# 22人いる
# 最初の猫村いろはは
# http://www.pentatoys.com/vote2/posts/view/7206/?guid=ON
# 最後のは
# http://www.pentatoys.com/vote2/posts/view/7227/?guid=ON
# 特徴ある文字列を正規表現で拾えばよさそう

xtetsuji

#!/usr/bin/perl
# solve-3x3sudoku.pl - solve 3x3 sudoku.
# at 2013/02/12 by @xtetsuji

use strict;
use warnings;

use Pod::Usage 'pod2usage';

use constant DEBUG => $ENV{DEBUG};

xtetsuji

#!/usr/bin/perl
# Tiny proof of concept script
# why mod_perl Registry/PerlRun script can not use __DATA__ (and __END__) token.

use strict;
use warnings;

my $code_simple = <<END_CODE;
print "Hello! world1.\n";
END_CODE

xtetsuji

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark;
use File::Basename qw(fileparse);

my $URL = 'http://www.example.jp/path/to/foo.html';
my $EXT = '.html';

xtetsuji

#!/usr/bin/env perl
# This document is UTF-8

use strict;
use warnings;
use bytes; # UTF-8 bytestream

use Mac::Pasteboard;

my $snowman = "☃☃☃";

xtetsuji

#!/usr/bin/env perl
# Writte by OGATA Tetsuji at 2013/05/14

use strict;
use warnings;
use utf8;

use AnyEvent;
use AnyEvent::IRC::Client;
use Encode;

xtetsuji

#!/usr/bin/perl

use strict;
use warnings;

# ordinally comment.
sub foo {
    print "foo\n";
}