home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _891bbd202ab64f3e086878e509babb91 < prev    next >
Encoding:
Text File  |  2004-06-01  |  798 b   |  41 lines
  1. package bytes;
  2.  
  3. sub length ($) {
  4.     BEGIN { bytes::import() }
  5.     return CORE::length($_[0]);
  6. }
  7.  
  8. sub substr ($$;$$) {
  9.     BEGIN { bytes::import() }
  10.     return
  11.     @_ == 2 ? CORE::substr($_[0], $_[1]) :
  12.     @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
  13.               CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
  14. }
  15.  
  16. sub ord ($) {
  17.     BEGIN { bytes::import() }
  18.     return CORE::ord($_[0]);
  19. }
  20.  
  21. sub chr ($) {
  22.     BEGIN { bytes::import() }
  23.     return CORE::chr($_[0]);
  24. }
  25.  
  26. sub index ($$;$) {
  27.     BEGIN { bytes::import() }
  28.     return
  29.     @_ == 2 ? CORE::index($_[0], $_[1]) :
  30.               CORE::index($_[0], $_[1], $_[2]) ;
  31. }
  32.  
  33. sub rindex ($$;$) {
  34.     BEGIN { bytes::import() }
  35.     return
  36.     @_ == 2 ? CORE::rindex($_[0], $_[1]) :
  37.               CORE::rindex($_[0], $_[1], $_[2]) ;
  38. }
  39.  
  40. 1;
  41.