インデックス候補

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