Linux s17.hosterpk.com 6.12.0-124.55.3.el10_1.x86_64 #1 SMP PREEMPT_DYNAMIC Thu May 7 16:54:02 EDT 2026 x86_64
LiteSpeed
Server IP : 192.169.89.90 & Your IP : 216.73.216.41
Domains :
Cant Read [ /etc/named.conf ]
User : hamzalar
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
Delete
Unzip
Name
Size
Permission
Date
Action
Attribute
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
B
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
CPAN
[ DIR ]
drwxr-xr-x
2026-03-12 15:14
Class
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Compress
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Config
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
DBM_Filter
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Devel
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
ExtUtils
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
File
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Getopt
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
I18N
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
IO
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
IPC
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Locale
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Math
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Memoize
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Module
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Net
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
PerlIO
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Pod
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Search
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Term
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Text
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Thread
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Tie
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Time
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
URI
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
Unicode
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
User
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
encoding
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
overload
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
pod
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
unicore
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
vendor_perl
[ DIR ]
drwxr-xr-x
2026-05-27 07:00
warnings
[ DIR ]
drwxr-xr-x
2026-03-12 15:08
AnyDBM_File.pm
2.56
KB
-rw-r--r--
2025-07-10 00:00
AutoLoader.pm
15.43
KB
-rw-r--r--
2025-07-10 00:00
AutoSplit.pm
19.18
KB
-rw-r--r--
2025-07-10 00:00
Benchmark.pm
30.3
KB
-rw-r--r--
2025-07-10 00:00
CORE.pod
3.11
KB
-rw-r--r--
2025-07-10 00:00
DB.pm
18.48
KB
-rw-r--r--
2025-07-10 00:00
DBM_Filter.pm
14.05
KB
-rw-r--r--
2025-07-10 00:00
DirHandle.pm
2.04
KB
-rw-r--r--
2025-07-10 00:00
Dumpvalue.pm
17.25
KB
-rw-r--r--
2025-07-10 00:00
English.pm
4.65
KB
-rw-r--r--
2025-07-10 00:00
FileCache.pm
5.42
KB
-rw-r--r--
2025-07-10 00:00
FileHandle.pm
6.65
KB
-rw-r--r--
2025-07-10 00:00
FindBin.pm
4.69
KB
-rw-r--r--
2025-07-10 00:00
Internals.pod
2.87
KB
-rw-r--r--
2025-07-10 00:00
Memoize.pm
31.82
KB
-rw-r--r--
2025-07-10 00:00
NEXT.pm
18.54
KB
-rw-r--r--
2025-07-10 00:00
PerlIO.pm
13.92
KB
-rw-r--r--
2025-07-10 00:00
Safe.pm
24.8
KB
-rw-r--r--
2025-07-10 00:00
SelectSaver.pm
1.05
KB
-rw-r--r--
2025-07-10 00:00
SelfLoader.pm
17.27
KB
-rw-r--r--
2025-07-10 00:00
Symbol.pm
4.79
KB
-rw-r--r--
2025-07-10 00:00
Test.pm
29.34
KB
-rw-r--r--
2025-07-10 00:00
Thread.pm
8.09
KB
-rw-r--r--
2025-07-10 00:00
UNIVERSAL.pm
6.31
KB
-rw-r--r--
2025-07-10 00:00
URI.pm
40.66
KB
-rw-r--r--
2024-02-09 15:01
XSLoader.pm
11.13
KB
-rw-r--r--
2025-07-10 00:00
_charnames.pm
34.84
KB
-rw-r--r--
2025-07-10 00:00
autouse.pm
4.14
KB
-rw-r--r--
2025-07-10 00:00
base.pm
10.7
KB
-rw-r--r--
2025-07-10 00:00
blib.pm
2.01
KB
-rw-r--r--
2025-07-10 00:00
builtin.pm
12.86
KB
-rw-r--r--
2025-07-10 00:00
bytes.pm
3.77
KB
-rw-r--r--
2025-07-10 00:00
charnames.pm
20.56
KB
-rw-r--r--
2025-07-10 00:00
deprecate.pm
4.5
KB
-rw-r--r--
2025-07-10 00:00
diagnostics.pm
18.89
KB
-rw-r--r--
2025-07-10 00:00
dumpvar.pl
15.19
KB
-rw-r--r--
2025-07-10 00:00
feature.pm
30.29
KB
-rw-r--r--
2025-07-10 00:00
fields.pm
9.24
KB
-rw-r--r--
2025-07-10 00:00
filetest.pm
3.91
KB
-rw-r--r--
2025-07-10 00:00
if.pm
3.55
KB
-rw-r--r--
2025-07-10 00:00
integer.pm
3.18
KB
-rw-r--r--
2025-07-10 00:00
less.pm
3.13
KB
-rw-r--r--
2025-07-10 00:00
locale.pm
5.03
KB
-rw-r--r--
2025-07-10 00:00
meta_notation.pm
2.02
KB
-rw-r--r--
2025-07-10 00:00
open.pm
8.3
KB
-rw-r--r--
2025-07-10 00:00
overload.pm
53.44
KB
-rw-r--r--
2025-07-10 00:00
overloading.pm
1.77
KB
-rw-r--r--
2025-07-10 00:00
perl5db.pl
310.19
KB
-rw-r--r--
2025-07-10 00:00
sigtrap.pm
8.53
KB
-rw-r--r--
2025-07-10 00:00
sort.pm
2.92
KB
-rw-r--r--
2025-07-10 00:00
strict.pm
5.03
KB
-rw-r--r--
2025-07-10 00:00
subs.pm
945
B
-rw-r--r--
2025-07-10 00:00
utf8.pm
10.63
KB
-rw-r--r--
2025-07-10 00:00
vars.pm
2.4
KB
-rw-r--r--
2025-07-10 00:00
vmsish.pm
4.21
KB
-rw-r--r--
2025-07-10 00:00
warnings.pm
56.44
KB
-rw-r--r--
2025-07-10 00:00
Save
Rename
package locale; use strict; use warnings; our $VERSION = '1.12'; use Config; $Carp::Internal{ (__PACKAGE__) } = 1; =head1 NAME locale - Perl pragma to use or avoid POSIX locales for built-in operations =head1 SYNOPSIS my @x1 = sort @y; # Native-platform/Unicode code point sort order { use locale; my @x2 = sort @y; # Locale-defined sort order } my @x3 = sort @y; # Native-platform/Unicode code point sort order # again # Parameters to the pragma are to work around deficiencies in locale # handling that have since been fixed, and hence these are likely no # longer useful use locale qw(:ctype :collate); # Only use the locale for character # classification (\w, \d, etc.), and # for string comparison operations # like '$a le $b' and sorting. use locale ':not_characters'; # Use the locale for everything but # character classification and string # comparison operations use locale ':!numeric'; # Use the locale for everything but # numeric-related operations use locale ':not_numeric'; # Same no locale; # Turn off locale handling for the remainder of # the scope. =head1 DESCRIPTION This pragma tells the compiler to enable (or disable) the use of POSIX locales for built-in operations (for example, C<LC_CTYPE> for regular expressions, C<LC_COLLATE> for string comparison, and C<LC_NUMERIC> for number formatting). Each C<use locale> or C<no locale> affects statements to the end of the enclosing BLOCK. The pragma is documented as part of L<perllocale>. =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; POSIX->import('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;