u-fullwidth

#!/usr/bin/perl
# vim:ft=perl:
# abstract: unicode fullwidth
use vars qw($VERSION);
my $APP  = '';
$VERSION = '0.001';
use utf8;
use open qw(:utf8 :std);


use strict;
use Data::Dumper;

{
  package Data::Dumper;
  no strict 'vars';
  $Terse = $Indent = $Useqq = $Deparse = $Sortkeys = 1;
  $Quotekeys = 0;
}

use charnames qw(:full);


for my $ord ( 0 .. 0x10ffff ) {
  #next unless chr($ord) =~ /[[:punct:]]/;
  printf("%6d, %6x: %s %s\n", $ord, $ord, chr($ord), charnames::viacode($ord))
    if charnames::viacode($ord) =~ m/fullwidth/i;
}





=pod

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 OPTIONS

=head1 AUTHOR

  Magnus Woldrich
  CPAN ID: WOLDRICH
  magnus@trapd00r.se
  http://japh.se

=head1 REPORTING BUGS

Report bugs on rt.cpan.org or to magnus@trapd00r.se

=head1 COPYRIGHT

Copyright (C) 2011 Magnus Woldrich. All right reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;


# vim: set ts=2 et sw=2: