帮看一下这段程序有什么问题，谢谢！

屠龙

UID: 4522
帖子: 127
积分: 292
在线时间: 22 小时

1^# 屠龙发表于 2008-12-27 19:24

帮看一下这段程序有什么问题，谢谢！

执行到这一句报错：$dbh->do(`delete from weblog‘)，报“没有定义$dbh”，难道require没有起作用？该怎么做呢？

QUOTE:

#!/usr/bin/perl

require "/usr/local/myapp/connect.pl";

my $pid = fork();
print $pid,"\n";
if($pid) {
print "#parent process";
exit(0);
}else {
print "#child process";
}

while(1) {
sleep(3);
&getlog();
}

sub getlog {
$dbh->do("delete from weblog";
........
}

connect.pl

QUOTE:

$dbh = DBI->connect('DBIg:host=localhost; dbname=arp', 'pgsql');
.......
1

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

2^# cobrawgl 发表于 2008-12-27 19:53

这么着可不成

zzyong08

UID: 19033
帖子: 9
积分: 20
在线时间: 10 分钟

3^# zzyong08 发表于 2008-12-28 13:43

写成模块的形式

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-12-28 22:05

QUOTE:

原帖由 zzyong08 于 2008-12-28 13:43 发表
写成模块的形式

他需要的那种形式，可以用 OO 来写

package MyApp::DBI;

use strict;
use warnings;

use DBI;

our $dbh = DBI::connect('dsn', '', '')

1;

package MyApp::OtherModule;

use base MyApp::DBI;

....

gnubuntu

UID: 31305
帖子: 1
积分: 2
在线时间: 10 分钟

5^# gnubuntu 发表于 2008-12-29 07:52

参考下：

QUOTE:

O'Reilly Learning Perl 第三版

Perl by Example 第四版

Perl技术大全第二版

Wrox出版 Beginning Perl

Wrox出版 Professional Perl Programming

O'Reilly Perl Cookbook 第二版

屠龙

UID: 4522
帖子: 127
积分: 292
在线时间: 22 小时

6^# 屠龙发表于 2008-12-29 09:45

谢谢！