home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5329 < prev    next >
Encoding:
Internet Message Format  |  1992-08-14  |  2.0 KB
  1. Path: sparky!uunet!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: die hook
  5. Message-ID: <1992Aug15.030457.21382@netlabs.com>
  6. Date: 15 Aug 92 03:04:57 GMT
  7. References: <Aug.13.17.56.21.1992.22441@piecomputer.rutgers.edu>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 38
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <Aug.13.17.56.21.1992.22441@piecomputer.rutgers.edu> mende@piecomputer.rutgers.edu (Bob Mende Pie) writes:
  14. : 
  15. :    I am currently working on a set of programs that use common "required"
  16. : packages.  I use the die command in many of the different monules and
  17. : packages.  Depending on what main program I use to invoke the program, I
  18. : would possibly like to add a "hook" to the die command that would run a
  19. : subroutine before exiting.  It could be used for cleaning up lockfiles,
  20. : saving the state of arrays, whatever.  Since I can not be sure how my
  21. : modules will be called this hook may or not be in existance.   Is there a
  22. : subroutine that die will try to call when it is invoked.   If not this
  23. : would be a useful addition.   It could be as simple as the perl code:
  24. :     &'die if defined &'die;
  25.  
  26. The code I'm developing for Perl 5 already has two magical subroutines
  27. in it called BEGIN and END.  They're so magical that you don't even have
  28. to put "sub" in front of them.  BEGIN is automatically called before
  29. the program starts, and END is automatically called just before the
  30. program exits, no matter how it exits.
  31.  
  32. Not only does this give you your die hook, but it also gives you
  33. BEGIN and END blocks like awk.  So you'll be able to say things like:
  34.  
  35.     perl -pe 'BEGIN { $/ = "\r\n" } s/\r$//'
  36.  
  37. or
  38.  
  39.     perl -lane 'BEGIN { require "timelocal.pl" } print &timegm(@F)'
  40.  
  41. Note that it's a subroutine definition, so the order doesn't matter.
  42. You can say stuff in the order you think important, like:
  43.  
  44.     perl -pal -e 'BEGIN { $accum = 1 }' \
  45.           -e 'END { print $accum }'    \
  46.           -e '$accum *= $F[3]'
  47.  
  48. Awk has irrational hissyfits if you don't hide END down at the end.
  49.  
  50. Larry
  51.