右括号加上了，也是同样的错误。 在 2010年3月5日 上午10:44，woosley. xu. <[email protected]>写道：
> sql少了一个右括号 > > 在 2010年3月5日 上午10:32，liu peng <[email protected]>写道： > >> table_created是一个事件，不是指表是否存在。 >> >> 在 2010年3月4日 下午8:01，Anthony WU <[email protected]>写道： >> >> table_created >>> 是指你的表已��存在吧？ >>> >>> >>> >>> -------- Original Message -------- >>> Subject: [PerlChina] 关于POE::Component::EasyDBI >>> From: liu peng <[email protected]> >>> To: perlchina <[email protected]> >>> Date: 4/3/2010 16:32 >>> > 源码如下： >>> > use strict; >>> > use warnings; >>> > >>> > use Data::Dumper; >>> > use Time::HiRes qw(time); >>> > use POE; >>> > use POE::Component::EasyDBI; >>> > use POE::Component::Client::TCP; >>> > use POE::Component::Client::SMTP; >>> > use POE::Component::Net::FTP; >>> > use POE::Filter::Line; >>> > # Set up the DBI >>> > POE::Component::EasyDBI->spawn( # or new(), witch returns an obj >>> > alias => 'EasyDBI', >>> > dsn => >>> 'DBI:mysql:database=swatdb;host=127.0.0.1;port=3306', >>> > username => 'root', >>> > password => '', >>> > ); >>> > >>> > # Create our own session to communicate with EasyDBI >>> > POE::Session->create( >>> > inline_states => { >>> > _start => sub { >>> > $_[KERNEL]->post( 'EasyDBI', >>> > do => { >>> > sql => "CREATE TABLE users (id INT, username >>> > VARCHAR(100)", >>> > event => "table_created", >>> > } >>> > ); >>> > }, >>> > >>> > table_created => sub { >>> > print "in table_created\n"; >>> > my ($kernel, $session, %hash) = >>> ($_[KERNEL], $_[SESSION], %{$_[ARG0]}); >>> > >>> > print Dumper $session; >>> > print "----------------------\n"; >>> > print Dumper $_[ARG0]; >>> > print "----------------------\n"; >>> > print Dumper %hash; >>> > >>> > $_[KERNEL]->post( 'EasyDBI', >>> > insert => { >>> > # multiple inserts >>> > insert => [ >>> > { id => 1, username => 'foo' }, >>> > { id => 2, username => 'bar' }, >>> > { id => 3, username => 'baz' }, >>> > ], >>> > }, >>> > ); >>> > $_[KERNEL]->post( 'EasyDBI' => 'commit' ); >>> > $_[KERNEL]->post( 'EasyDBI' => 'shutdown' ); >>> > }, >>> > } >>> > ); >>> > >>> > POE::Kernel->run(); >>> > >>> > exit 0; >>> > >>> > >>> > >>> > 但运行之后报错: >>> > C:\SWAT\tools\ServerDaemon>perl testmysql.pl >>> > in table_created >>> > $VAR1 = bless( [ >>> > {}, >>> > {}, >>> > { >>> > '_start' => sub { "DUMMY" }, >>> > 'table_created' => sub { "DUMMY" } >>> > } >>> > ], 'POE::Session' ); >>> > ---------------------- >>> > $VAR1 = { >>> > 'sql' => 'CREATE TABLE users (id INT, username VARCHAR(100)', >>> > 'session' => 3, >>> > 'error' => 'POE::Component::EasyDBI was shut down forcibly!', >>> > 'action' => 'do', >>> > 'id' => 0, >>> > 'event' => 'table_created', >>> > 'placeholders' => [] >>> > }; >>> > ---------------------- >>> > $VAR1 = 'sql'; >>> > $VAR2 = 'CREATE TABLE users (id INT, username VARCHAR(100)'; >>> > $VAR3 = 'session'; >>> > $VAR4 = 3; >>> > $VAR5 = 'action'; >>> > $VAR6 = 'do'; >>> > $VAR7 = 'error'; >>> > $VAR8 = 'POE::Component::EasyDBI was shut down forcibly!'; >>> > $VAR9 = 'id'; >>> > $VAR10 = 0; >>> > $VAR11 = 'event'; >>> > $VAR12 = 'table_created'; >>> > $VAR13 = 'placeholders'; >>> > $VAR14 = []; >>> > >>> > 用mysql的客户端可以连上数据库的 >>> > 请大侠帮忙！ >>> > >>> > >>> >>> -- >>> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >>> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >>> 要取消订阅此网上论坛，请发送电子邮件至 >>> [email protected]<perlchina%[email protected]> >>> 。 >>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >>> >>> >> -- >> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >> 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 >> 要取消订阅此网上论坛，请发送电子邮件至 >> [email protected]<perlchina%[email protected]> >> 。 >> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >> > > > > -- > Woosley.Xu > > > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 > 要取消订阅此网上论坛，请发送电子邮件至 > [email protected]<perlchina%[email protected]> > 。 > 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
