It's the oddest thing, but when I use this bit of code with a small and simple script, it works as expected. However, when I use it in my script with 6,500 lines of code, it works, but I have to hit enter three times after hitting "N" to resume the script (Y and every other key work as expected...). There must be something wrong in my code, but it's far too much to put in here. Anyway, would you agree that this is a more concise way of figuring out if user is entering Y or N, and are there other better ways of doing it??

# define signal handler to catch contol-c
$SIG{'INT'} = 'catch_int';
sub catch_int {
    my $ans;
    system("clear");
    while ($ans !~ /[Nn]/) {
        print "Do you want to exit [y or n]? ";
        chomp($ans=<STDIN>);
        if ($ans =~ /[Yy]/) {
            exit(0);
        }
    }
}

[download]

In reply to Re^2: Have $SIG{INT} ask if user wants to quit by Anonymous Monk
in thread Have $SIG{INT} ask if user wants to quit by walkingthecow

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.