Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 64 lines (38 sloc) 936 Bytes
#!/usr/bin/perl
use vars qw($VERSION);
my $APP = '';
$VERSION = '0.001';
use strict;
use Data::Dumper;
{
package Data::Dumper;
no strict 'vars';
$Terse = $Indent = $Useqq = $Deparse = $Sortkeys = 1;
$Quotekeys = 0;
}
use encoding 'utf8';
use charnames qw(:full);
for my $ord ( 0 .. 0x10ffff ) {
#next unless chr($ord) =~ /[[:punct:]]/;
printf("%s %s %s\n", $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: