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 / m < prev    next >
Encoding:
Text File  |  1992-10-18  |  303 b   |  15 lines

  1. open(TTY, '/dev/tty');
  2. <TTY> =~ /^y/i && &xyz();      # do xyz if desired
  3.  
  4. if (/Version: *([0-9.]*)/) { $version = $1; }
  5.  
  6. next if m#^/usr/spool/uucp#;
  7.  
  8. # poor man's grep
  9. $arg = shift;
  10. while (<>) {
  11.     print if /$arg/o;       # compile only once
  12. }
  13.  
  14. if (($F1, $F2, $Etc) = ($foo =~ /^(\S+)\s+(\S+)\s*(.*)/))
  15.