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 / atexit < prev    next >
Encoding:
Text File  |  1992-10-18  |  246 b   |  16 lines
  1. #!/usr/bin/perl
  2. $whatever = shift;
  3.  
  4. eval <<'EndOfEval';  $start = __LINE__;
  5.    .
  6.    .           # your ad here
  7.    .
  8. EndOfEval
  9.  
  10. # Cleanup
  11.  
  12. unlink "/tmp/myfile$$";
  13. $@ && ($@ =~ s/\(eval\) line (\d+)/$0 .
  14.     " line " . ($1+$start)/e, die $@);
  15. exit 0;
  16.