home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / bytes_heavy.pl < prev    next >
Perl Script  |  2003-11-07  |  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.