Perl China Blog Spot: 2010-02-28

2010年3月6日星期六

Re: [PerlChina] Perl语言好贵

啥意思？

2010/3/6 PIG <addmyin@gmail.com>

O'Reilly给犀利哥立传了。

在 2010年3月6日下午2:18，sbear pl <sbear.pl@gmail.com>写道：

中文版是有很多地方印刷有误

在 10-2-8，黄庚根<huanggeng.8552@gmail.com> 写道：

> 各位好！
>
> 由于想深入的学习Perl，所以别人推荐了Perl语言编程，不知这本书（中文版）的质量怎么样呢？
> 120多！真贵！不过不喜欢看电子书，决定买了！
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
从我的移动设备发送

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] Perl语言好贵

O'Reilly给犀利哥立传了。

在 2010年3月6日下午2:18，sbear pl <sbear.pl@gmail.com>写道：

中文版是有很多地方印刷有误

在 10-2-8，黄庚根<huanggeng.8552@gmail.com> 写道：

> 各位好！
>
> 由于想深入的学习Perl，所以别人推荐了Perl语言编程，不知这本书（中文版）的质量怎么样呢？
> 120多！真贵！不过不喜欢看电子书，决定买了！
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
从我的移动设备发送

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2010年3月5日星期五

Re: [PerlChina] Perl语言好贵

中文版是有很多地方印刷有误

在 10-2-8，黄庚根<huanggeng.8552@gmail.com> 写道：
> 各位好！
>
> 由于想深入的学习Perl，所以别人推荐了Perl语言编程，不知这本书（中文版）的质量怎么样呢？
> 120多！真贵！不过不喜欢看电子书，决定买了！
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
从我的移动设备发送

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] Re: Perl语言好贵

3rd 我家有，也是在当当买的，收藏。

2010/2/17 yong <luo.yong.name@gmail.com>

O'Reilly的书就是贵，但这本还是比较值的，既然愿意用perl，有了这么一本手册可以省得买很多书，O'Reilly对待Java就没那么大方
了，线程、JDBC、正则表达式都单独拿出来出书，单本书价格都不算很高，但是加到一块就不好说了。

On Feb 8, 1:56 am, 黄庚根 <huanggeng.8...@gmail.com> wrote:
> 各位好！
>
> 由于想深入的学习Perl，所以别人推荐了Perl语言编程，不知这本书（中文版）的质量怎么样呢？
> 120多！真贵！不过不喜欢看电子书，决定买了！

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

2010年3月4日星期四

Re: [PerlChina] perl 如何获取客户端IP地址和时间

谢谢，我去试下哦

在 2010年3月5日下午12:13，Lin <i@lxl.cn>写道：

不需要啥模块，IP地址在环境变量 $ENV{'REMOTE_ADDR'} 中，

当前时间用数据库的 now() 或 Perl 的 locatime 或 time 都行吧。

joewu <joewu@cyagen.com> 於 2010年3月5日上午11:29 �道：

大家好请教个问题。我想插入用户的IP地址和当前的时间进入数据库表中，知道PERL有这样的模块的，但不知道该怎么实现，希望大家不吝赐教。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] perl 如何获取客户端IP地址和时间

不需要啥模块，IP地址在环境变量 $ENV{'REMOTE_ADDR'} 中，

当前时间用数据库的 now() 或 Perl 的 locatime 或 time 都行吧。

joewu <joewu@cyagen.com> 於 2010年3月5日上午11:29 �道：

大家好请教个问题。我想插入用户的IP地址和当前的时间进入数据库表中，知道PERL有这样的模块的，但不知道该怎么实现，希望大家不吝赐教。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: Re: [PerlChina] 关于POE::Component::EasyDBI

$VAR2 = 'CREATE TABLE users (id INT, username VARCHAR(100)';

这里少了个括号，呵呵。。。

2010-03-05

中华连珠网

五子棋百科

发件人： woosley. xu.

发送时间： 2010-03-05 10:45:15

收件人： perlchina@googlegroups.com

抄送：

主题： Re: [PerlChina] 关于POE::Component::EasyDBI

sql少了一个右括号

在 2010年3月5日上午10:32，liu peng <lppchina@gmail.com>写道：

table_created是一个事件，不是指表是否存在。

在 2010年3月4日下午8:01，Anthony WU <anthonywuy2k@gmail.com>写道：

table_created
是指你的表已�存在吧？

-------- Original Message --------
Subject: [PerlChina] 关于POE::Component::EasyDBI
From: liu peng <lppchina@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

Re: [PerlChina] 关于POE::Component::EasyDBI

右括号加上了，也是同样的错误。

在 2010年3月5日上午10:44，woosley. xu. <redicaps@gmail.com>写道：

sql少了一个右括号

在 2010年3月5日上午10:32，liu peng <lppchina@gmail.com>写道：

table_created是一个事件，不是指表是否存在。

在 2010年3月4日下午8:01，Anthony WU <anthonywuy2k@gmail.com>写道：

table_created
是指你的表已�存在吧？

-------- Original Message --------
Subject: [PerlChina] 关于POE::Component::EasyDBI
From: liu peng <lppchina@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] perl 如何获取客户端IP地址和时间

大家好请教个问题。我想插入用户的IP地址和当前的时间进入数据库表中，知道PERL有这样的模块的，但不知道该怎么实现，希望大家不吝赐教。

Re: [PerlChina] 关于POE::Component::EasyDBI

sql少了一个右括号

在 2010年3月5日上午10:32，liu peng <lppchina@gmail.com>写道：

table_created是一个事件，不是指表是否存在。

在 2010年3月4日下午8:01，Anthony WU <anthonywuy2k@gmail.com>写道：

table_created
是指你的表已�存在吧？

-------- Original Message --------
Subject: [PerlChina] 关于POE::Component::EasyDBI
From: liu peng <lppchina@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Woosley.Xu

Re: [PerlChina] 关于POE::Component::EasyDBI

table_created是一个事件，不是指表是否存在。

在 2010年3月4日下午8:01，Anthony WU <anthonywuy2k@gmail.com>写道：

table_created
是指你的表已�存在吧？

-------- Original Message --------
Subject: [PerlChina] 关于POE::Component::EasyDBI
From: liu peng <lppchina@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 关于POE::Component::EasyDBI

table_created
是指你的表已�存在吧？

-------- Original Message --------
Subject: [PerlChina] 关于POE::Component::EasyDBI
From: liu peng <lppchina@gmail.com>
To: perlchina <perlchina@googlegroups.com>
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的客户端可以连上数据库的
> 请大侠帮忙！
>
>

Re:Re: Re: [PerlChina] 关于 Win32::OLE 的疑问

谢谢，不知道有没有有专门的文档
不太喜欢 vs vb ...

在2010-03-03 11:36:52，"Achilles Xu" <formalin14@gmail.com> 写道：

也可以装个vb，然后加载ole或com，创建对象以后打个点，看代码提示里有什么？
在 2010年3月3日上午11:36，Achilles Xu <formalin14@gmail.com>写道：
装vs以后，有一个object viewer，可以看。
在 2010年3月2日下午9:31，Huangj <redspid@163.com>写道：
谢谢，IEAutomation 俺知道，就是想知道什么地方找 OLE 可调用的方法
在2010-03-02 18:39:08，"Beckheng Lam" <bi.ken.lam@gmail.com> 写道： >有个Win32::IEAutomation > >Huangj wrote: >> 用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？ >> >> 现在就知道 Navigate， 从什么地方找其它的方法和原型说明？ >> >> > >--  >Perl乐事 -- http://www.perlersh.org
 >我的博客 -- http://www.perlersh.org/blog.html >诸法从缘起，如来说是因。 >彼法因缘尽，是大沙门说。 > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > 
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
---------------------------
Achilles Xu
--
---------------------------
Achilles Xu

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

[PerlChina] 关于POE::Component::EasyDBI

源码如下：
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的客户端可以连上数据库的
请大侠帮忙！

2010年3月3日星期三

Re: [PerlChina] perlchina@googlegroups.com 的简略摘要 - “1 个主题”有 5 个帖子

直接读模块的源代码。

在 2010年3月3日下午3:10， <perlchina+noreply@googlegroups.com>写道：

今日主题摘要

网上论坛: http://groups.google.com/group/perlchina/topics

关于 Win32::OLE 的疑问 [5 条更新]

主题: 关于 Win32::OLE 的疑问

Huangj <redspid@163.com> Mar 02 06:34PM +0800 ^

用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？

现在就知道 Navigate，从什么地方找其它的方法和原型说明？
更多...

Beckheng Lam <bi.ken.lam@gmail.com> Mar 02 06:39PM +0800 ^

有个Win32::IEAutomation

Huangj wrote:

--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
诸法从缘起，如来说是因。更多...

Huangj <redspid@163.com> Mar 02 09:31PM +0800 ^

谢谢，IEAutomation 俺知道，就是想知道什么地方找 OLE 可调用的方法

在2010-03-02?18:39:08，"Beckheng?Lam"?<bi.ken.lam@gmail.com>?写道：
更多...

Achilles Xu <formalin14@gmail.com> Mar 03 11:36AM +0800 ^

装vs以后，有一个object viewer，可以看。

在 2010年3月2日下午9:31，Huangj <redspid@163.com>写道：

--
---------------------------
Achilles Xu
更多...

Achilles Xu <formalin14@gmail.com> Mar 03 11:36AM +0800 ^

也可以装个vb，然后加载ole或com，创建对象以后打个点，看代码提示里有什么？

在 2010年3月3日上午11:36，Achilles Xu <formalin14@gmail.com>写道：

-- 更多...

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
by lemontv

2010年3月2日星期二

Re: Re: [PerlChina] 关于 Win32::OLE 的疑问

也可以装个vb，然后加载ole或com，创建对象以后打个点，看代码提示里有什么？

在 2010年3月3日上午11:36，Achilles Xu <formalin14@gmail.com>写道：

装vs以后，有一个object viewer，可以看。
在 2010年3月2日下午9:31，Huangj <redspid@163.com>写道：
谢谢，IEAutomation 俺知道，就是想知道什么地方找 OLE 可调用的方法
在2010-03-02 18:39:08，"Beckheng Lam" <bi.ken.lam@gmail.com> 写道： >有个Win32::IEAutomation > >Huangj wrote: >> 用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？ >> >> 现在就知道 Navigate， 从什么地方找其它的方法和原型说明？ >> >> > >--  >Perl乐事 -- http://www.perlersh.org
 >我的博客 -- http://www.perlersh.org/blog.html >诸法从缘起，如来说是因。 >彼法因缘尽，是大沙门说。 > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > 
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
--
---------------------------
Achilles Xu

--
---------------------------
Achilles Xu

Re: Re: [PerlChina] 关于 Win32::OLE 的疑问

装vs以后，有一个object viewer，可以看。

在 2010年3月2日下午9:31，Huangj <redspid@163.com>写道：

谢谢，IEAutomation 俺知道，就是想知道什么地方找 OLE 可调用的方法
在2010-03-02 18:39:08，"Beckheng Lam" <bi.ken.lam@gmail.com> 写道： >有个Win32::IEAutomation > >Huangj wrote: >> 用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？ >> >> 现在就知道 Navigate， 从什么地方找其它的方法和原型说明？ >> >> > >--  >Perl乐事 -- http://www.perlersh.org
 >我的博客 -- http://www.perlersh.org/blog.html >诸法从缘起，如来说是因。 >彼法因缘尽，是大沙门说。 > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 > 
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
---------------------------
Achilles Xu

Re:Re: [PerlChina] 关于 Win32::OLE 的疑问

谢谢，IEAutomation 俺知道，就是想知道什么地方找 OLE 可调用的方法

在2010-03-02 18:39:08，"Beckheng Lam" <bi.ken.lam@gmail.com> 写道： >有个Win32::IEAutomation > >Huangj wrote: >> 用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？ >> >> 现在就知道 Navigate， 从什么地方找其它的方法和原型说明？ >> >> > >--  >Perl乐事 -- http://www.perlersh.org >我的博客 -- http://www.perlersh.org/blog.html >诸法从缘起，如来说是因。 >彼法因缘尽，是大沙门说。 > >--  >您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。 >要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。 >要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。 >若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。 >

Re: [PerlChina] 关于 Win32::OLE 的疑问

有个Win32::IEAutomation

Huangj wrote:
> 用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？
>
> 现在就知道 Navigate，从什么地方找其它的方法和原型说明？
>
>

--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

[PerlChina] 关于 Win32::OLE 的疑问

用 Win32::OLE 模块控制 IE, 怎么知道有什么可用的方法？

现在就知道 Navigate，从什么地方找其它的方法和原型说明？

2010年2月28日星期日

Re: [PerlChina] Re: 一个LWP的求助

不是麻烦，是成功率极低，有没有别的办法？

2010/2/28 Fangyuan <chengfangyuan2008@gmail.com>

去猜这个图片呗，有些麻烦

On Feb 28, 12:27 pm, zhihua zheng <zhihua.zh...@gmail.com> wrote:
> 有图片做验证码的，怎么搞定？多谢了！
>

> On 2/25/10, lemontv <lemontv.msn....@gmail.com> wrote:
>
> > #!/usr/bin/perl
>
> > use strict;
> > use warnings;
> > use LWP;
> > use LWP::ConnCache;
> > use HTTP::Cookies;
>
> > my $url = 'http://www.renren.com/PLogin.do';
> > my $url2 = 'http://upload.renren.com/ReplyPost.do?thread=330492221';
> > my $url3 = 'http://group.renren.com/GetThread.do?
> > id=330492221&tribeId=283371586';
> > my $browser = LWP::UserAgent->new();
> > $browser->agent("Mozilla/5.0 (X11; U; Linux i686; zh-CN; rv:1.9.2)
> > Gecko/20100115 Firefox/3.6 GTB7.0");
> > $browser->cookie_jar(HTTP::Cookies->new());
> > $browser->conn_cache(LWP::ConnCache->new());
> > push @{$browser->requests_redirectable}, 'POST';
> > my $response = $browser->post($url,[
> > 'email'=>'xxxx',
> > 'password'=>'xxxx',
> > 'origURL'=>'http://www.renren.com/Home.do',
> > 'domain'=>'renren.com'],
> > );
> > my $resp = $browser->get($url3);
> > my $ak;
> > my $ac;
> > my $tsc_a;
> > my $groupAuTime;
> > my $at;
> > if($resp->content=~/name="ak" value="(\w+)"/){
> > $ak = $1;
> > }
> > if($resp->content=~/id="ac" value="(\w+)"/){
> > $ac = $1;
> > }
> > if($resp->content=~/id="tsc_a" value="(\w+)"/){
> > $tsc_a = $1;
> > }
> > if($resp->content=~/name="groupAuTime" value="(\w+)"/){
> > $groupAuTime = $1;
> > $at = $groupAuTime;
> > $at=~s/b/2/g;
> > }
> > #print "ak=$ak\nac=$ac\ntsc=$tsc_a\nGAT=$groupAuTime\n";
> > #print $resp->content;
> > $resp = $browser->post($url2,[
> > 'body'=>'52000',
> > 'citeid'=>'0',
> > 'citename'=>'',
> > 'submit'=>'',
> > 'theFile'=>['bk.jpg'],
> > 'ak'=>"$ak",
> > 'tsc'=>"$tsc_a",
> > 'ac'=>"$ac",
> > 'groupAuTime'=>"$groupAuTime",
> > 'at'=>"$at",
> > 'tribeId'=>'283371586',
> > 'curpage'=>'0',
> > ],
> > 'Content_Type'=>'form-data'
> > );
> > #print $resp->content;
> > print $resp->status_line;
>
> > 人人品牌专区的自动回帖代码
> > 'email'=>'xxxx',
> > 'password'=>'xxxx',
> > 帐号密码我就不提供了。
> > 下面的是测试的目标贴
> >http://group.renren.com/GetThrea... p;tribeId=283371586
>
> > 经过一些抓包分析，发现可能是theFile有问题，浏览器发送的包theFile的值是空的，但我搞不定这个，有人帮忙看看么？
> > 分析了一下，觉得有可能是回帖时候有些javascript没处理，javascript不懂，有没有人帮忙看看？
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。

--

您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

订阅：博文 (Atom)

2010年3月6日星期六

2010年3月5日星期五

2010年3月4日星期四

2010年3月3日星期三

2010年3月2日星期二

2010年2月28日星期日

订阅

博客归档