1package bytes; 2 3sub length ($) { 4 BEGIN { bytes::import() } 5 return CORE::length($_[0]); 6} 7 8sub 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 16sub ord ($) { 17 BEGIN { bytes::import() } 18 return CORE::ord($_[0]); 19} 20 21sub chr ($) { 22 BEGIN { bytes::import() } 23 return CORE::chr($_[0]); 24} 25 26sub index ($$;$) { 27 BEGIN { bytes::import() } 28 return 29 @_ == 2 ? CORE::index($_[0], $_[1]) : 30 CORE::index($_[0], $_[1], $_[2]) ; 31} 32 33sub rindex ($$;$) { 34 BEGIN { bytes::import() } 35 return 36 @_ == 2 ? CORE::rindex($_[0], $_[1]) : 37 CORE::rindex($_[0], $_[1], $_[2]) ; 38} 39 401; 41