Disable Control +C

[PilotinControl]

Hello Again Monks! I am using Activestate Perl, on WinXP, using Win32 modules, and I am having an issue with disabling the Control +C functions. I would like the users of the script to just be able to use the selections on the menu and quit the program using that selection instead of Ctrl+C

$SIG{INT}='IGNORE'; or $SIG{INT}= \&inthandler;
sub inthandler {
structure::begin();
}

All that does is go back to the main screen and Ctrl+C resumes normal actions. Any suggestions? Thanks!

[Not_a_Number]

This works for me (ActiveState Perl 5.14 on WIndows 7):

use 5.010;

$SIG{INT} = 'IGNORE';

my $x = 1;
while ( $x <= 5 ) {
  say $x++;
  sleep 1;
}

When I say 'works', I mean that Ctrl-C is disabled until until the programme ends (try it).

[PilotinControl]

Here is my code:

#!/usr/bin/perl

use 5.010;
use warnings; 
use strict; 

printf (" #############################\n"); 
printf (" ########## TEST MENU ########\n"); 
printf (" #############################\n");  

sleep(2);

$SIG{INT} = 'IGNORE';

while(1) 

{ printf ("WHAT DO YOU WANT TO DO\n");
printf (" * * * * *\n"); 
printf (" 1- Option\n"); 
printf (" 2- Option\n"); 
printf (" 5-Exit \n"); 
printf (" * * * * *\n");

my $choose = <STDIN>; 
chomp($choose);
 
if($choose eq 1)      { option->client; 
} elsif($choose eq 2) { option2();  
} elsif($choose eq 5) { printf("Good Bye :-)\n");
sleep(2); 
exit(1);
}; 
};

When you hit control +c within the program it sends errors to the screen...it prohibits control +c to kill the program. I have to choose option 5 to exit which is what I want...now to avoid the errors? Thanks.

[Athanasius]

Hello PilotinControl,

You just need to loop on $choose until it is defined:

...
my $choose = <STDIN>;
$choose = <STDIN> until defined $choose;    # <-- Add this line
chomp $choose;
...

That will remove the warnings you are currently seeing.

Hope that helps,