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

Re: Signal Handling

by lidden (Curate)
on May 13, 2012 at 08:59 UTC ( [id://970257]=note: print w/replies, xml ) Need Help??


in reply to Signal Handling

You can set set the handler to a subroutine.

$SIG{INT} = sub { <code goes here> };

See perldoc perlipc.

Replies are listed 'Best First'.
Re^2: Signal Handling
by anshumangoyal (Scribe) on May 21, 2012 at 06:35 UTC
    Is there any other work out. Actually I want to write a Interrupt Subroutine which should take Parameters. This way it's not going to work.
[reply]
      Well, often what you want to do is something like:

      $SIG{INT} = sub { our $sigint_gotten = 1;};

# Later in the code

if(our $sigint_gotten){
    our $sigint_gotten = 0;
    deal_with_it($arg1, $arg2, ...);
}

      [download]
[reply]
[d/l]

      I can't imagine how you would send a SIGINT with a parameter but you can do whatever you want in the subroutine you assign to SIGINT. Just remember that you want to return control to the system ASAP once you're in the handler. Maybe something like this would work for you... 

      $SIG{INT} = sub {
    my $obj = Whatever->new();
    process_interrupt($obj)
};

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://970257]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2024-04-18 12:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found