| Server IP : 104.21.94.62 / Your IP : 216.73.216.81 Web Server : Apache System : Linux semi1.us.cloudlogin.co 5.10.244-xeon-hst #1 SMP Sun Sep 14 17:09:20 UTC 2025 x86_64 User : xessglobal ( 271017) PHP Version : 8.1.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /lib64/perl5/vendor_perl/Tk/ |
Upload File : |
package Tk::DummyEncode;
use vars qw($VERSION);
$VERSION = '4.007'; # $Id: //depot/Tkutf8/Tk/DummyEncode.pm#7 $
sub getEncoding
{
my ($class,$name) = @_;
return undef unless ($name =~ /(iso8859-1|X11ControlChars)/);
my $pkg = $name;
$pkg =~ s/\W+/_/g;
return bless {Name => $name},$class.'::'.$pkg;
}
package Tk::DummyEncode::iso8859_1;
sub encode
{
my ($obj,$uni,$chk) = @_;
$_[1] = '' if $chk;
return $uni;
}
sub decode
{
my ($obj,$byt,$chk) = @_;
$_[1]
= '' if $chk;
return $byt;
}
package Tk::DummyEncode::X11ControlChars;
sub encode
{
my ($obj,$uni,$chk) = @_;
my $str = '';
foreach my $ch (split(//,$uni))
{
$str .= sprintf("\\x{%x}",ord($ch));
}
$_[1] = '' if $chk;
return $str;
}
1;
__END__