NAME Unicode::Block::Ascii - Ascii output of unicode block. SYNOPSIS use Unicode::Block::Ascii; my $obj = Unicode::Block::Ascii->new(%parameters); my $output = $obj->get; my $item = $obj->next; METHODS "new" my $obj = Unicode::Block::Ascii->new(%parameters); Constructor. * "char_from" Character from. Default value is '0000'. * "char_to" Character to. Default value is '007f'. * "title" Title of block. Default value is undef. Returns instance of object. "get" my $output = $obj->get; Get output. Return string with ascii table of Unicode::Block object. "next" my $item = $obj->next; Get next character. Returns Unicode::Block::Item object for character, if character exists. Returns undef, if character doesn't exist. ERRORS new(): From Class::Utils::set_params_pub(): Unknown parameter '%s'. get(): Long title. EXAMPLE1 use strict; use warnings; use Encode qw(encode_utf8); use Unicode::Block::Ascii; use Unicode::Block::List; # Arguments. if (@ARGV < 1) { print STDERR "Usage: $0 block_name\n"; exit 1; } my $block_name = $ARGV[0]; # List object. my $obj = Unicode::Block::List->new; # Get Unicode::Block for block name. my $block = $obj->block($block_name); # Get ASCII object. my $block_ascii = Unicode::Block::Ascii->new(%{$block}); # Print to output. print encode_utf8($block_ascii->get)."\n"; # Output: # Usage: /tmp/o1NG0vm_Wf block_name # Output with 'Block Elements' argument: # ��𢞖���������������������������������������������������������������������������������� # �� Block Elements �� # ��鎿����������������𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𤧅 # �� ��0��1��2��3��4��5��6��7��8��9��A��B��C��D��E��F�� # ��鎿����������������䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���𤧅 # �� U+258x ����������������������������������������争���𪙛���𦥑���𢞖���𨧀���𢛶���謿� # ��鎿����������������䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���𤧅 # �� U+259x ����鐥���爗���圝���𣏾���婙���𨰝���砽���轁���覀���仮���尠���𥕞���鎿���吲���嫰���麨� # ��婙����������������𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁����� EXAMPLE2 use strict; use warnings; use Curses::UI; use Encode qw(encode_utf8); use Unicode::Block::Ascii; use Unicode::Block::List; # Get unicode block list. my $list = Unicode::Block::List->new; my @unicode_block_list = $list->list; # Window. my $cui = Curses::UI->new; my $win = $cui->add('window_id', 'Window'); $win->set_binding(\&exit, "\cQ", "\cC"); # Popup menu. my $popupbox = $win->add( 'mypopupbox', 'Popupmenu', '-labels' => { map { $_, $_ } @unicode_block_list, }, '-onchange' => sub { my $self = shift; $cui->leave_curses; my $block = $list->block($self->get); my $block_ascii = Unicode::Block::Ascii->new(%{$block}); print encode_utf8($block_ascii->get)."\n"; exit 0; }, '-values' => \@unicode_block_list, ); $popupbox->focus; # Loop. $cui->mainloop; # Output after select 'Geometric Shapes' item: # ��𢞖������������������������������������������������������������������������������������������������������������������ # �� Geometric Shapes �� # ��鎿����������������𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𤧅 # �� �� 0�� 1�� 2�� 3�� 4�� 5�� 6�� 7�� 8�� 9�� A�� B�� C�� D�� E�� F�� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25ax �� ��罱� �𡓨�� �硄�� �𢜟�� �𣶸�� �棅�� �㵽�� �鑘�� �㤧�� �慐�� �𢞁�� �𢥫�� �愇�� �鱏�� �鱓�� �鱻�� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25bx �� �鰵�� �鰐�� �魿�� �鯏�� �𩸭�� �鮟�� �𪇵�� �𪃾�� �鴡�� �䲮�� �𤄄�� �鸘�� �䲰�� �鴌�� �𪆴�� �𪃭�� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25cx �� ���� ���� ���� ���� ���� ���� ���� ���� ���� ��争� ��𪙛� ��𦥑� ��𢞖� ��𨧀� ��𢛶� ��謿� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25dx �� ��鐥� ��爗� ��圝� ��𣏾� ��婙� ��𨰝� ��砽� ��轁� ��覀� ��仮� ��尠� ��𥕞� ��鎿� ��吲� ��嫰� ��麨� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25ex �� ��罱� �𤥃�� �𠳿�� �嚤�� �𠘚�� �𠯫�� �𠲸�� �唂�� �秄�� �𡟺�� �緾�� �𡛂�� �𤩐�� �𡡒�� �䔮�� �鐁�� # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅 # �� U+25fx �� �㜊�� �𨫀�� �𤦭�� �妰�� �𡢿�� �𡢃�� �𧒄�� �媡�� �㛢�� �𣵛�� �㚰�� �鉟�� �婹���𨪁���𡡢�� �鍴�� # ��婙����������������𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁������� DEPENDENCIES Error::Pure, Readonly, Text::UnicodeBox, Text::UnicodeBox::Control, Unicode::Block. REPOSITORY <https://github.com/michal-josef-spacek/Unicode-Block-Ascii> AUTHOR Michal Josef �麖a�嶤k <mailto:skim@cpan.org> <http://skim.cz> LICENSE AND COPYRIGHT 穢 2013-2023 Michal Josef �麖a�嶤k BSD 2-Clause License VERSION 0.04