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

perl守护进程Proc :: Daemon ::与DBI的Init问题

1 个答案: