Linux premium71.web-hosting.com 4.18.0-513.11.1.lve.el8.x86_64 #1 SMP Thu Jan 18 16:21:02 UTC 2024 x86_64
LiteSpeed
Server IP : 198.187.29.8 & Your IP : 3.133.137.102
Domains :
Cant Read [ /etc/named.conf ]
User : cleahvkv
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
lib64 /
perl5 /
PerlIO /
Delete
Unzip
Name
Size
Permission
Date
Action
encoding.pm
1.19
KB
-rw-r--r--
2023-05-18 21:34
mmap.pm
600
B
-rw-r--r--
2023-05-18 21:34
scalar.pm
959
B
-rw-r--r--
2023-05-18 21:34
via.pm
7.05
KB
-rw-r--r--
2023-05-18 21:34
Save
Rename
package PerlIO::encoding; use strict; our $VERSION = '0.26'; our $DEBUG = 0; $DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n"; # # Equivalent of this is done in encoding.xs - do not uncomment. # # use Encode (); require XSLoader; XSLoader::load(); our $fallback = Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL(); 1; __END__ =head1 NAME PerlIO::encoding - encoding layer =head1 SYNOPSIS use PerlIO::encoding; open($f, "<:encoding(foo)", "infoo"); open($f, ">:encoding(bar)", "outbar"); use Encode qw(:fallbacks); $PerlIO::encoding::fallback = FB_PERLQQ; =head1 DESCRIPTION This PerlIO layer opens a filehandle with a transparent encoding filter. On input, it converts the bytes expected to be in the specified character set and encoding to Perl string data (Unicode and Perl's internal Unicode encoding, UTF-8). On output, it converts Perl string data into the specified character set and encoding. When the layer is pushed, the current value of C<$PerlIO::encoding::fallback> is saved and used as the CHECK argument when calling the Encode methods encode() and decode(). =head1 SEE ALSO L<open>, L<Encode>, L<perlfunc/binmode>, L<perluniintro> =cut