Linux vmi2545633.contaboserver.net 6.1.0-32-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.129-1 (2025-03-06) x86_64
Apache/2.4.62 (Debian)
Server IP : 127.0.0.1 & Your IP : 127.0.0.1
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl /
5.36.0 /
Delete
Unzip
Name
Size
Permission
Date
Action
App
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Archive
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Attribute
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
B
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
CPAN
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Carp
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Class
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Compress
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Config
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
DBM_Filter
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Devel
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Digest
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Encode
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Exporter
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
ExtUtils
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
File
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Filter
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Getopt
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
HTTP
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
I18N
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
IO
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
IPC
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
JSON
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Locale
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Math
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Memoize
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Module
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Net
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Params
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Parse
[ DIR ]
drwxr-xr-x
2023-07-12 09:40
Perl
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
PerlIO
[ DIR ]
drwxr-xr-x
2023-07-12 09:40
Pod
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Search
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
TAP
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Term
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Test
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Test2
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Text
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Thread
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Tie
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Time
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
Unicode
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
User
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
autodie
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
encoding
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
overload
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
pod
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
unicore
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
version
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
warnings
[ DIR ]
drwxr-xr-x
2025-04-07 20:15
AnyDBM_File.pm
2.56
KB
-rw-r--r--
2023-11-25 20:59
AutoLoader.pm
15.43
KB
-rw-r--r--
2023-11-25 20:59
AutoSplit.pm
19.18
KB
-rw-r--r--
2023-11-25 20:59
Benchmark.pm
30.3
KB
-rw-r--r--
2023-11-25 20:59
CORE.pod
3.11
KB
-rw-r--r--
2023-11-25 20:59
CPAN.pm
144.5
KB
-rw-r--r--
2023-11-25 20:59
Carp.pm
35.14
KB
-rw-r--r--
2023-11-25 20:59
DB.pm
18.48
KB
-rw-r--r--
2023-11-25 20:59
DBM_Filter.pm
14.05
KB
-rw-r--r--
2023-11-25 20:59
Digest.pm
10.96
KB
-rw-r--r--
2023-11-25 20:59
DirHandle.pm
2.04
KB
-rw-r--r--
2023-11-25 20:59
Dumpvalue.pm
17.25
KB
-rw-r--r--
2023-11-25 20:59
English.pm
4.65
KB
-rw-r--r--
2023-11-25 20:59
Env.pm
5.44
KB
-rw-r--r--
2023-11-25 20:59
Exporter.pm
18.76
KB
-rw-r--r--
2023-11-25 20:59
Fatal.pm
57.7
KB
-rw-r--r--
2023-11-25 20:59
FileCache.pm
5.42
KB
-rw-r--r--
2023-11-25 20:59
FileHandle.pm
6.63
KB
-rw-r--r--
2023-11-25 20:59
FindBin.pm
4.51
KB
-rw-r--r--
2023-11-25 20:59
Internals.pod
2.51
KB
-rw-r--r--
2023-11-25 20:59
Memoize.pm
35.34
KB
-rw-r--r--
2023-11-25 20:59
NEXT.pm
18.54
KB
-rw-r--r--
2023-11-25 20:59
PerlIO.pm
13.92
KB
-rw-r--r--
2023-11-25 20:59
Safe.pm
24.76
KB
-rw-r--r--
2023-11-25 20:59
SelectSaver.pm
1.05
KB
-rw-r--r--
2023-11-25 20:59
SelfLoader.pm
17.27
KB
-rw-r--r--
2023-11-25 20:59
Symbol.pm
4.79
KB
-rw-r--r--
2023-11-25 20:59
Test.pm
29.34
KB
-rw-r--r--
2023-11-25 20:59
Test2.pm
6.24
KB
-rw-r--r--
2023-11-25 20:59
Thread.pm
8.09
KB
-rw-r--r--
2023-11-25 20:59
UNIVERSAL.pm
6.61
KB
-rw-r--r--
2023-11-25 20:59
XSLoader.pm
11.13
KB
-rw-r--r--
2023-11-25 20:59
_charnames.pm
34.84
KB
-rw-r--r--
2023-11-25 20:59
autodie.pm
12.14
KB
-rw-r--r--
2023-11-25 20:59
autouse.pm
4.14
KB
-rw-r--r--
2023-11-25 20:59
base.pm
10.7
KB
-rw-r--r--
2023-11-25 20:59
bigfloat.pm
21.45
KB
-rw-r--r--
2023-11-25 20:59
bigint.pm
22.7
KB
-rw-r--r--
2023-11-25 20:59
bignum.pm
27.56
KB
-rw-r--r--
2023-11-25 20:59
bigrat.pm
20.64
KB
-rw-r--r--
2023-11-25 20:59
blib.pm
2.01
KB
-rw-r--r--
2023-11-25 20:59
builtin.pm
8.84
KB
-rw-r--r--
2023-11-25 20:59
bytes.pm
3.69
KB
-rw-r--r--
2023-11-25 20:59
bytes_heavy.pl
758
B
-rw-r--r--
2023-11-25 20:59
charnames.pm
20.56
KB
-rw-r--r--
2023-11-25 20:59
constant.pm
14.38
KB
-rw-r--r--
2023-11-25 20:59
deprecate.pm
4.92
KB
-rw-r--r--
2023-11-25 20:59
diagnostics.pm
18.88
KB
-rw-r--r--
2023-11-25 20:59
dumpvar.pl
15.19
KB
-rw-r--r--
2023-11-25 20:59
experimental.pm
8.12
KB
-rw-r--r--
2023-11-25 20:59
feature.pm
51.6
KB
-rw-r--r--
2023-11-25 20:59
fields.pm
9.25
KB
-rw-r--r--
2023-11-25 20:59
filetest.pm
3.91
KB
-rw-r--r--
2023-11-25 20:59
if.pm
3.55
KB
-rw-r--r--
2023-11-25 20:59
integer.pm
3.18
KB
-rw-r--r--
2023-11-25 20:59
less.pm
3.13
KB
-rw-r--r--
2023-11-25 20:59
locale.pm
4.77
KB
-rw-r--r--
2023-11-25 20:59
meta_notation.pm
2.02
KB
-rw-r--r--
2023-11-25 20:59
ok.pm
967
B
-rw-r--r--
2023-11-25 20:59
open.pm
8.3
KB
-rw-r--r--
2023-11-25 20:59
overload.pm
52.22
KB
-rw-r--r--
2023-11-25 20:59
overloading.pm
1.77
KB
-rw-r--r--
2023-11-25 20:59
parent.pm
2.64
KB
-rw-r--r--
2023-11-25 20:59
perl5db.pl
310.05
KB
-rw-r--r--
2023-11-25 20:59
perlfaq.pm
77
B
-rw-r--r--
2023-11-25 20:59
sigtrap.pm
8.53
KB
-rw-r--r--
2023-11-25 20:59
sort.pm
2.92
KB
-rw-r--r--
2023-11-25 20:59
strict.pm
4.67
KB
-rw-r--r--
2023-11-25 20:59
subs.pm
945
B
-rw-r--r--
2023-11-25 20:59
utf8.pm
10.5
KB
-rw-r--r--
2023-11-25 20:59
vars.pm
2.4
KB
-rw-r--r--
2023-11-25 20:59
version.pm
1.93
KB
-rw-r--r--
2023-11-25 20:59
version.pod
9.6
KB
-rw-r--r--
2023-11-25 20:59
vmsish.pm
4.21
KB
-rw-r--r--
2023-11-25 20:59
warnings.pm
54.61
KB
-rw-r--r--
2023-11-25 20:59
Save
Rename
package locale; use strict; use warnings; our $VERSION = '1.10'; use Config; $Carp::Internal{ (__PACKAGE__) } = 1; =head1 NAME locale - Perl pragma to use or avoid POSIX locales for built-in operations =head1 WARNING DO NOT USE this pragma in scripts that have multiple L<threads|threads> active. The locale is not local to a single thread. Another thread may change the locale at any time, which could cause at a minimum that a given thread is operating in a locale it isn't expecting to be in. On some platforms, segfaults can also occur. The locale change need not be explicit; some operations cause perl to change the locale itself. You are vulnerable simply by having done a C<"use locale">. =head1 SYNOPSIS @x = sort @y; # Native-platform/Unicode code point sort order { use locale; @x = sort @y; # Locale-defined sort order } @x = sort @y; # Native-platform/Unicode code point sort order # again =head1 DESCRIPTION This pragma tells the compiler to enable (or disable) the use of POSIX locales for built-in operations (for example, LC_CTYPE for regular expressions, LC_COLLATE for string comparison, and LC_NUMERIC for number formatting). Each "use locale" or "no locale" affects statements to the end of the enclosing BLOCK. See L<perllocale> for more detailed information on how Perl supports locales. On systems that don't have locales, this pragma will cause your operations to behave as if in the "C" locale; attempts to change the locale will fail. =cut # A separate bit is used for each of the two forms of the pragma, to save # having to look at %^H for the normal case of a plain 'use locale' without an # argument. $locale::hint_bits = 0x4; $locale::partial_hint_bits = 0x10; # If pragma has an argument # The pseudo-category :characters consists of 2 real ones; but it also is # given its own number, -1, because in the complement form it also has the # side effect of "use feature 'unicode_strings'" sub import { shift; # should be 'locale'; not checked $^H{locale} = 0 unless defined $^H{locale}; if (! @_) { # If no parameter, use the plain form that changes all categories $^H |= $locale::hint_bits; } else { my @categories = ( qw(:ctype :collate :messages :numeric :monetary :time) ); for (my $i = 0; $i < @_; $i++) { my $arg = $_[$i]; my $complement = $arg =~ s/ : ( ! | not_ ) /:/x; if (! grep { $arg eq $_ } @categories, ":characters") { require Carp; Carp::croak("Unknown parameter '$_[$i]' to 'use locale'"); } if ($complement) { if ($i != 0 || $i < @_ - 1) { require Carp; Carp::croak("Only one argument to 'use locale' allowed" . "if is $complement"); } if ($arg eq ':characters') { push @_, grep { $_ ne ':ctype' && $_ ne ':collate' } @categories; # We add 1 to the category number; This category number # is -1 $^H{locale} |= (1 << 0); } else { push @_, grep { $_ ne $arg } @categories; } next; } elsif ($arg eq ':characters') { push @_, ':ctype', ':collate'; next; } $^H |= $locale::partial_hint_bits; # This form of the pragma overrides the other $^H &= ~$locale::hint_bits; $arg =~ s/^://; eval { require POSIX; import POSIX 'locale_h'; }; # Map our names to the ones defined by POSIX my $LC = "LC_" . uc($arg); my $bit = eval "&POSIX::$LC"; if (defined $bit) { # XXX Should we warn that this category isn't # supported on this platform, or make it # always be the C locale? # Verify our assumption. if (! ($bit >= 0 && $bit < 31)) { require Carp; Carp::croak("Cannot have ':$arg' parameter to 'use locale'" . " on this platform. Use the 'perlbug' utility" . " to report this problem, or send email to" . " 'perlbug\@perl.org'. $LC=$bit"); } # 1 is added so that the pseudo-category :characters, which is # -1, comes out 0. $^H{locale} |= 1 << ($bit + 1); } } } } sub unimport { $^H &= ~($locale::hint_bits|$locale::partial_hint_bits); $^H{locale} = 0; } 1;