#!perl
#
# some examples of transliteration lists.
#
use ShiftJIS::String qw(:tr);
$digitZ2H = trclosure('O-X', '0-9');
$upperZ2H = trclosure('`-y', 'A-Z');
$lowerZ2H = trclosure('-', 'a-z');
$alphaZ2H = trclosure('`-y-', 'A-Za-z');
$alnumZ2H = trclosure('O-X`-y-', '0-9A-Za-z');
$digitH2Z = trclosure('0-9', 'O-X');
$upperH2Z = trclosure('A-Z', '`-y');
$lowerH2Z = trclosure('a-z', '-');
$alphaH2Z = trclosure('A-Za-z', '`-y-');
$alnumH2Z = trclosure('0-9A-Za-z', 'O-X`-y-');
$ascii_toupper = trclosure('a-z', 'A-Z' );
$fullwidth_toupper = trclosure('-', '`-y');
$greek_toupper = trclosure('¿-Ö', '-¶');
$cyrillic_toupper = trclosure('p-', '@-`');
$ascii_tolower = trclosure('A-Z', 'a-z' );
$fullwidth_tolower = trclosure('`-y', '-');
$greek_tolower = trclosure('-¶', '¿-Ö');
$cyrillic_tolower = trclosure('@-`', 'p-');
$j_tokatakana = trclosure('-ñ', '@-');
$j_tohiragana = trclosure('@-', '-ñ');