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 Ĺ paÄek <mailto:skim@cpan.org> <http://skim.cz> LICENSE AND COPYRIGHT Š 2013-2023 Michal Josef Ĺ paÄek BSD 2-Clause License VERSION 0.04