perl的守護進程PROC ::守護::初始化與DBI

Question

問題，我有一個程序如下提到：

use DBI; 
use Proc::Daemon; 
Proc::Daemon::Init; 


my $continue = 1; $SIG{TERM} = sub { $continue = 0 }; 
while ($continue) { 

     my $db=DBI->connect('DBI:mysql:xx;user=root;password=xxx'); 
     my $sth=$db->prepare("select * from cpu_mem_calls "); 
      $sth->execute(); 
     while (my @row=$sth->fetchrow_array()){ 
     $x=$row[0]+200; 
     $y=$row[1]+200; 

       my $db_test=DBI->connect('DBI:mysql:xx;user=root;password=xxx'); 
         my $sth=$db->prepare("insert into cpu_mem_calls values ($x,$y,'2011-03-21 17:19:00')"); 
       $sth_test->execute(); 
         $sth_test->finish(); 
         $db_test->disconnect(); 
$sth->finish(); 
$db->disconnect(); 
sleep(5); 

     } 

當我使用Proc::Daemon::Init模塊+ DBI但我可以將值插入數據庫時​​，我想選擇一些來自數據庫的值不起作用。它不會返回任何價值。這個真正的問題是什麼？ DBI在使用Proc::Daemon::Init時是否有任何問題？

Answer 1

我已經解決了這個問題......我試圖從一個文件中讀取一些IP ...作爲它的守護進程它無法從文件讀取..我把所有的東西放在一個數組中，一切都開始正常工作