view release on metacpan or  search on metacpan

scripts/digitdemog  view on Meta::CPAN

  while ( <> ) { 
    next if $o{1} && $seen{$_} ++ ; 
    chomp ; 
    $_ = decode_utf8 $_ unless $binFlag ; 
    my @blanks = m/[[:blank:]]/g ; # <-- -  perldoc  perlrecharclass　perlunicode を参照するのが良いかも Unicode文字プロパティ
    #print "XX" if @blanks ;
    $counts { $_ } ++ for @blanks ; 
  }

  for ( sort keys %counts ) { 

 view release on metacpan or  search on metacpan

scripts/digitdemog  view on Meta::CPAN

  while ( <> ) { 
    next if $o{1} && $seen{$_} ++ ; 
    chomp ; 
    $_ = decode_utf8 $_ unless $binFlag ; 
    my @blanks = m/[[:blank:]]/g ; # <-- -  perldoc  perlrecharclass　perlunicode を参照するのが良いかも Unicode文字プロパティ
    #print "XX" if @blanks ;
    $counts { $_ } ++ for @blanks ; 
  }

  for ( sort keys %counts ) { 

 view release on metacpan or  search on metacpan

lib/Bio/Community/IO/Driver/biom.pm  view on Meta::CPAN

);


has 'matrix_element_type' => (
   is => 'rw',
   #isa => 'Str', # either int, float or unicode
   required => 0,
   init_arg => undef,
   default => undef,
   lazy => 1,
   reader => '_get_matrix_element_type',

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

lib/Bio/DB/SeqFeature/Store/GFF2Loader.pm  view on Meta::CPAN

=item unescape

 my $unescaped = GFF2Loader::unescape($escaped)

This is an internal utility.  It is the same as CGI::Util::unescape,
but doesn't change pluses into spaces and ignores unicode escapes.

=cut

# sub unescape { } inherited

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.009005|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||n
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n

 view release on metacpan or  search on metacpan

bin/distribution  view on Meta::CPAN

my $heightArg = 0;
my $logarithmic = 0;
my $numOnly = '';
# character for ease of eye to scan left/right/up/down
my $histogramChar = "+";
my $unicode = 0;
my $tokenize = 0;
# by default, everything matches (nothing is stripped out)
my $matchRegexp = ".";
# status and summary statistics
my $verbose = 0;

bin/distribution  view on Meta::CPAN

my $partialBlocks =    ["▏", "▎", "▍", "▌", "▋", "▊", "▉", "█"]; # char=pb
my $partialCircles =   ["◖", "●"]; # char=pc
my $partialLines =     ["╸", "╾", "━"]; # char=hl

# some useful substitutions for prettiness
if ($histogramChar eq "ba") { $unicode = 1; $histogramChar = "â–¬"; }
elsif ($histogramChar eq "bl") { $unicode = 1; $histogramChar = "Ξ"; }
elsif ($histogramChar eq "em") { $unicode = 1; $histogramChar = "—"; }
elsif ($histogramChar eq "me") { $unicode = 1; $histogramChar = "⋯"; }
elsif ($histogramChar eq "di") { $unicode = 1; $histogramChar = "♦"; }
elsif ($histogramChar eq "dt") { $unicode = 1; $histogramChar = "•"; }
elsif ($histogramChar eq "sq") { $unicode = 1; $histogramChar = "â–¡"; }

# high-bit set means we're not in ASCIIland anymore
if (ord (substr ($histogramChar, 0, 1)) >= 128) { $unicode = 1; }

# sub-full character width graphing systems
my $charWidth = 1;
my $graphChars = undef;
if ($histogramChar eq "pb") {

bin/distribution  view on Meta::CPAN

		for ($j = 0; $j < int ($barWidth->[$i] * $maxBarWidth); $j++) {
			if ($charWidth < 1) {
				# print out maximum-width character (always last in array)
				print $graphChars->[scalar @$graphChars - 1];
			} else {
				# we're printing regular non-unicode characters
				if (length ($histogramChar) > 1 && !$unicode) {
					# but still we have >1 byte! so print initial byte
					# for all but the last character (printed outside loop)
					print substr ($histogramChar, 0, 1);
				} else {
					print $histogramChar;

bin/distribution  view on Meta::CPAN

          # we had minimum remainder, so print minimum-width
          # character just print the minimum-width portion
          print $graphChars->[0];
        }
      } else {
        # we're printing regular non-unicode characters
        if (length ($histogramChar) > 1 && !$unicode) {
          # but still we have >1 byte! so print final byte of input string
          print substr ($histogramChar, -1, 1);
        } else {
          print $histogramChar;
        }

bin/distribution  view on Meta::CPAN

	print "        em       (—) Emdash\n";
	print "        me       (⋯) Mid-Elipses\n";
	print "        di       (♦) Diamond\n";
	print "        dt       (•) Dot\n";
	print "        sq       (â–¡) Square\n";
	print "        hl       Use 1/3-width unicode partial lines to simulate 3x actual terminal width\n";
	print "        pb       Use 1/8-width unicode partial blocks to simulate 8x actual terminal width\n";
	print "        pc       Use 1/2-width unicode partial circles to simulate 2x actual terminal width\n";
	print "  --color        colourise the output\n";
	print "  --graph[=G]    input is already key/value pairs. vk is default:\n";
	print "        kv       input is ordered key then value\n";
	print "        vk       input is ordered value then key\n";
	print "  --height=N     height of histogram, headers non-inclusive, overrides --size\n";

 view release on metacpan or  search on metacpan

doc/doc.latex  view on Meta::CPAN

% Options for packages loaded elsewhere
\PassOptionsToPackage{unicode$for(hyperrefoptions)$,$hyperrefoptions$$endfor$}{hyperref}
\PassOptionsToPackage{hyphens}{url}
$if(colorlinks)$
\PassOptionsToPackage{dvipsnames,svgnames*,x11names*}{xcolor}
$endif$
$if(dir)$

doc/doc.latex  view on Meta::CPAN

$if(mathspec)$
  \ifxetex
    \usepackage{amssymb}
    \usepackage{mathspec}
  \else
    \usepackage{unicode-math}
  \fi
$else$
  \usepackage{unicode-math}
$endif$
  \defaultfontfeatures{Scale=MatchLowercase}
  \defaultfontfeatures[\rmfamily]{Ligatures=TeX,Scale=1}
$if(mainfont)$
  \setmainfont[$for(mainfontoptions)$$mainfontoptions$$sep$,$endfor$]{$mainfont$}

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Bio-Taxonomy-GlobalNames

0.07    2014-12-23 00:30
    - Fixed a failing unicode test and one caused by an old version of Moo.

0.06    2014-03-28 17:40
    - Fixed a pod bug where a private subroutine was marked as naked.

0.05    2014-03-28 14:54

 view release on metacpan or  search on metacpan

Bio/DB/SeqFeature/Store/GFF2Loader.pm  view on Meta::CPAN

=item unescape

 my $unescaped = GFF2Loader::unescape($escaped)

This is an internal utility.  It is the same as CGI::Util::unescape,
but doesn't change pluses into spaces and ignores unicode escapes.

=cut

# sub unescape { } inherited

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

parse_fullstmt||5.013005|
parse_label||5.013007|
parse_listexpr||5.013008|
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

lib/Bitcoin/Crypto/Key/ExtPrivate.pm  view on Meta::CPAN

This method accepts a secret argument. See L<Bitcoin::Crypto::Secret> for details.

Returns a new instance of this class.

B<Important note about unicode:> this function only accepts UTF8-decoded
strings (both C<$mnemonic> and C<$password>), but can't detect whether it got
it or not. This will only become a problem if you use non-ascii mnemonic and/or
password. If there's a possibility of non-ascii, always use utf8 and set
binmodes to get decoded (wide) characters to avoid problems recovering your
wallet.

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu

ppport.h  view on Meta::CPAN

PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu

ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

src/boost/config/compiler/clang.hpp  view on Meta::CPAN

#if !__has_feature(cxx_alias_templates)
#  define BOOST_NO_CXX11_TEMPLATE_ALIASES
#endif

#if !__has_feature(cxx_unicode_literals)
#  define BOOST_NO_CXX11_UNICODE_LITERALS
#endif

#if !__has_feature(cxx_variadic_templates)
#  define BOOST_NO_CXX11_VARIADIC_TEMPLATES

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

include/boost/regex/icu.hpp
include/boost/regex/mfc.hpp
include/boost/regex/pattern_except.hpp
include/boost/regex/pending/object_cache.hpp
include/boost/regex/pending/static_mutex.hpp
include/boost/regex/pending/unicode_iterator.hpp
include/boost/regex/regex_traits.hpp
include/boost/regex/user.hpp
include/boost/regex/v4/basic_regex.hpp
include/boost/regex/v4/basic_regex_creator.hpp
include/boost/regex/v4/basic_regex_parser.hpp

 view release on metacpan or  search on metacpan

lib/Bosch/RCPPlus/Commands.pm  view on Meta::CPAN

use POSIX qw(floor);
use Bosch::RCPPlus::Utils qw(bytes2int);

our %Type = (
	flag => 'F_FLAG',
	unicode => 'P_UNICODE',
	octect => 'P_OCTET',
	word => 'T_DWORD',
);

our %Direction = (

lib/Bosch/RCPPlus/Commands.pm  view on Meta::CPAN

{
	my ($num) = @_;

	return (
		command => '0x0019',
		type => $Type{unicode},
		drection => $Direction{read},
		num => $num || 1,
	);
}

 view release on metacpan or  search on metacpan

lib/Bot/Babelfish.pm  view on Meta::CPAN

        eval { $result = decode('utf-8', $translator->translate($text)) };
        $self->{babel}{cache}{$from_to}{$text} = $result unless $@;
    }
    #print STDERR " ($@) result = $result\n";

    $text = non_unicode_version(decode('utf-8', $text));
    $result = non_unicode_version($result);

    $args->{body} = defined($result) ? qq|$to_lang for "$text" => "$result"| : "error: $@";
    $self->say($args);
    
    return $args

lib/Bot/Babelfish.pm  view on Meta::CPAN

           "  where 'from' and 'to' are two-letters codes of source and destination languages\n".
           "  see http://babelfish.altavista.com/ for the list of supported languages.\n".
           "  example:    babel: fr en: ceci n'est pas une pipe"
}

=item non_unicode_version()

This function returns a printable version of the given string 
(with a European value of "printable" C<:-)>. More precisely, 
if the string only contains Latin-1 characters, it is returned 
decoded from internal Perl format. If the string contains 
others characters outside Latin-1, it's converted using 
C<Text::Unidecode>. 

=cut

sub non_unicode_version {
    my $text = shift;
    my $wide = 0;
    ord($_) > 255 and $wide++ for split //, $text;
    return $wide ? unidecode($text) : encode('iso-8859-1', $text)
}

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    <BooK> meta themes?
    <meta> 161 themes available: abba afke alice all_in_the_family alphabet amber antlers any asterix barbapapa barbarella batman beatles bee_gees ben_and_jerry bible booze bottles browser buffy buzzwords calvin camelidae candyland care_bears charlie...
    <meta> ..contrade contributors counting_rhyme counting_to_one crypto currency daleks dancers debian dilbert discworld doctor_who donmartin dune dwarves elements errno evangelion evangelist fabeltjeskrant facecards famous_five fawlty_towers flints...
    <meta> ..groo haddock hhgg iata icao invasions jabberwocky jamesbond jelly_belly jerkcity kodokan legobatman legoharrypotter legoindianajones legolotr legopiratesofthecaribbean linux loremipsum lotr lucky_luke magic8ball magicroundabout magma mar...
    <meta> ..nobel_prize norse_mythology noughts_and_crosses octothorpe olympics opcodes oulipo pantagruel pasta pause_id peanuts pgpfone phonetic pie planets pm_groups pokemon pooh pop2 pop3 pornstars pumpkings punctuation pynchon python quantum reg...
    <meta> ..services shadok shou_dou_qi simpsons sins smtp smurfs sodor southpark soviet space_missions sql stars state_flowers summerwine swords tarot teletubbies thunderbirds tld tmnt tokipona tour_de_france trigan unicode us_presidents userfriend...
    <meta> ..zodiac
    <BooK> meta categories? jamesbond
    <meta> Categories for jamesbond: actors films firearms girls novels novels/benson novels/fleming novels/gardner vehicles vehicles/aircraft 
              vehicles/cars vehicles/motorcycles vehicles/other vehicles/ships villains
    <BooK> meta categories? shadok

 view release on metacpan or  search on metacpan

lib/Bot/Cobalt/Plugin/URLTitle.pm  view on Meta::CPAN

   foreach my $uri ( list_uris($msg->message) ) {
      next if not $uri;

      my $text = $self->ua->get($uri)->result->dom->at('title')->text or next;

      my @split = split /\n/, unidecode($text); # Remove unicode characters and split on newlines
      my $title = first { /\S/ } @split;         # Grab first element with non-space characters

      # Remove leading and trailing whitespace
      $title =~ s/^\s+(.+)/$1/;
      $title =~ s/(.+)\s+$/$1/;     

 view release on metacpan or  search on metacpan

lib/Bot/Cobalt/IRC.pm  view on Meta::CPAN

L<perlunitut>

=item *

L<perlunicode>

=back


=head3 Bot_public_cmd_CMD

 view release on metacpan or  search on metacpan

src/ppport.h  view on Meta::CPAN

pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

src/ppport.h  view on Meta::CPAN

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape

 view release on metacpan or  search on metacpan

COPYRIGHT  view on Meta::CPAN

 examples/classes/Desktop/office/locale/ZA.yml
 examples/classes/Desktop/office/presentation.yml
 examples/classes/Desktop/office/spreadsheet.yml
 examples/classes/Desktop/office/word-processor.yml
 examples/classes/Desktop/scheduling/init.yml
 examples/classes/Desktop/screensaver/unicode.yml
 examples/classes/Desktop/tools/harden.yml
 examples/classes/Desktop/tools/pgp/gtk.yml
 examples/classes/Desktop/tools/pgp/init.yml
 examples/classes/Desktop/web/base.yml
 examples/classes/Desktop/web/harden.yml

 view release on metacpan or  search on metacpan

lib/Broadworks/OCIP.pm  view on Meta::CPAN

# ABSTRACT: API for communication with Broadworks OCI-P Interface

use strict;
use warnings;
use utf8;
use feature 'unicode_strings';
use namespace::autoclean;

our $VERSION = '0.09'; # VERSION
our $AUTHORITY = 'cpan:NIGELM'; # AUTHORITY

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

- POD
- perl critic

0.10  Fri Sep 26 22:00:00 2008
- tenth developer test version
- code_ref $maketext_to_gettext_scalar at DBD::PO::db is unicode safe now
- more POD for DBD::PO
- change from load_file_asarray to load_entry
- bugfix binmode

0.09  Sat Sep 20 22:00:00 2008

 view release on metacpan or  search on metacpan

lib/Biblio/BP.pm  view on Meta::CPAN

#
#    reg_format($long_name, $short_name, $pkg_name, $charset_name, @info);
#
#           [ file bp-p-cs ]
#
#    unicode_to_canon($unicode);
#
#    canon_to_unicode($character);
#
#    decimal_to_unicode($number);
#
#    unicode_to_decimal($unicode);
#
#    unicode_name($unicode);
#
#    meta_name($metacode);
#
#    meta_approx($metacode);
#
#    unicode_approx($unicode);
#
#    nocharset($string);
#
#           [ file bp-p-util ]
#

 view release on metacpan or  search on metacpan

TODO  view on Meta::CPAN

* Sort out ignore stuff                                       - DONE
* Fix entities                                                -
* Move content decoding into ::Attachment                     -
* Add content disposition to ::Attachment                     -
* Do something about inline html                              -
* Make unicode bodies show up in Recent properly              - 
* Make braindead browsers pick up filename properly           - DONE
* have a good long think about HTML mails                     -
  (inline images etc etc)

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

  Change: c18b71c64a0ac74dff8acb57093a87c70676f181
  Author: William Wolf <throughnothing@gmail.com>
  Date : 2014-01-24 12:21:17 +0000

    Merge pull request #28 from Crowdtilt/unicode

    Use encode/decode json instead of to/from to fix unicode issues 

  Change: 438f37e567425123827dd6aafc48dbb1f53bcdc0
  Author: William Wolf <throughnothing@gmail.com>
  Date : 2014-01-24 12:20:11 +0000

CHANGES  view on Meta::CPAN

  Change: 8dd7b3a992b868805fd9f8f015dc4851804ec0cb
  Author: William Wolf <throughnothing@gmail.com>
  Date : 2014-01-23 12:10:01 +0000

    Use encode/decode json instead of to/from to fix unicode issues 

  Change: eadc9bef54e90c2299f69ef739a1ff1ab13c2764
  Author: Naveed Massjouni <naveedm9@gmail.com>
  Date : 2013-12-27 14:25:49 +0000