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 / close < prev    next >
Encoding:
Text File  |  1992-10-18  |  265 b   |  6 lines
  1. open(OUTPUT, '|sort >foo');     # pipe to sort
  2. ...                        # print stuff to output
  3. close OUTPUT;                   # wait for sort to finish
  4. die "sort failed" if $?;        # check for sordid sort
  5. open(INPUT, 'foo');             # get sort's results
  6.