Linux cpanel.rrshost.in 5.15.0-25-generic #25-Ubuntu SMP Wed Mar 30 15:54:22 UTC 2022 x86_64
Apache
: 109.123.238.221 | : 108.162.241.240
128 Domain
8.2.28
aev999
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Locale /
RecodeData /
[ HOME SHELL ]
Name
Size
Permission
Action
ASMO_449.pm
17.49
KB
-rw-r--r--
ATARI_ST.pm
26.3
KB
-rw-r--r--
ATARI_ST_EURO.pm
26.34
KB
-rw-r--r--
CP10007.pm
26.17
KB
-rw-r--r--
CP1250.pm
26.54
KB
-rw-r--r--
CP1251.pm
26.48
KB
-rw-r--r--
CP1252.pm
26.36
KB
-rw-r--r--
CP1253.pm
25.28
KB
-rw-r--r--
CP1254.pm
26.2
KB
-rw-r--r--
CP1256.pm
25.89
KB
-rw-r--r--
CP1257.pm
25.85
KB
-rw-r--r--
CSN_369103.pm
27
KB
-rw-r--r--
CWI.pm
27.16
KB
-rw-r--r--
DEC_MCS.pm
25.79
KB
-rw-r--r--
EBCDIC_AT_DE.pm
20.17
KB
-rw-r--r--
EBCDIC_AT_DE_A.pm
19.92
KB
-rw-r--r--
EBCDIC_CA_FR.pm
21.71
KB
-rw-r--r--
EBCDIC_DK_NO.pm
20.17
KB
-rw-r--r--
EBCDIC_DK_NO_A.pm
19.86
KB
-rw-r--r--
EBCDIC_ES.pm
20.03
KB
-rw-r--r--
EBCDIC_ES_A.pm
19.77
KB
-rw-r--r--
EBCDIC_ES_S.pm
20.04
KB
-rw-r--r--
EBCDIC_FI_SE.pm
20.23
KB
-rw-r--r--
EBCDIC_FI_SE_A.pm
19.89
KB
-rw-r--r--
EBCDIC_FR.pm
20.09
KB
-rw-r--r--
EBCDIC_IS_FRISS.pm
19.21
KB
-rw-r--r--
EBCDIC_IT.pm
20.13
KB
-rw-r--r--
EBCDIC_PT.pm
19.9
KB
-rw-r--r--
EBCDIC_UK.pm
19.98
KB
-rw-r--r--
EBCDIC_US.pm
19.97
KB
-rw-r--r--
ECMA_CYRILLIC.pm
26.66
KB
-rw-r--r--
GEORGIAN_ACADEMY.pm
26.09
KB
-rw-r--r--
GEORGIAN_PS.pm
26.07
KB
-rw-r--r--
GOST_19768_74.pm
24.61
KB
-rw-r--r--
GREEK7.pm
18
KB
-rw-r--r--
GREEK7_OLD.pm
18.15
KB
-rw-r--r--
GREEK_CCITT.pm
17.96
KB
-rw-r--r--
HP_ROMAN8.pm
26.84
KB
-rw-r--r--
IBM037.pm
26.77
KB
-rw-r--r--
IBM038.pm
20
KB
-rw-r--r--
IBM1004.pm
26.09
KB
-rw-r--r--
IBM1026.pm
26.7
KB
-rw-r--r--
IBM1047.pm
26.74
KB
-rw-r--r--
IBM256.pm
26.71
KB
-rw-r--r--
IBM273.pm
26.69
KB
-rw-r--r--
IBM274.pm
20.11
KB
-rw-r--r--
IBM275.pm
20.15
KB
-rw-r--r--
IBM277.pm
26.72
KB
-rw-r--r--
IBM278.pm
26.73
KB
-rw-r--r--
IBM280.pm
26.71
KB
-rw-r--r--
IBM281.pm
20
KB
-rw-r--r--
IBM284.pm
26.71
KB
-rw-r--r--
IBM285.pm
26.71
KB
-rw-r--r--
IBM290.pm
22.53
KB
-rw-r--r--
IBM297.pm
26.71
KB
-rw-r--r--
IBM420.pm
26.08
KB
-rw-r--r--
IBM423.pm
26.14
KB
-rw-r--r--
IBM424.pm
23.4
KB
-rw-r--r--
IBM437.pm
27.14
KB
-rw-r--r--
IBM500.pm
26.75
KB
-rw-r--r--
IBM850.pm
26.94
KB
-rw-r--r--
IBM851.pm
26.88
KB
-rw-r--r--
IBM852.pm
27.22
KB
-rw-r--r--
IBM855.pm
26.88
KB
-rw-r--r--
IBM857.pm
26.7
KB
-rw-r--r--
IBM860.pm
27.18
KB
-rw-r--r--
IBM861.pm
27.22
KB
-rw-r--r--
IBM862.pm
26.75
KB
-rw-r--r--
IBM863.pm
27.06
KB
-rw-r--r--
IBM864.pm
26.66
KB
-rw-r--r--
IBM865.pm
27.17
KB
-rw-r--r--
IBM866.pm
26.84
KB
-rw-r--r--
IBM868.pm
25.01
KB
-rw-r--r--
IBM869.pm
26.17
KB
-rw-r--r--
IBM870.pm
26.12
KB
-rw-r--r--
IBM871.pm
26.71
KB
-rw-r--r--
IBM874.pm
24.17
KB
-rw-r--r--
IBM875.pm
26.06
KB
-rw-r--r--
IBM880.pm
26.03
KB
-rw-r--r--
IBM891.pm
17.81
KB
-rw-r--r--
IBM903.pm
17.81
KB
-rw-r--r--
IBM904.pm
17.97
KB
-rw-r--r--
IBM905.pm
26.33
KB
-rw-r--r--
IBM918.pm
24.65
KB
-rw-r--r--
IEC_P27_1.pm
25.97
KB
-rw-r--r--
INIS.pm
17.1
KB
-rw-r--r--
INIS_8.pm
14.98
KB
-rw-r--r--
INIS_CYRILLIC.pm
18.12
KB
-rw-r--r--
ISO_10367_BOX.pm
22.19
KB
-rw-r--r--
ISO_2033_1983.pm
13.39
KB
-rw-r--r--
ISO_5427.pm
18.41
KB
-rw-r--r--
ISO_5427_EXT.pm
15.58
KB
-rw-r--r--
ISO_5428.pm
17.93
KB
-rw-r--r--
ISO_8859_1.pm
16.84
KB
-rw-r--r--
ISO_8859_10.pm
27.19
KB
-rw-r--r--
ISO_8859_11.pm
23.94
KB
-rw-r--r--
ISO_8859_13.pm
26.64
KB
-rw-r--r--
ISO_8859_14.pm
27.07
KB
-rw-r--r--
ISO_8859_15.pm
26.53
KB
-rw-r--r--
ISO_8859_16.pm
26.92
KB
-rw-r--r--
ISO_8859_2.pm
27.04
KB
-rw-r--r--
ISO_8859_3.pm
26.5
KB
-rw-r--r--
ISO_8859_4.pm
27.04
KB
-rw-r--r--
ISO_8859_5.pm
26.7
KB
-rw-r--r--
ISO_8859_6.pm
23.17
KB
-rw-r--r--
ISO_8859_7.pm
26.22
KB
-rw-r--r--
ISO_8859_8.pm
23.61
KB
-rw-r--r--
ISO_8859_9.pm
26.74
KB
-rw-r--r--
KOI8_R.pm
27.03
KB
-rw-r--r--
KOI8_RU.pm
26.88
KB
-rw-r--r--
KOI8_T.pm
25.07
KB
-rw-r--r--
KOI8_U.pm
26.91
KB
-rw-r--r--
KOI_8.pm
22.08
KB
-rw-r--r--
LATIN_GREEK.pm
17.97
KB
-rw-r--r--
LATIN_GREEK_1.pm
17.98
KB
-rw-r--r--
MACARABIC.pm
24.54
KB
-rw-r--r--
MACCROATIAN.pm
26.56
KB
-rw-r--r--
MACCYRILLIC.pm
26.37
KB
-rw-r--r--
MACGREEK.pm
26.53
KB
-rw-r--r--
MACHEBREW.pm
23.68
KB
-rw-r--r--
MACICELAND.pm
26.41
KB
-rw-r--r--
MACINTOSH.pm
26.6
KB
-rw-r--r--
MACROMANIA.pm
26.46
KB
-rw-r--r--
MACTHAI.pm
25.9
KB
-rw-r--r--
MACTURKISH.pm
26.38
KB
-rw-r--r--
MACUKRAINE.pm
26.41
KB
-rw-r--r--
MAC_IS.pm
26.38
KB
-rw-r--r--
MAC_SAMI.pm
26.8
KB
-rw-r--r--
MAC_UK.pm
26.17
KB
-rw-r--r--
NATS_DANO.pm
18.04
KB
-rw-r--r--
NATS_SEFI.pm
18.01
KB
-rw-r--r--
NEXTSTEP.pm
26.44
KB
-rw-r--r--
SAMI_WS2.pm
26.77
KB
-rw-r--r--
TIS_620.pm
23.84
KB
-rw-r--r--
US_ASCII.pm
7.35
KB
-rw-r--r--
UTF_8.pm
4.96
KB
-rw-r--r--
VISCII.pm
28.48
KB
-rw-r--r--
_Encode.pm
2.24
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : UTF_8.pm
#! /bin/false # vim: set autoindent shiftwidth=4 tabstop=4: # Conversion routines for UTF-8 (perl < 5.8.0). # Copyright (C) 2002-2016 Guido Flohr <guido.flohr@cantanea.com>, # all rights reserved. # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. package Locale::RecodeData::UTF_8; use strict; require Locale::RecodeData; use base qw(Locale::RecodeData); sub _recode { if ($_[0]->{_from} eq 'INTERNAL') { return $_[0]->_fromInternal ($_[1]); } else { return $_[0]->_toInternal ($_[1]); } } # This routine assumes that the internal representation is always sane # and contains valid codes only. sub _fromInternal { $_[1] = join '', map { if ($_ <= 0x7f) { chr $_; } elsif ($_ <= 0x7ff) { pack ("C2", (0xc0 | (($_ >> 6) & 0x1f)), (0x80 | ($_ & 0x3f))); } elsif ($_ <= 0xffff) { pack ("C3", (0xe0 | (($_ >> 12) & 0xf)), (0x80 | (($_ >> 6) & 0x3f)), (0x80 | ($_ & 0x3f))); } elsif ($_ <= 0x1fffff) { pack ("C4", (0xf0 | (($_ >> 18) & 0x7)), (0x80 | (($_ >> 12) & 0x3f)), (0x80 | (($_ >> 6) & 0x3f)), (0x80 | ($_ & 0x3f))); } elsif ($_ <= 0x3ffffff) { pack ("C5", (0xf0 | (($_ >> 24) & 0x3)), (0x80 | (($_ >> 18) & 0x3f)), (0x80 | (($_ >> 12) & 0x3f)), (0x80 | (($_ >> 6) & 0x3f)), (0x80 | ($_ & 0x3f))); } else { pack ("C6", (0xf0 | (($_ >> 30) & 0x3)), (0x80 | (($_ >> 24) & 0x1)), (0x80 | (($_ >> 18) & 0x3f)), (0x80 | (($_ >> 12) & 0x3f)), (0x80 | (($_ >> 6) & 0x3f)), (0x80 | ($_ & 0x3f))); } } @{$_[1]}; return 1; } # Decode UTF-8 into integers. We do not bother to care about possibly # configured replacement characters here and simply fall back to 0xfffd. # Rationale: the internal format is never output directly and the other # encoders will handle the replacement character correctly. sub _toInternal { if ($] >= 5.006) { $_[1] = [ unpack "U*", $_[1] ]; return 1; } # Sigh, we have to decode ourselves. FIXME: Should be optimized. # The routine is awfully slow. # It also does not necessarily detect illegal multi-byte sequences. my @chars = (); my @bytes = unpack "C*", $_[1]; BYTE: while (@bytes) { my $byte = shift @bytes; if ($byte < 0x80) { push @chars, $byte; } elsif ($byte < 0xc0 || $byte > 0xfd) { push @chars, 0xfffd; } else { my $num_bytes; my $char; if ($byte < 0xe0) { $char = $byte & 0x1f; $num_bytes = 1; } elsif ($byte < 0xf0) { $char = $byte & 0xf; $num_bytes = 2; } elsif ($byte < 0xf8) { $char = $byte & 0x7; $num_bytes = 3; } elsif ($byte < 0xfc) { $char = $byte & 0x3; $num_bytes = 4; } else { $char = $byte & 0x1; $num_bytes = 5; } for (my $i = 0; $i < $num_bytes; ++$i) { my $next = shift @bytes; if (!defined $next || $next < 0x80 || $next > 0xbf) { push @chars, 0xfffd; next BYTE; } else { $char <<= 6; $char |= $next & 0x3f; } } push @chars, $char; } } $_[1] = \@chars; return 1; } 1; __END__ =head1 NAME Locale::RecodeData::UTF_8 - Conversion routines for UTF-8 =head1 SYNOPSIS This module is internal to libintl. Do not use directly! =head1 DESCRIPTION This modules contains the conversion tables for UTF-8. It is capable of converting from UTF-8 to the internal format of libintl-perl and vice versa. It is only suitable for Perl versions E<lt>= 5.8.0. However, you do not have to bother about version checking, Locale::Recode(3) will do that for you. =head1 CHARACTER TABLE See http://www.unicode.org/. =head1 AUTHOR Copyright (C) 2002-2016 L<Guido Flohr|http://www.guido-flohr.net/> (L<mailto:guido.flohr@cantanea.com>), all rights reserved. See the source code for details!code for details! =head1 SEE ALSO Locale::RecodeData(3), Locale::Recode(3), perl(1) =cut Local Variables: mode: perl perl-indent-level: 4 perl-continued-statement-offset: 4 perl-continued-brace-offset: 0 perl-brace-offset: -4 perl-brace-imaginary-offset: 0 perl-label-offset: -4 cperl-indent-level: 4 cperl-continued-statement-offset: 2 tab-width: 4 End:
Close
