l i n u x - u s e r s - g r o u p - o f - d a v i s
Next Meeting:
July 7: Social gathering
Next Installfest:
Latest News:
Jun. 14: June LUGOD meeting cancelled
Page last updated:
2002 May 14 11:21

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
[vox-tech] signal in perl not being caught
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[vox-tech] signal in perl not being caught

i'd like to catch a control-c to stop this wrapper program to a grinding
halt.   for some reason it's not catching control-c.

what's wrong with this code snippet?


#!/usr/bin/perl -w
use strict;
use diagnostics;

# Basic Variables
my $T = 4.0;
my $runs = 25;

# Other Variables, tests and misc
my $result_file = "results";
my $program =  "./ising2-pbc";
my ($temp, $i);
if (-r $result_file) { unlink($result_file); };
if (! -r $program  ) { system("make");       };
$SIG{INT} = sub { die("caught sigint.  aborting."); };

for ($i=0; $i<$runs; ++$i)
   print("Run $i/$runs, T: $T\n");
   system("$program $T > $result_file");

vox-tech mailing list

LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
Sunset Systems
Who graciously hosts our website & mailing lists!