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 / chop < prev    next >
Encoding:
Text File  |  1992-10-18  |  220 b   |  16 lines

  1. while (<PASSWD>) {
  2.     chop;   # avoid \n on last field
  3.     @array = split(/:/);
  4.     ...
  5. }
  6.  
  7. @lines = `cat myfile`;
  8. chop(@lines);
  9.  
  10. chop($cwd = `pwd`);
  11. chop($answer = <STDIN>);
  12.  
  13. $answer = chop(<STDIN>);
  14.  
  15. substr($caravan, -5) = '';
  16.