K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / share / perl / 5.18.2 / 		server ip : 104.21.89.46

your ip : 172.70.80.135

H O M E


Filename/usr/share/perl/5.18.2/bytes_heavy.pl
Size758
Permissionrw-r--r--
Ownerroot : root
Create time27-Apr-2025 10:10
Last modified21-Nov-2018 01:28
Last accessed27-Apr-2025 10:10
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
package bytes;

sub length (_) {
BEGIN { bytes::import() }
return CORE::length($_[0]);
}

sub substr ($$;$$) {
BEGIN { bytes::import() }
return
@_ == 2 ? CORE::substr($_[0], $_[1]) :
@_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
}

sub ord (_) {
BEGIN { bytes::import() }
return CORE::ord($_[0]);
}

sub chr (_) {
BEGIN { bytes::import() }
return CORE::chr($_[0]);
}

sub index ($$;$) {
BEGIN { bytes::import() }
return
@_ == 2 ? CORE::index($_[0], $_[1]) :
CORE::index($_[0], $_[1], $_[2]) ;
}

sub rindex ($$;$) {
BEGIN { bytes::import() }
return
@_ == 2 ? CORE::rindex($_[0], $_[1]) :
CORE::rindex($_[0], $_[1], $_[2]) ;
}

1;