home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch4 / unpack < prev    next >
Encoding:
Text File  |  1992-10-18  |  225 b   |  13 lines

  1. sub substr {
  2.     local($what, $where, $howmuch) = @_;
  3.     if ($where < 0) {
  4.         $where = -$where;
  5.         unpack("@* X$where a$howmuch", $what);
  6.     }
  7.     else {
  8.         unpack("x$where a$howmuch", $what);
  9.     }
  10. }
  11.  
  12. sub signed_ord { unpack("c", $_[0]); }
  13.