Re: How to end "do" with Ctrl-C

[pfaut]

in reply to How to end "do" with Ctrl-C

You need to trap the INT signal.

our $stopit = 0;
$SIG{INT} = sub  { $stopit++; };

while (!$stopit) {
    system("netstat -an | grep $line");
    sleep 10;
}

[kennethk]

Yeah, what pfaut said. As an additional note, your chomp removes the end line, so your test would always pass. If you really want to catch bad input, you could try:

use strict; 
my $port = shift; 

our $stopit = 0; 
$SIG{INT} = sub { $stopit++; }; 

if (!$port or $port =~ /\D/) { 
    print "usage: program port_num\n"; 
} else { 
    while (!$stopit) { 
        print system("netstat -an | grep $port"), "\n"; 
        sleep 10; 
    } 
}

or whatever variant will get you what you want.

[st_possenti]

Thank you, works great!

[ikegami]

print system("netstat -an | grep $port"), "\n";

That should be

system("netstat -an | grep $port");

or

print qx{netstat -an | grep $port};

or

print grep /$port/, qx{netstat -an};