Re: 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;
}
[download]

90% of every Perl application is already written. ⇒

dragonchild

Comment on Re: How to end "do" with Ctrl-C Download Code

Replies are listed 'Best First'.
Re^2: How to end "do" with Ctrl-C by kennethk (Abbot) on Dec 02, 2008 at 23:03 UTC
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; } }` [download] or whatever variant will get you what you want.	[reply] [d/l]
Re^3: How to end "do" with Ctrl-C by ikegami (Patriarch) on Dec 03, 2008 at 00:12 UTC
`print system("netstat -an \| grep $port"), "\n";` That should be `system("netstat -an \| grep $port");` [download] or `print qx{netstat -an \| grep $port};` [download] or `print grep /$port/, qx{netstat -an};` [download]	[reply] [d/l] [select]
Re^3: How to end "do" with Ctrl-C by st_possenti (Monk) on Dec 02, 2008 at 23:13 UTC
Thank you, works great!	[reply]