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 / ch5 / escapes < prev    next >
Encoding:
Text File  |  1992-10-18  |  158 b   |  5 lines
  1. # presume string is in $_
  2. s/\\(.)/"_L_E_F_T".ord($1)."_R_I_G_H_T"/eg;
  3. _O_P_E_R_A_T_I_O_N;
  4. s/_L_E_F_T(\d+)_R_I_G_H_T/pack(C,$1)/eg;
  5.