インデックス候補

CREATE INDEX tid_idx ON foltia_subtitle (tid);
CREATE INDEX pid_idx ON foltia_subtitle (pid);

CREATE INDEX epgid_idx ON foltia_epg (epgid);

重そうなとこ

$DBQuery =  "SELECT count(*) FROM foltia_subtitle WHERE tid = '$item{TID}' AND pid =  '$item{PID}' ";



	$DBQuery =  "UPDATE  foltia_subtitle  SET 
	WHERE tid = '$item{TID}' AND pid =  '$item{PID}' ";








$DBQuery =  "SELECT count(*) FROM foltia_program WHERE tid = '$item{TID}'";
$DBQuery =  "SELECT title FROM foltia_program WHERE tid = '$item{TID}'";
 	$DBQuery =  "UPDATE  foltia_program  SET 	title = $programtitle where  tid = '$item{TID}' ";






SELECT max(epgid) FROM foltia_epg

デフォルト

foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m32.432s
user    0m1.648s
sys     0m0.200s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m19.278s
user    0m1.620s
sys     0m0.192s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m18.928s
user    0m1.572s
sys     0m0.264s

vacuum後

foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m6.045s
user    0m1.476s
sys     0m0.204s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m4.162s
user    0m1.508s
sys     0m0.172s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m4.512s
user    0m1.456s
sys     0m0.228s
foltia@misumi:~$

index後

foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m3.353s
user    0m1.536s
sys     0m0.164s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m4.555s
user    0m1.520s
sys     0m0.160s
foltia@misumi:~$ time /home/foltia/perl/schedulecheck.pl >/dev/null 2>&1

real    0m6.388s
user    0m1.480s
sys     0m0.192s