Table/tool/tbl2pm.pl

#!/usr/bin/perl
use strict;
use 5.7.3;

=head1 NAME

tbl2pm --- Perl module generator from (completed) PETBL
table file

=head1 DESCRIPTION

This script generates dumped perl module file of convertion
table used with Encode::Table module.

=head1 USAGE

 $ ./tbl2pm.pl table.tbl > table.pm

=cut

require Encode;
my %T;
my %option;
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use 5.7.3;
4
5	wakaba	1.2	=head1 NAME
6
7			tbl2pm --- Perl module generator from (completed) PETBL
8			table file
9
10			=head1 DESCRIPTION
11
12			This script generates dumped perl module file of convertion
13			table used with Encode::Table module.
14
15			=head1 USAGE
16
17			$ ./tbl2pm.pl table.tbl > table.pm
18
19			=cut
20
21	wakaba	1.1	require Encode;
22			my %T;
23			my %option;
24