Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Restarting script without losing handles

by fokat (Deacon)
on Aug 21, 2002 at 19:25 UTC ( #191845=note: print w/replies, xml ) Need Help??

in reply to Restarting script without losing handles

I feel you can solve this problem in an easier way, like this:

  • Place your regexes and actions in a config file. This would be Perl code placing the regular expressions in a data structure (hash, array, whatever).
  • When the script starts, it sets up the sockets and eval()s said config file, thus learning the last set of rules.
  • Install a signal handler for SIGHUP. Upon receiving this signal, you can wipe the data structure and re-eval() the config file, thus learning the new rules and actions.
The user only needs to modify the config file and kill -HUP the process id of your script. You can also get fancy and detect changes on the script, though I do not advise this. One of the advangtages of this method, is that the config file can be reasonably checked by using perl -c config-file. You can also do this by eval()ing the config file in a separate namespace first (checking for errors in $@) and if all goes well, proceeding to the real namespace.

In fact, you could accomplish the last phase by placing your script in a separate namespace, say:

package __my_script; # Your script goes here
The config file could be explicitly placed in the main namespace. You can then delete all non-built-in symbols in main deleted. This would get rid of even the actions defined as subs in the config file.

I have a similar thing in production which works fine. It handles around 20 RADIUS authentications per second :)

Good luck.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://191845]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2018-06-20 12:34 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.