Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
Encode
/
TW
/
Unisys
Upload
4 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
SOSI1.pm
701 B
-rw-r--r--
2007-11-08 06:44:06
Edit
Del
SOSI2.pm
701 B
-rw-r--r--
2007-11-08 06:44:06
Edit
Del
Editing: SOSI1.pm
(701 B)
Path: /usr/lib64/perl5/vendor_perl/Encode/TW/Unisys/SOSI1.pm
Back
package Encode::TW::Unisys::SOSI1; use strict; use vars qw($VERSION); $VERSION = '1.01'; use Encode (); use base qw(Encode::Encoding); __PACKAGE__->Define('unisys-sosi1'); sub needs_lines { 1 } sub perlio_ok { return 0; # for the time being } sub decode { my ($obj,$str,$chk) = @_; my $unisys = Encode::find_encoding('unisys'); $str =~ s/\x2b([^\x2c]*)\x2c/' ' . $unisys->decode($1, $chk) . ' '/eg; return $str; } sub encode { my ($obj,$str,$chk) = @_; my $unisys = Encode::find_encoding('unisys'); $str =~ s/\x20?([^\x00-\x7f]+)\x20?/"\x2b" . $unisys->encode($1, $chk) . "\x2c"/eg; return $str; } 1; __END__ =head1 NAME Encode::Unisys::SOSI1 =cut