Result:
found more than 828 distributions - search limited to the first 2001 files matching your query
( run in 0.655 )
App-Unicode-Block
view release on metacpan or search on metacpan
$self->{'_opts'} = {
'h' => 0,
'l' => 0,
};
if (! getopts('hl', $self->{'_opts'}) || $self->{'_opts'}->{'h'}) {
print STDERR "Usage: $0 [-h] [-l] [--version] [unicode_block]\n";
print STDERR "\t-h\t\tHelp.\n";
print STDERR "\t-l\t\tList of blocks.\n";
print STDERR "\t--version\tPrint version.\n";
print STDERR "\tunicode_block\tUnicode block name for print.\n";
return 1;
}
$self->{'_unicode_block'} = $ARGV[0];
# Get unicode block list.
$self->{'_list'} = Unicode::Block::List->new;
$self->{'_unicode_block_list'} = [$self->{'_list'}->list];
# Check unicode block.
if (defined $self->{'_unicode_block'}) {
if (none { $self->{'_unicode_block'} eq $_ }
@{$self->{'_unicode_block_list'}}) {
err "Unicode block '$self->{'_unicode_block'}' doesn't exist.";
}
}
# Print unicode blocks.
if ($self->{'_opts'}->{'l'}) {
print join "\n", @{$self->{'_unicode_block_list'}};
print "\n";
return 0;
}
# Print block.
if ($self->{'_unicode_block'}) {
$self->_print_block($self->{'_unicode_block'});
# GUI for selecting of block.
} else {
# Window.
# Popup menu.
my $popupbox = $win->add(
'mypopupbox', 'Popupmenu',
'-labels' => {
map { $_, $_ } @{$self->{'_unicode_block_list'}},
},
'-onchange' => sub {
my $cui_self = shift;
$cui->leave_curses;
$self->_print_block($cui_self->get);
exit 0;
},
'-values' => $self->{'_unicode_block_list'},
);
$popupbox->focus;
# Loop.
$cui->mainloop;
=encoding utf8
=head1 NAME
App::Unicode::Block - Base class for unicode-block script.
=head1 SYNOPSIS
use App::Unicode::Block;
App-ZFSCurses
view release on metacpan or search on metacpan
lib/App/ZFSCurses/Text.pm view on Meta::CPAN
sync%Controls the behavior of synchronous requests (e.g. fsync(2), O_DSYNC). This property accepts the following values:
volsize%For volumes, specifies the logical size of the volume. By default, creating a volume establishes a reservation of equal size. For storage pools with a version number of 9 or higher, a refreservation is set instead. Any changes to volsize are ...
volmode%This property specifies how volumes should be exposed to the OS. Setting it to geom exposes volumes as geom(4) providers, providing maximal functionality. Setting it to dev exposes volumes only as cdev device in devfs. Such volumes can be acc...
jailed%Controls whether the dataset is managed from a jail. See the "Jails" section for more information. The default value is off.
casesensitivity%Indicates whether the file name matching algorithm used by the file system should be case-sensitive, case-insensitive, or allow a combination of both styles of matching. The default value for the casesensitivity property is sensitive....
normalization%Indicates whether the file system should perform a unicode normalization of file names whenever two file names are compared, and which normalization algorithm should be used. File names are always stored unmodified, names are normalized...
utf8only%Indicates whether the file system should reject file names that include characters that are not present in the UTF-8 character code set. If this property is explicitly set to off, the normalization property must either not be explicitly set ...
dnodesize%Specifies a compatibility mode or literal value for the size of dnodes in the file system. The default value is legacy. Setting this property to a value other than legacy requires the large_dnode pool feature to be enabled. Consider setting...
version%The on-disk version of this file system, which is independent of the pool version. This property can only be set to later supported versions.
App-Zapzi
view release on metacpan or search on metacpan
lib/App/Zapzi/Database.pm view on Meta::CPAN
sub schema
{
my $self = shift;
$_schema //= App::Zapzi::Database::Schema->connect({
dsn =>$self->dsn,
sqlite_unicode => 1,
on_connect_do => 'PRAGMA foreign_keys = ON'});
return $_schema;
}
App-ZodiacUtils
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
#Bool, default: 0.
#
#If set to 1, then pragmas at the start of coderef dump will be removed. Coderef
#dump is produced by L<B::Deparse> and is of the form like:
#
# sub { use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $a <=> $b }
#
#If you want to dump short coderefs, the pragmas might be distracting. You can
#turn turn on this option which will make the above dump become:
#
# sub { $a <=> $b }
App-ZofCMS
view release on metacpan or search on metacpan
lib/App/ZofCMS/Plugin/LinksToSpecs/CSS.pm view on Meta::CPAN
=> q|http://w3.org/TR/CSS21/visuren.html#propdef-direction|,
'text-decoration'
=> q|http://w3.org/TR/CSS21/text.html#propdef-text-decoration|,
'unicode-bidi'
=> q|http://w3.org/TR/CSS21/visuren.html#propdef-unicode-bidi|,
'background-repeat'
=> q|http://w3.org/TR/CSS21/colors.html#propdef-background-repeat|,
'right'
App-a2p
view release on metacpan or search on metacpan
#endif
#include "patchlevel.h"
#include "util.h"
#if PERL_VERSION > 17
#include "unicode_constants.h"
#define DELETE_CHAR DEL_NATIVE
#else
#define DELETE_CHAR 127
#endif
App-ansicolumn
view release on metacpan or search on metacpan
- **--tabhead**=#
- **--tabspace**=#
Set head and following space characters. Both are space by default.
If the option value is longer than single characger, it is evaluated
as unicode name.
- **--tabstyle**, **--ts**
- **--tabstyle**=_style_, **--ts**=...
- **--tabstyle**=_head-style_,_space-style_ **--ts**=...
App-ansiecho
view release on metacpan or search on metacpan
Revision history for Perl script App-ansiecho
1.0702 2024-03-23T01:17:31Z
- allow "-" in unicode name
1.0701 2023-11-21T17:06:48Z
- update test to work under the doublelong environment
App-ansifold
view release on metacpan or search on metacpan
## **--tabhead**, **--tabspace**
Each tab character is converted to **tabhead** and following
**tabspace** characters (both are space by default). They can be
specified by **--tabhead** and **--tabspace** option. If the option
value is longer than single characger, it is evaluated as unicode
name. Next example makes tab character visible keeping text layout.
$ ansifold --expand --tabhead="MEDIUM SHADE" --tabspace="LIGHT SHADE"
## **--tabstyle**
App-cat-v
view release on metacpan or search on metacpan
- rename -R to -o and update behavior
- define mark for ESC
1.01 2024-11-11T02:07:54Z
- add unicode mark for DEL char
1.00 2024-09-14T03:05:23Z
- introduce --replicate (-R) option
- version 1.00 release
App-ccdiff
view release on metacpan or search on metacpan
lib/App/ccdiff.pm view on Meta::CPAN
while (<$fh>) {
my ($k, $v) = (m/^\s*([-\w]+)\s*[:=]\s*(.*\S)/) or next;
$rc{ lc $k
=~ s{[-_]colou?r$}{}ir
=~ s{background}{bg}ir
=~ s{^(?:unicode|utf-?8?)$}{utf8}ir
} = $v
=~ s{U\+?([0-9A-Fa-f]{2,7})}{chr hex $1}ger
=~ s{^(?:no|false)$}{0}ir
=~ s{^(?:yes|true)$}{-1}ir; # -1 is still true
}
lib/App/ccdiff.pm view on Meta::CPAN
Defines whether all I/O is to be interpreted as UTF-8. The default is C<no>.
This option may also be specified as
unicode
utf
utf-8
=item index (-I)
App-cloc
view release on metacpan or search on metacpan
not download files from remote repositories.
'svn list -R' may refer to a remote repository
to obtain file names (and therefore may require
authentication to the remote repository), but
the files themselves must be local.
--unicode Check binary files to see if they contain Unicode
expanded ASCII text. This causes performance to
drop noticeably.
${BB}Processing Options${NN}
--autoconf Count .in files (as processed by GNU autoconf) of
counters. SLOCCount's compiled counters are
substantially faster than cloc's and may give
a performance improvement when counting projects
with large files. However, these cloc-specific
features will not be available: --diff,
--count-and-diff, --strip-comments, --unicode.
--windows Override the operating system autodetection
logic and run in Microsoft Windows mode.
See also --unix, --show-os.
${BB}Filter Options${NN}
$opt_quiet ,
$opt_report_file ,
$opt_sdir ,
$opt_sum_reports ,
$opt_processes ,
$opt_unicode ,
$opt_no3 , # accept it but don't use it
$opt_3 ,
$opt_extract_with ,
$opt_by_file ,
$opt_by_file_by_lang ,
"skip_uniqueness|skip-uniqueness" => \$opt_skip_uniqueness ,
"strip_comments|strip-comments=s" => \$opt_strip_comments ,
"original_dir|original-dir" => \$opt_original_dir ,
"sum_reports|sum-reports" => \$opt_sum_reports ,
"processes=n" => \$opt_processes ,
"unicode" => \$opt_unicode ,
"no3" => \$opt_no3 , # ignored
"3" => \$opt_3 ,
"v|verbose:i" => \$opt_v ,
"vcs=s" => \$opt_vcs ,
"version" => \$opt_version ,
$opt_use_sloccount = 0;
} else {
warn "Using c_count, php_count, xml_count, pascal_count from SLOCCount\n";
warn "--diff is disabled with --use-sloccount\n" if $opt_diff;
warn "--count-and-diff is disabled with --use-sloccount\n" if $opt_count_diff;
warn "--unicode is disabled with --use-sloccount\n" if $opt_unicode;
warn "--strip-comments is disabled with --use-sloccount\n" if $opt_strip_comments;
$opt_diff = 0;
$opt_count_diff = undef;
$opt_unicode = 0;
$opt_strip_comments = 0;
}
}
$opt_vcs = 0 if $opt_force_git;
if (!(-s $file_or_dir)) { # 0 sized file, named pipe, socket
$rh_ignored->{$file_or_dir} = 'zero sized file';
next;
} elsif (-B $file_or_dir and !$opt_read_binary_files) {
# avoid binary files unless user insists on reading them
if ($opt_unicode) {
# only ignore if not a Unicode file w/trivial
# ASCII transliteration
if (!unicode_file($file_or_dir)) {
$rh_ignored->{$file_or_dir} = 'binary file';
next;
}
} else {
$rh_ignored->{$file_or_dir} = 'binary file';
}
my $is_dir = is_dir($_);
my $is_bin = -B $_ ;
printf "files(%s) size=%d is_dir=%d -B=%d\n",
$File::Find::name, $nBytes, $is_dir, $is_bin if $opt_v > 5;
$is_bin = 0 if $opt_unicode and unicode_file($_);
$is_bin = 0 if $opt_read_binary_files;
return if $is_dir or $is_bin;
++$nFiles_Found;
printf "%8d files\r", $nFiles_Found
unless (!$opt_progress_rate or ($nFiles_Found % $opt_progress_rate));
print "-> call_counter($file, $language)\n" if $opt_v > 2;
#print "call_counter: ", Dumper(@routines), "\n";
my @lines = ();
my $ascii = "";
if (-B $file and $opt_unicode) {
# was binary so must be unicode
$/ = undef;
my $IN = new IO::File $file, "r";
my $bin_text = <$IN>;
$IN->close;
$/ = "\n";
$ascii = unicode_to_ascii( $bin_text );
@lines = split("\n", $ascii );
foreach (@lines) { $_ = "$_\n"; }
} else {
# regular text file
die "Unknown language '$lang' used with $option_name option. " .
"The command\n $script --show-lang\n" .
"will print all recognized languages. Language names are " .
"case sensitive.\n" ;
} # 1}}}
sub unicode_file { # {{{1
my $file = shift @_;
print "-> unicode_file($file)\n" if $opt_v > 2;
return 0 if (-s $file > 2_000_000);
# don't bother trying to test binary files bigger than 2 MB
my $IN = new IO::File $file, "r";
if (!defined $IN) {
return 0;
}
my @lines = <$IN>;
$IN->close;
if (unicode_to_ascii( join('', @lines) )) {
print "<- unicode_file()\n" if $opt_v > 2;
return 1;
} else {
print "<- unicode_file()\n" if $opt_v > 2;
return 0;
}
} # 1}}}
sub unicode_to_ascii { # {{{1
my $string = shift @_;
# A trivial attempt to convert UTF-16 little or big endian
# files into ASCII. These files exhibit the following byte
# sequence:
# byte 4+i: ord of ASCII character
my $length = length $string;
#print "length=$length\n";
return '' if $length <= 3;
my @unicode = split(//, $string);
# check the first 100 characters for big or little endian UTF-16 encoding
my $max_peek = $length < 200 ? $length : 200;
my @view_1 = ();
for (my $i = 2; $i < $max_peek; $i += 2) { push @view_1, $unicode[$i] }
my @view_2 = ();
for (my $i = 3; $i < $max_peek; $i += 2) { push @view_2, $unicode[$i] }
my $points_1 = 0;
foreach my $C (@view_1) {
++$points_1 if (32 <= ord($C) and ord($C) <= 127) or ord($C) == 13
or ord($C) == 10
if ($points_1 > 90) { $offset = 2; }
elsif ($points_2 > 90) { $offset = 3; }
else { return '' } # neither big or little endian UTF-16
my @ascii = ();
for (my $i = $offset; $i < $length; $i += 2) { push @ascii, $unicode[$i]; }
return join("", @ascii);
} # 1}}}
sub uncompress_archive_cmd { # {{{1
my ($archive_file, ) = @_;
'svn list -R' may refer to a remote repository
to obtain file names (and therefore may require
authentication to the remote repository), but
the files themselves must be local.
=item B<--unicode>
Check binary files to see if they contain Unicode expanded ASCII text.
This causes performance to drop noticeably.
=back
counters. SLOCCount's compiled counters are
substantially faster than cloc's and may give
a performance improvement when counting projects
with large files. However, these cloc-specific
features will not be available: B<--diff>,
B<--count-and-diff>, B<--strip-comments>, B<--unicode>.
=item B<--windows>
Over-ride the operating system detection logic and run in
Microsoft Windows mode. See also B<--unix>, B<--show-os>.
App-cpanminus-reporter
view release on metacpan or search on metacpan
t/data/build.cloudweights.log view on Meta::CPAN
t/20-unit/Type-Utils/dwim-mouse.t .................. skipped: Test requires module 'Mouse' but it's not found
t/20-unit/Type-Utils/match-on-type.t ............... ok
t/20-unit/Types-Common-Numeric/basic.t ............. ok
t/20-unit/Types-Common-String/basic.t .............. ok
t/20-unit/Types-Common-String/coerce.t ............. ok
t/20-unit/Types-Common-String/unicode.t ............ ok
t/20-unit/Types-Standard/basic.t ................... ok
t/20-unit/Types-Standard/deep-coercions.t .......... ok
t/20-unit/Types-Standard/mxtmlb-alike.t ............ ok
t/20-unit/Types-Standard/optlist.t ................. ok
t/20-unit/Types-Standard/overload.t ................ ok
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
} unpack('U*', $_[0])
);
}
sub _encode_surrogates { # from perlunicode
my $uni = $_[0] - 0x10000;
return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00);
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
decode_error("surrogate pair expected");
}
if ( ( my $hex = hex( $u ) ) > 127 ) {
$is_utf8 = 1;
$s .= JSON_PP_decode_unicode($u) || next;
}
else {
$s .= chr $hex;
}
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
}
} # PARSE
sub _decode_surrogates { # from perlunicode
my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00);
my $un = pack('U*', $uni);
utf8::encode( $un );
return $un;
}
sub _decode_unicode {
my $un = pack('U', hex shift);
utf8::encode( $un );
return $un;
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
if ( $] >= 5.008 ) {
*JSON::PP::JSON_PP_encode_ascii = \&_encode_ascii;
*JSON::PP::JSON_PP_encode_latin1 = \&_encode_latin1;
*JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
*JSON::PP::JSON_PP_decode_unicode = \&_decode_unicode;
}
if ($] >= 5.008 and $] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
package JSON::PP;
require subs;
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
=head2 FEATURES
=over
=item * correct unicode handling
This module knows how to handle Unicode (depending on Perl version).
See to L<JSON::XS/A FEW NOTES ON UNICODE AND PERL> and L<UNICODE HANDLING ON PERLS>.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
use Encode;
local $/;
open( my $fh, '<', 'json.data' );
my $encoding = 'cp932';
my $unicode_json_text = decode( $encoding, <$fh> ); # UNICODE
# or you can write the below code.
#
# open( my $fh, "<:encoding($encoding)", 'json.data' );
# $unicode_json_text = <$fh>;
In this case, C<$unicode_json_text> is of course UNICODE string.
So you B<cannot> use C<decode_json> nor C<JSON> module object with C<utf8> enable.
Instead of them, you use C<JSON> module object with C<utf8> disable.
$perl_scalar = $json->utf8(0)->decode( $unicode_json_text );
Or C<encode 'utf8'> and C<decode_json>:
$perl_scalar = decode_json( encode( 'utf8', $unicode_json_text ) );
# this way is not efficient.
And now, you want to convert your C<$perl_scalar> into JSON data and
send it to an outer world - a network or a file content, and so on.
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
You B<cannot> use C<encode_json> nor C<JSON> module object with C<utf8> enable.
Instead of them, you use C<JSON> module object with C<utf8> disable.
Note that the resulted text is a UNICODE string but no problem to print it.
# $perl_scalar contains $encoding encoded string values
$unicode_json_text = $json->utf8(0)->encode( $perl_scalar );
# $unicode_json_text consists of characters less than 0x100
print $unicode_json_text;
Or C<decode $encoding> all string values and C<encode_json>:
$perl_scalar->{ foo } = decode( $encoding, $perl_scalar->{ foo } );
# ... do it to each string values, then encode_json
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
Perl can handle Unicode and the JSON::PP de/encode methods also work.
=head2 Perl 5.005
Perl 5.005 is a byte sementics world -- all strings are sequences of bytes.
That means the unicode handling is not available.
In encoding,
$json->allow_nonref->encode(chr hex 3042); # hex 3042 is 12354.
$json->allow_nonref->encode(chr hex 12345); # hex 12345 is 74565.
App-cpantimes
view release on metacpan or search on metacpan
} unpack('U*', $_[0])
);
}
sub _encode_surrogates { # from perlunicode
my $uni = $_[0] - 0x10000;
return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00);
}
decode_error("surrogate pair expected");
}
if ( ( my $hex = hex( $u ) ) > 127 ) {
$is_utf8 = 1;
$s .= JSON_PP_decode_unicode($u) || next;
}
else {
$s .= chr $hex;
}
}
}
} # PARSE
sub _decode_surrogates { # from perlunicode
my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00);
my $un = pack('U*', $uni);
utf8::encode( $un );
return $un;
}
sub _decode_unicode {
my $un = pack('U', hex shift);
utf8::encode( $un );
return $un;
}
if ( $] >= 5.008 ) {
*JSON::PP::JSON_PP_encode_ascii = \&_encode_ascii;
*JSON::PP::JSON_PP_encode_latin1 = \&_encode_latin1;
*JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
*JSON::PP::JSON_PP_decode_unicode = \&_decode_unicode;
}
if ($] >= 5.008 and $] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
package JSON::PP;
require subs;
App-cpanurl
view release on metacpan or search on metacpan
script/cpanurl view on Meta::CPAN
} unpack('U*', $_[0])
);
}
sub _encode_surrogates { # from perlunicode
my $uni = $_[0] - 0x10000;
return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00);
}
script/cpanurl view on Meta::CPAN
decode_error("surrogate pair expected");
}
if ( ( my $hex = hex( $u ) ) > 127 ) {
$is_utf8 = 1;
$s .= JSON_PP_decode_unicode($u) || next;
}
else {
$s .= chr $hex;
}
}
script/cpanurl view on Meta::CPAN
}
} # PARSE
sub _decode_surrogates { # from perlunicode
my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00);
my $un = pack('U*', $uni);
utf8::encode( $un );
return $un;
}
sub _decode_unicode {
my $un = pack('U', hex shift);
utf8::encode( $un );
return $un;
}
script/cpanurl view on Meta::CPAN
if ( $] >= 5.008 ) {
*App::cpanurl::JSON::PP::JSON_PP_encode_ascii = \&_encode_ascii;
*App::cpanurl::JSON::PP::JSON_PP_encode_latin1 = \&_encode_latin1;
*App::cpanurl::JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
*App::cpanurl::JSON::PP::JSON_PP_decode_unicode = \&_decode_unicode;
}
if ($] >= 5.008 and $] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
package App::cpanurl::JSON::PP;
require subs;
App-csv2sqlite
view release on metacpan or search on metacpan
lib/App/csv2sqlite.pm view on Meta::CPAN
my ($self) = @_;
# TODO: does the dbname need to be escaped in some way?
my $dbh = DBI->connect('dbi:SQLite:dbname=' . $self->dbname, undef, undef, {
RaiseError => 1,
PrintError => 0,
sqlite_unicode => $self->encoding ? 1 : 0,
});
return $dbh;
}
sub encoding {
App-diff_spreadsheets
view release on metacpan or search on metacpan
t/t_Common.pm view on Meta::CPAN
use Data::Dumper::Interp 6.006 ();
unless (Cwd::abs_path(__FILE__) =~ /Data-Dumper-Interp/) {
# unless we are testing DDI
Data::Dumper::Interp->import::into($target,
qw/:DEFAULT rdvis rvis addrvis_digits/);
$Data::Dumper::Interp::Useqq = 'unicode'; # omit 'controlpic' to get \t etc.
}
# chain to Exporter to export any other importable items
goto &Exporter::import
}
App-digitdemog
view release on metacpan or search on metacpan
@e = map { decode_utf8 $_ } @e unless $optu0 ;
unshift @e , "$eol\$" ; # æ£è¦è¡¨ç¾ãƒ‘ターン群㫠$eol ã‚’ 最åˆã« è¿½åŠ ã€‚ # 「行末ã€ã¯é »åº¦ãŒå¤šã„ã®ã§æœ€åˆã«æŒã£ã¦ããŸã€‚
#push @e , "$eol\$" ; # æ£è¦è¡¨ç¾ãƒ‘ターン群㫠$eol ã‚’ æœ€å¾Œã« è¿½åŠ ã€‚# ã“ã“ã¯ã€unshift ã§ã‚‚ push ã§ã‚‚良ã„。
my @eqr ; # 「e ã‚’qrã•ã‚ŒãŸ ã€ã«ã‚ˆã‚Šå付ã‘ãŸã€‚
my @exu ; # 「eã«ãŠã„ã¦ã€ã‚¨ã‚¹ã‚±ãƒ¼ãƒ—(escape)ã—ã¦ãƒ¦ãƒ‹ã‚³ãƒ¼ãƒ‰(unicode)ã§è¡¨ã—ãŸéƒ¨åˆ†ãŒã‚ã‚‹ã€ã«ã‚ˆã‚Šå付ã‘ãŸ
for ( 0 .. $#e ) {
my $eout = $e[$_] =~ s/#.*$//r ; # æ£è¦è¡¨ç¾ã§ã€ã‚³ãƒ¡ãƒ³ãƒˆ#ã®éƒ¨åˆ†ã¯é™¤åŽ»ã™ã‚‹ã€‚
my @F = split /([[:^ascii:]])/o , $eout , 0 ; # パターンã§åˆ‡ã£ãŸæœ€å¾Œã¯ç©ºæ–‡å—列ãªã‚‰åˆ‡ã‚Šè½ã¨ã™ãŸã‚ã®0
grep { $_ = (sprintf '\x{%02X}', ord $_ ) if m/[[:^ascii:]]/ } @F ;
my $p = join '' , @F ;
App-docsisious
view release on metacpan or search on metacpan
lib/App/docsisious/public/icons/flaticon.svg view on Meta::CPAN
<?xml version="1.0" standalone="no"?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg xmlns="http://www.w3.org/2000/svg"><defs><font id="flaticon" horiz-adv-x="512"><font-face units-per-em="512" ascent="448" descent="-64" x-height="240" cap-height="480"/><missing-glyph horiz-adv-x="512"/><glyph unicode="" glyph-name="down...
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
#Bool, default: 0.
#
#If set to 1, then pragmas at the start of coderef dump will be removed. Coderef
#dump is produced by L<B::Deparse> and is of the form like:
#
# sub { use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $a <=> $b }
#
#If you want to dump short coderefs, the pragmas might be distracting. You can
#turn turn on this option which will make the above dump become:
#
# sub { $a <=> $b }
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
#Bool, default: 0.
#
#If set to 1, then pragmas at the start of coderef dump will be removed. Coderef
#dump is produced by L<B::Deparse> and is of the form like:
#
# sub { use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $a <=> $b }
#
#If you want to dump short coderefs, the pragmas might be distracting. You can
#turn turn on this option which will make the above dump become:
#
# sub { $a <=> $b }
App-geoip
view release on metacpan or search on metacpan
lib/App/geoip.pm view on Meta::CPAN
m/^\s*[;#]/ and next;
my ($k, $v) = (m/^\s*([-\w]+)\s*[:=]\s*(.*\S)/) or next;
$conf{ lc $k
=~ s{-}{_}gr
=~ s{^use_}{}ir
=~ s{^(json_)?(?:unicode|utf-?8?)$}{utf8}ir
=~ s{^dist$}{distance}ir
} = $v
=~ s{(?:U\+?|\\[Uu])([0-9A-Fa-f]{2,7})}{chr hex $1}ger
=~ s{^(?:no|false)$}{0}ir
=~ s{^(?:yes|true)$}{1}ir;
App-get_flash_videos
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Youku.pm view on Meta::CPAN
# Now these are funky
my ( $keyA ) = ( $json =~ /"key1":"([^"]+)"/ );
my ( $keyB ) = ( $json =~ /"key2":"([^"]+)"/ );
my $key = sprintf "%s%x", $keyB, hex( $keyA ) ^ hex( 'a55aa5a5' );
# Video title is in escaped unicode format
my ( $title ) = ( $json =~ /"title":"([^"]+)"/ );
$title =~ s/\\u([a-f0-9]{4})/chr(hex $1)/egi;
# Use the video title as the filename when available
my $filename = get_video_filename( $stream );
App-hr
view release on metacpan or search on metacpan
#Bool, default: 0.
#
#If set to 1, then pragmas at the start of coderef dump will be removed. Coderef
#dump is produced by L<B::Deparse> and is of the form like:
#
# sub { use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $a <=> $b }
#
#If you want to dump short coderefs, the pragmas might be distracting. You can
#turn turn on this option which will make the above dump become:
#
# sub { $a <=> $b }
App-ipinfo
view release on metacpan or search on metacpan
t/lib/Local/ipinfo.pm view on Meta::CPAN
"code" => "AUD",
"symbol" => "\$"
},
"country_flag" => {
"emoji" => "\x{1f1e6}\x{1f1fa}",
"unicode" => "U+1F1E6 U+1F1FA"
},
"country_flag_url" => "https://cdn.ipinfo.io/static/images/countries-flags/AU.svg",
"country_name" => "Australia",
"hostname" => "one.one.one.one",
"ip" => "1.1.1.1",
App-lsplusplus
view release on metacpan or search on metacpan
or($ENV{TERM} =~ /screen-256/)
or($ENV{TERM} eq 'Eterm-256color')
or($ENV{TERM} eq 'gnome-256color')
or($ENV{TERM} eq 'konsole-256color')
or($ENV{TERM} eq 'putty-256color')
or($ENV{TERM} eq /rxvt-unicode-256color/)
or($ENV{TERM} =~ /u?rxvt-256color/)
) {
$colors = 256;
}
elsif($ENV{TERM} eq 'rxvt-unicode') {
$colors = 88;
}
elsif($ENV{TERM} eq 'screen') {
$colors = $ENV{TMUX} ? 256 : 8;
}
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn view on Meta::CPAN
#Bool, default: 0.
#
#If set to 1, then pragmas at the start of coderef dump will be removed. Coderef
#dump is produced by L<B::Deparse> and is of the form like:
#
# sub { use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval'; $a <=> $b }
#
#If you want to dump short coderefs, the pragmas might be distracting. You can
#turn turn on this option which will make the above dump become:
#
# sub { $a <=> $b }
App-mimic
view release on metacpan or search on metacpan
require Unicode::Homoglyph;
my $all_hgs = \@Unicode::Homoglyph::Homoglyphs;
my %uni_homoglyphs; # key=ascii, val=[hg1, hg2, ...]
my %asciis; # key=unicode homoglyph, val=ascii
for my $hg (@$all_hgs) {
my @chars = sort keys %$hg;
my $ascii = shift @chars;
$uni_homoglyphs{$ascii} = \@chars;
if ($mode ne 'mimic') {
App-mojopaste
view release on metacpan or search on metacpan
0.18 2016-01-15T07:52:58+0100
- Try to fix failing MSWin32 test
http://www.cpantesters.org/cpan/report/873ffedb-6bf4-1014-a355-7b0739136c96
0.17 2016-01-13T21:36:27+0100
- Fix unicode.t by bumping Mojolicious version #10
- Cannot make empty paste
- Non-existing paste will result in 404 instead of 500 #8
Contributor: Stephan Jauernick
- Use File::Spec to construct correct paths on all OS #8
Contributor: Stephan Jauernick
0.05 2013-12-31T19:39:07Z
- Allow pasting without javascript enabled
0.0403 2013-09-09T16:27:19Z
- Fix showing unicode characters
0.0402 2013-09-09T16:08:21Z
- Fix pasting unicode characters
0.0401 2013-09-06T23:34:51Z
- Fix Makefile.PL
0.04 2013-09-05T23:55:30Z
( run in 0.655 second using v1.01-cache-2.11-cpan-4e96b696675 )