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 ...作为它的守护进程它无法从文件读取..我把所有的东西放在一个数组中，一切都开始正常工作