lib/bytes_heavy.pl

   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;