質問です
10分ごとに処理させるプログラムなのですが
time関数でむりやり組んだのですがidx値が10.万を超えてしまって
まともに動かないんですが
いいプログラムあればご教授ください
bacetime();
while(1) {
print"------- work ------\n";
msleep(5000);
thistime();
}
sub bacetime
{

$basetime=time;
}
sub thistime()
{
my $thistime;
my $idx;
$thistime=time;
$idx=$thistime-$bacetime;
if($idx >= 600) {

bacetime();
}
print $idx;
print "\n";
}