home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / bytes_heavy.pl < prev    next >
Perl Script  |  2005-01-27  |  758b  |  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.