Perl China Blog Spot: 2009-07-26

2009年8月1日星期六

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

你们跑的时候不会crash？
5.10 的 active perl

2009/8/2 vincent <pcwl.vincent@gmail.com>

楼主，这个模块 WWW::Mechanize 的ppm能不能打包发一下娃哈哈~

On 8月2日, 上午2时29分, Shan LeiGuang <shanleigu...@gmail.com> wrote:
> pinser_zuoaitoupai.pl
> 4K查看下载
>
>
>
> 你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

--
>: ~

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

楼主，这个模块 WWW::Mechanize 的ppm能不能打包发一下娃哈哈~

On 8月2日, 上午2时29分, Shan LeiGuang <shanleigu...@gmail.com> wrote:
> pinser_zuoaitoupai.pl
> 4K查看下载
>
>
>
> 你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

科技以人为本...

2009/8/2 wuzhez <wuzhez@gmail.com>

哥看的不是图片，是寂寞

wuzhez，wuzhez@gmail.com

2009-08-02

----- Original Message -----

From: Shan LeiGuang

To: PerlChina_Mongers_讨论组

Sent: 2009-08-02, 02:29:24

Subject: [PerlChina] 贡献一个邪恶的脚本，呵呵

原邮件附件清单如下：

(1). pinser_zuoaitoupai.pl

你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

--
姜源
Yuan Jiang
http://blog.vetcafe.net
http://twitter.com/sleetdrop

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

哥看的不是图片，是寂寞

wuzhez，wuzhez@gmail.com

2009-08-02

----- Original Message -----

From: Shan LeiGuang

To: PerlChina_Mongers_讨论组

Sent: 2009-08-02, 02:29:24

Subject: [PerlChina] 贡献一个邪恶的脚本，呵呵

原邮件附件清单如下：

(1). pinser_zuoaitoupai.pl

你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

在办公室加班，看了运行的结果，吓了一跳。

确实又黄又暴力，O(∩_∩)O哈哈~

2009-08-02

chengfangyuan2008

发件人： Shan LeiGuang

发送时间： 2009-08-02 02:30:02

收件人： PerlChina_Mongers_讨论组

抄送：

主题： [PerlChina] 贡献一个邪恶的脚本，呵呵

你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

收藏了，狠狠研究一下~~ 娃哈哈

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

娃哈哈，又黄又邪恶，我的最爱~~~

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

将来可能需要骑墙。 :-)

/Heng

silent wrote:

不明真相的群众抱着研究代码的目的收藏了.  2009/8/2 Shan LeiGuang <shanleiguang@gmail.com>:

  你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html

[PerlChina] Re: 贡献一个邪恶的脚本，呵呵

不明真相的群众抱着研究代码的目的收藏了.

2009/8/2 Shan LeiGuang <shanleiguang@gmail.com>:
>
>
>
> 你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 贡献一个邪恶的脚本，呵呵

#!/usr/local/ActivePerl-5.10/bin/perl
#auto download pictures from http://e.psbbs.info/
#by shanleiguang@gmail.com
use strict;
use warnings;

use threads;
use WWW::Mechanize;
use POSIX qw(strftime);

$| = 1;

my $today = strftime "%Y%m%d", localtime;

mkdir $today if(not -d $today);

my $pager = $ARGV[0] ? $ARGV[0] : 1; #页码，默认为1
my $url = "http://rr.pstang.com/thread.php?fid=39&search=&page=$pager";
my $mech = WWW::Mechanize->new(quite => 1, onerror => undef);
my @mechs;

#创建4个实例用于多线程下载图片
foreach (0..3) {
my $m = WWW::Mechanize->new(quite => 1, onerror => undef, timeout => 180);
$m->agent_alias('Windows IE 6');
$m->stack_depth(2);
push @mechs, $m;
}

$mech->agent_alias('Windows IE 6');
$mech->stack_depth(2);
print getts(), ", get baseURL '$url' ... ";
$mech->get($url);
print "done\n";

my $content = $mech->content();

$content =~ s/\n/ /g;
$content =~ s/\s{2,}/ /g;
$content = $1 if($content =~ m{普通主题(.*)$}); #取出'普通主题'关键字之后的内容

my @imgs; #一个帖子需下载的图片组
my %tids_downloaded; #记录已下载过的帖子的ID

open DOWNLOADED_R, "< downloaded.txt";
while(<DOWNLOADED_R>) {
chomp;
$tids_downloaded{$_} = 1;
}
close DOWNLOADED_R;
open DOWNLOADED_W, ">> downloaded.txt";
while($content =~ m{<tr align=center class=t_two>.*?<a href='read.php\?tid=(\d+)' id=''>}ig) {
my $thread_id = $1;
my $thread_url = "http://rr.pstang.com/read.php?tid=$thread_id";

print "\t", getts(), ", get threadURL '$thread_url' ... ";
$mech->get($thread_url);
print "done\n";

my $t_content = $mech->content();
my $uid;

$t_content =~ s/\n/ /g;
$t_content =~ s/\s{2,}/ /g;
if($t_content =~ m{本主题帖为未审核新贴}) { #忽略未审核新帖
print "\tskipped\n";
next;
}
if(-d "$thread_id") { #忽略先前下载过的帖子
print "\tdownloaded\n";
next;
}
if($t_content =~ m{<font face=Gulim><b>(.*?)</b></font>}) {
$uid = $1;
$uid =~ s/\s//g;
}
my $thread_dir = "$uid - $thread_id";
mkdir("$today/$thread_dir"); #为新帖创建单独目录

#@task_groups：按10个实例进行分组，为每个实例分配任务（要下载的图片）
#@threads：线程数组
my (@task_groups, @threads);

foreach my $img ($mech->find_all_images()) {
my $img_url = $img->url();
my @fs = split /\//, $img_url;
my $img_name = $fs[-1];

if($img_name =~ m{\.jpg$}i) { #只需要JPG图片
next if($img_name =~ m{luo.*?\.jpg$}i); #过滤不需要的论坛图片
push @imgs, [$img_url, "$today/$thread_dir/$img_name"]; #图片URL地址及本地保存路径
}
}
foreach my $i (0..$#imgs) {
my $gid = $i - int($i/4)*4; #$i mod 4
push @{$task_groups[$gid]}, $i;
}
foreach my $gid (0..$#task_groups) {
my $t = threads->create('get_image', $mechs[$gid], $task_groups[$gid]);
push @threads, $t;
}
while(my $t = shift @threads) { $t->join; } #join每个线程
@imgs = (); #处理下一个帖子前清空@imgs
print DOWNLOADED_W "$thread_id\n";
$tids_downloaded{$thread_id} = 1;
sleep(2); #be polite
}
close(DOWNLOADED_W);

sub getts { return strftime "%H:%M:%S", localtime; }

sub get_image {
my ($mech, $task_group) = @_;

foreach my $img_id (@{$task_group}) {
my ($img_url, $save_path) = @{$imgs[$img_id]};

$mech->get($img_url, ':content_file' => $save_path);
print "\t\t", getts(), ", got img '$img_url'\n";
}
}
你为浏览论坛看图不便而郁闷吗？贡献一个邪恶的脚本，呵呵

[PerlChina] 提仪成都perler聚会！

all !

关于成都perler聚会一事！需要做个人数统计，也为方便大家交流学习。希望大家对能够和我联系！确定好人数后，即公布聚会的时间及地点！欢迎大家讨论。

希望大家提交一份个人的联系方式过来！具体格式As follow:

我先来吧！不知道这样行不行！如果不行请email给我。

姓名：傅忠

QQ：66791009

工作单位：成都启迪软件

工作年限：1.5Y

E-mail: 123456fuzhong@sohu.com

联系电话：13541316013

专长：Linux邮件系统架设，运维，webmail开发.perl编程.C编程。

我已将近期在perl邮件列表中发信的TX加入了通讯录！过下给大家发一封！

2009年7月30日星期四

[PerlChina] Re: 请教关于IO::Prompt使用问题

参数加得不对。

#!/usr/bin/perl

use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " , -te => '*') or die "Error: $!";

print "Your passwd is: '$_'\n";
print "Arguments: @ARGV\n";

exit ;

2009/7/30 Haiyan Lin <linhy0120@gmail.com>

谢谢cnhack TNT 的回复。按他的提示，第一个问题解决了。可第二个问题依然如故，下面是我调试实用程序时（有“-echo=>’*',和没“-echo =>'*'时）显示的信息。请继续指点，谢谢。

没有“-echo=>’*'”时，好像一切正常。调试时如下。

=====================================================================================================

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(ssr2Ref.pl:8):   $_ = join (" ", @ARGV) ;
DB<1> b 100
DB<2> c
main::(ssr2Ref.pl:100): my $passwd = prompt("Password for '$user' at '$db': ", -tty);
DB<2> n
Password for 'linhy' at 'physicalMap:localhost': Not_my_passwd_here
main::(ssr2Ref.pl:101): my $dbh = DBI->connect("dbi:mysql:$db",$user, "$passwd") or die "$DBI::errstr" ;
DB<2>

=====================================================================================================

有“-echo=>’*'”时，好像也能工作，但会多一下警告信息（见下面红色加粗部分）。

=====================================================================================================

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(ssr2Ref.pl:8):   $_ = join (" ", @ARGV) ;
DB<1> b 100
DB<2> c
main::(ssr2Ref.pl:100): my $passwd = prompt("Password for '$user' at '$db': ", -tty,-echo => '*');
DB<2> n
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 91, <SSRFILE> line 4454.

at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 91
        IO::Prompt::_get_prompt('HASH(0x9d66b14)', 'Password for \'linhy\' at \'physicalMap:localhost\': ', '-tty', '-echo', '*') called at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 174
        IO::Prompt::prompt('Password for \'linhy\' at \'physicalMap:localhost\': ', '-tty', '-echo', '*') called at ssr2Ref.pl line 100
Password for 'linhy' at 'physicalMap:localhost': **************************************************************************************
main::(ssr2Ref.pl:102): my $dbh = DBI->connect("dbi:mysql:$db",$user, "$passwd") or die "$DBI::errstr" ;
DB<2>

=====================================================================================================

----- Original Message -----

From: cnhack TNT

To: perlchina@googlegroups.com

Sent: Thursday, July 30, 2009 1:34 AM

Subject: [PerlChina] Re: 请教关于IO::Prompt使用问题

prompt() 加上 -tty 参数,如下：
--------
prompt ("print paswd: ", -tty ) or die "Error: $!";

2009/7/29 linhy <linhy0120@gmail.com>

大家好。我学习perl没有多久。我在使用模块“IO::Prompt"的时候碰到两个对我来说是“未解之谜”的问题（^_^）。请大家指点一下。谢
谢。问题描述如下。
Hello! Everyone. I'm a newbie in perl. I have encountered two problems
that puzzling me. Could you give me some suggestions. Thanks. The
problems I encountered are:

我用的操作系统是Fedor core 10 (linux). Perl 的版本是v5.10.0。
The OS I used is Linux (Fedor core 10). The version of perl is
"v5.10.0"

问题一：不加参数好像正常，但如果加一下参数的话，会出现提示“Can't open add: No such file or
directory at iotry1.pl line 7“ 代码和运行结果如下:
Question 1: It seems work normaly without anything except script name,
but warning “Can't open add: No such file or directory at iotry1.pl
line 7“ will appear on screen when something following script name.
The code and running resuls are:

======================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry1.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ) or die "Error: $!";
print "You passwd is: '$_'\n";

[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl
print paswd: hello
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl some arguments
Can't open some: No such file or directory at iotry1.pl line 7
[linhy@genome2 BatchPrimer3.extension]$
=======================================================

问题二：在"prompt"中加“-echo => '*' "后，虽然可以工作，但是会给出警告：“Use of Uninitialized
value $_ in pattern match (m//) at /usr/local/lib/perl5/sit_perl/
5.10.0/IO/Prompt.pm”代码和结果如下：
Question 2:　When adding option "-echo", it can work, but message "Use
of Uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/sit_perl/5.10.0/IO/Prompt.pm” will appear. The code and running
results are:

===================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry2.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ,
-echo => '*') or die "Error: $!";

print "You passwd is: '$_'\n";

exit ;

[linhy@genome2 BatchPrimer3.extension]$ perl iotry2.pl
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/site_perl/5.10.0/IO/Prompt.pm line 91.
print paswd: *****
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$

====================================================

Re: 回复: [PerlChina] Re: chialiang提仪本月成都perler聚会！

28,29 又不是周末。。大家都要上班。。。我这里提个议。。在8月8日星期六如何？哈哈，纪念奥运

On 7月29日, 上午10时16分, 123456fuzh...@sohu.com wrote:
> 光说可不行啊！得有人组织
> 大家都把自己的联系邮箱和QQ号码说一下,
> 然后发给我，我的邮箱123456fuzh...@sohu.com
> QQ: 66791009 。在成都的perler还是挺多的。组织好才能确定最后的聚会时间。
>
> 或者发给发到CathyEmail: cathywork...@gmail.comQQ: 72738062513881903423
>
> ----- 原文 ----- From: James Zheng<jameswor...@gmail.com> Subject:[PerlChina] Re: chialiang提仪本月成都perler聚会！yfeng wrote:
>
> 哈哈，支持哈。。。具体啥时间呢？有兴趣的可以发信给
> On 7月26日, 上午1时07分, 123456fuzh...@sohu.com wrote:
> 今天在邮件列表中看到了chiali...@gmail.com提议本月28号或者29号将在成都聚会！i不知道有人响应没有啊！看来成都还是有不少人在关注perl。有必要聚聚！建议聚会的时候，做一小段演讲。题目不限，呵呵！促进技术交流！
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Oops! PerlMonks compromised!

不是 PM网站自己产生的密码
我都没有修改
社工也不好使
：）

On 7月30日, 上午8时58分, cnhack TNT <cnhack...@gmail.com> wrote:
> Hi all,
>
> 今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐号的赶紧换个帐号吧。
> 这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码还是自己小心点，谁知道网站用啥方式存储你的密码？
> 谁也不知道这网站是否足够安全。
>
> Thanks~
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Oops! PerlMonks compromised!

看来不能将邮件设为只发送摘要了。

On 7月30日, 下午3时31分, "smallfish...@gmail.com" <smallfish...@gmail.com>
wrote:
> pyer很友好的，比如我。不会干这种事情的啦
> --
> blog:http://hi.baidu.com/smallfish_xy
>
> 2009/7/30 Beckheng Lam <bi.ken....@gmail.com>
>
>
>
> > XXOO
> > 是不是PYTHON的人干的？
> > 我的密码。。。幸好我其它服务都是在中国呀。- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Oops! PerlMonks compromised!

pyer很友好的，比如我。不会干这种事情的啦
--
blog: http://hi.baidu.com/smallfish_xy

2009/7/30 Beckheng Lam <bi.ken.lam@gmail.com>

XXOO
是不是PYTHON的人干的？
我的密码。。。幸好我其它服务都是在中国呀。

[PerlChina] Re: Oops! PerlMonks compromised!

XXOO
是不是PYTHON的人干的？
我的密码。。。幸好我其它服务都是在中国呀。

On 7月30日, 上午9时58分, "Haiyan Lin" <linhy0...@gmail.com> wrote:
> 谢谢提醒
>
>
>
> ----- Original Message -----
> From: smallfish
> To: perlchina@googlegroups.com
> Sent: Thursday, July 30, 2009 9:23 AM
> Subject: [PerlChina] Re: Oops! PerlMonks compromised!
>
> 真是广告说的：一切皆有可能
> --
> blog:http://hi.baidu.com/smallfish_xy
>
> 2009/7/30 Qiang (James) <shijia...@gmail.com>
>
> sigh, perlmonks 居然使用明文储存密码....
>
> Qiang
>
> cnhack TNT wrote:
> > Hi all,
>
> > 今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐
> > 号的赶紧换个帐号吧。
> > 这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码
> > 还是自己小心点，谁知道网站用啥方式存储你的密码？
> > 谁也不知道这网站是否足够安全。
>
> > Thanks~- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年7月29日星期三

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

用win32::GuiTest 基本实现了功能.主要用的就是SendKey
遇见一个组合键的问题, 因为网络延迟,本应该当成是组合键的SendKey连续发出的信号, 被解释成了单个按键.后来想了个方法绕过去了.
遗憾哈
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Oops! PerlMonks compromised!

谢谢提醒

----- Original Message -----

From: smallfish

To: perlchina@googlegroups.com

Sent: Thursday, July 30, 2009 9:23 AM

Subject: [PerlChina] Re: Oops! PerlMonks compromised!

真是广告说的：一切皆有可能
--
blog: http://hi.baidu.com/smallfish_xy

2009/7/30 Qiang (James) <shijialee@gmail.com>

sigh, perlmonks 居然使用明文储存密码....

Qiang

cnhack TNT wrote:
> Hi all,
>
> 今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐
> 号的赶紧换个帐号吧。
> 这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码
> 还是自己小心点，谁知道网站用啥方式存储你的密码？
> 谁也不知道这网站是否足够安全。
>
> Thanks~
>
> >

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教关于IO::Prompt使用问题

谢谢cnhack TNT 的回复。按他的提示，第一个问题解决了。可第二个问题依然如故，下面是我调试实用程序时（有"-echo=>'*',和没"-echo =>'*'时）显示的信息。请继续指点，谢谢。

没有"-echo=>'*'"时，好像一切正常。调试时如下。

=====================================================================================================

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(ssr2Ref.pl:8):   $_ = join (" ", @ARGV) ;
DB<1> b 100
DB<2> c
main::(ssr2Ref.pl:100): my $passwd = prompt("Password for '$user' at '$db': ", -tty);
DB<2> n
Password for 'linhy' at 'physicalMap:localhost': Not_my_passwd_here
main::(ssr2Ref.pl:101): my $dbh = DBI->connect("dbi:mysql:$db",$user, "$passwd") or die "$DBI::errstr" ;
DB<2>

=====================================================================================================

有"-echo=>'*'"时，好像也能工作，但会多一下警告信息（见下面红色加粗部分）。

=====================================================================================================

Loading DB routines from perl5db.pl version 1.3
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(ssr2Ref.pl:8):   $_ = join (" ", @ARGV) ;
DB<1> b 100
DB<2> c
main::(ssr2Ref.pl:100): my $passwd = prompt("Password for '$user' at '$db': ", -tty,-echo => '*');
DB<2> n
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 91, <SSRFILE> line 4454.
at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 91
        IO::Prompt::_get_prompt('HASH(0x9d66b14)', 'Password for \'linhy\' at \'physicalMap:localhost\': ', '-tty', '-echo', '*') called at /usr/local/lib/perl5/site_perl/5.10.0/IO/Prompt.pm line 174
        IO::Prompt::prompt('Password for \'linhy\' at \'physicalMap:localhost\': ', '-tty', '-echo', '*') called at ssr2Ref.pl line 100
Password for 'linhy' at 'physicalMap:localhost': **************************************************************************************
main::(ssr2Ref.pl:102): my $dbh = DBI->connect("dbi:mysql:$db",$user, "$passwd") or die "$DBI::errstr" ;
DB<2>

=====================================================================================================

----- Original Message -----

From: cnhack TNT

To: perlchina@googlegroups.com

Sent: Thursday, July 30, 2009 1:34 AM

Subject: [PerlChina] Re: 请教关于IO::Prompt使用问题

prompt() 加上 -tty 参数,如下：
--------
prompt ("print paswd: ", -tty ) or die "Error: $!";

2009/7/29 linhy <linhy0120@gmail.com>

大家好。我学习perl没有多久。我在使用模块"IO::Prompt"的时候碰到两个对我来说是"未解之谜"的问题（^_^）。请大家指点一下。谢
谢。问题描述如下。
Hello! Everyone. I'm a newbie in perl. I have encountered two problems
that puzzling me. Could you give me some suggestions. Thanks. The
problems I encountered are:

我用的操作系统是Fedor core 10 (linux). Perl 的版本是v5.10.0。
The OS I used is Linux (Fedor core 10). The version of perl is
"v5.10.0"

问题一：不加参数好像正常，但如果加一下参数的话，会出现提示"Can't open add: No such file or
directory at iotry1.pl line 7" 代码和运行结果如下:
Question 1: It seems work normaly without anything except script name,
but warning "Can't open add: No such file or directory at iotry1.pl
line 7" will appear on screen when something following script name.
The code and running resuls are:

======================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry1.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ) or die "Error: $!";
print "You passwd is: '$_'\n";

[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl
print paswd: hello
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl some arguments
Can't open some: No such file or directory at iotry1.pl line 7
[linhy@genome2 BatchPrimer3.extension]$
=======================================================

问题二：在"prompt"中加"-echo => '*' "后，虽然可以工作，但是会给出警告："Use of Uninitialized
value $_ in pattern match (m//) at /usr/local/lib/perl5/sit_perl/
5.10.0/IO/Prompt.pm"代码和结果如下：
Question 2:　When adding option "-echo", it can work, but message "Use
of Uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/sit_perl/5.10.0/IO/Prompt.pm" will appear. The code and running
results are:

===================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry2.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ,
-echo => '*') or die "Error: $!";

print "You passwd is: '$_'\n";

exit ;

[linhy@genome2 BatchPrimer3.extension]$ perl iotry2.pl
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/site_perl/5.10.0/IO/Prompt.pm line 91.
print paswd: *****
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$

====================================================

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: Oops! PerlMonks compromised!

真是广告说的：一切皆有可能
--
blog: http://hi.baidu.com/smallfish_xy

2009/7/30 Qiang (James) <shijialee@gmail.com>

sigh, perlmonks 居然使用明文储存密码....

Qiang

cnhack TNT wrote:
> Hi all,
>
> 今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐
> 号的赶紧换个帐号吧。
> 这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码
> 还是自己小心点，谁知道网站用啥方式存储你的密码？
> 谁也不知道这网站是否足够安全。
>
> Thanks~
>
> >

[PerlChina] Re: Oops! PerlMonks compromised!

sigh, perlmonks 居然使用明文储存密码....

Qiang

cnhack TNT wrote:
> Hi all,
>
> 今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐
> 号的赶紧换个帐号吧。
> 这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码
> 还是自己小心点，谁知道网站用啥方式存储你的密码？
> 谁也不知道这网站是否足够安全。
>
> Thanks~
>
> >

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Oops! PerlMonks compromised!

Hi all,

今早看到， PerlMonks 被黑了，PerlMonks 的密码是明文保存的，所以大家有帐号的赶紧换个帐号吧。
这次事件再次证明了在互联网上晃悠，一定不能啥都用一个密码，关键业务的密码还是自己小心点，谁知道网站用啥方式存储你的密码？
谁也不知道这网站是否足够安全。

Thanks~

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教关于IO::Prompt使用问题

prompt() 加上 -tty 参数,如下：
--------
prompt ("print paswd: ", -tty ) or die "Error: $!";

2009/7/29 linhy <linhy0120@gmail.com>

大家好。我学习perl没有多久。我在使用模块“IO::Prompt"的时候碰到两个对我来说是“未解之谜”的问题（^_^）。请大家指点一下。谢
谢。问题描述如下。
Hello! Everyone. I'm a newbie in perl. I have encountered two problems
that puzzling me. Could you give me some suggestions. Thanks. The
problems I encountered are:

我用的操作系统是Fedor core 10 (linux). Perl 的版本是v5.10.0。
The OS I used is Linux (Fedor core 10). The version of perl is
"v5.10.0"

问题一：不加参数好像正常，但如果加一下参数的话，会出现提示“Can't open add: No such file or
directory at iotry1.pl line 7“ 代码和运行结果如下:
Question 1: It seems work normaly without anything except script name,
but warning “Can't open add: No such file or directory at iotry1.pl
line 7“ will appear on screen when something following script name.
The code and running resuls are:

======================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry1.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ) or die "Error: $!";
print "You passwd is: '$_'\n";

[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl
print paswd: hello
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl some arguments
Can't open some: No such file or directory at iotry1.pl line 7
[linhy@genome2 BatchPrimer3.extension]$
=======================================================

问题二：在"prompt"中加“-echo => '*' "后，虽然可以工作，但是会给出警告：“Use of Uninitialized
value $_ in pattern match (m//) at /usr/local/lib/perl5/sit_perl/
5.10.0/IO/Prompt.pm”代码和结果如下：
Question 2:　When adding option "-echo", it can work, but message "Use
of Uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/sit_perl/5.10.0/IO/Prompt.pm” will appear. The code and running
results are:

===================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry2.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ,
-echo => '*') or die "Error: $!";

print "You passwd is: '$_'\n";

exit ;

[linhy@genome2 BatchPrimer3.extension]$ perl iotry2.pl
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/site_perl/5.10.0/IO/Prompt.pm line 91.
print paswd: *****
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$

====================================================

[PerlChina] 请教关于IO::Prompt使用问题

大家好。我学习perl没有多久。我在使用模块"IO::Prompt"的时候碰到两个对我来说是"未解之谜"的问题（^_^）。请大家指点一下。谢
谢。问题描述如下。
Hello! Everyone. I'm a newbie in perl. I have encountered two problems
that puzzling me. Could you give me some suggestions. Thanks. The
problems I encountered are:

我用的操作系统是Fedor core 10 (linux). Perl 的版本是v5.10.0。
The OS I used is Linux (Fedor core 10). The version of perl is
"v5.10.0"

问题一：不加参数好像正常，但如果加一下参数的话，会出现提示"Can't open add: No such file or
directory at iotry1.pl line 7" 代码和运行结果如下:
Question 1: It seems work normaly without anything except script name,
but warning "Can't open add: No such file or directory at iotry1.pl
line 7" will appear on screen when something following script name.
The code and running resuls are:

======================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry1.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ) or die "Error: $!";
print "You passwd is: '$_'\n";

[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl
print paswd: hello
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$ perl iotry1.pl some arguments
Can't open some: No such file or directory at iotry1.pl line 7
[linhy@genome2 BatchPrimer3.extension]$
=======================================================

问题二：在"prompt"中加"-echo => '*' "后，虽然可以工作，但是会给出警告："Use of Uninitialized
value $_ in pattern match (m//) at /usr/local/lib/perl5/sit_perl/
5.10.0/IO/Prompt.pm"代码和结果如下：
Question 2:　When adding option "-echo", it can work, but message "Use
of Uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/sit_perl/5.10.0/IO/Prompt.pm" will appear. The code and running
results are:

===================================================
[linhy@genome2 BatchPrimer3.extension]$ more iotry2.pl
#!/usr/bin/perl -w
#
use strict;
use warnings;
use IO::Prompt;

prompt ("print paswd: " ,
-echo => '*') or die "Error: $!";

print "You passwd is: '$_'\n";

exit ;

[linhy@genome2 BatchPrimer3.extension]$ perl iotry2.pl
Use of uninitialized value $_ in pattern match (m//) at /usr/local/lib/
perl5/site_perl/5.10.0/IO/Prompt.pm line 91.
print paswd: *****
You passwd is: 'hello'
[linhy@genome2 BatchPrimer3.extension]$

====================================================
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 怎样知道进程号

http://search.cpan.org/~aristotle/Proc-Fork-0.71/lib/Proc/Fork.pm

2009/7/29 Michael Zeng <galaxy2004@gmail.com>

一个脚本里面写：

system( " XXXX " )

怎样知道这个程序的进程号（unix下）？因为我好trace ，可以kill 掉

--
Yours Sincerely
Zeng Hong

[PerlChina] 怎样知道进程号

一个脚本里面写：

system( " XXXX " )

怎样知道这个程序的进程号（unix下）？因为我好trace ，可以kill 掉

--
Yours Sincerely
Zeng Hong

[PerlChina] 请教 Tk 和 threads

问题同 http://www.perlmonks.org/?node_id=783017 一样就直接照搬那人的了
在ChinaUnix.net也有发过帖子不知为何无人回应

无cookie情况下输入网站并点击下载图片下载下来了
但是
windows 对话框 Perl Command Line Interpreter 遇到问题需要关闭。我们对此引起的不便表示抱歉。

perl
显示错误如下：
Attempt to free non-existent shared string '_TK_RESULT_', Perl
interpreter: 0x2e3642c at C:/Perl/lib/Tk.pm line 252.
Attempt to free non-existent shared string '_TK_RESULT_',
Perlinterpreter: 0x2e3642c at C:/Perl/lib/Tk/Widget.pm line 98
duringglobal destruction.
Free to wrong pool 2e33d20 not 284fb0 at C:/Perl/lib/Tk/Widget.pm line
98 during global destruction.

#!/usr/bin/perl
use strict;
use warnings;
use threads;
my $cks;
my $url;
my $filename;
my $cks_enter;
my $url_enter;
my $fnm_enter;

sub dd{
my $thr1 = threads->new(\&d);
$thr1->detach();
}

use Tk;

my $mw = MainWindow->new();
$mw->resizable( 0,0 );
$mw->title("test");

my $frame = $mw->Frame(-borderwidth => 2,-relief => 'groove')->pack();
my $bttn = $mw->Button(-text => "Down",-command => \&dd)->pack(-side
=> 'left');

$frame->Label(-text => 'Cookies:')->pack();
$cks_enter = $frame->Entry(-textvariable => \$cks,-width => 50)->pack
();

$frame->Label(-text => 'URL:')->pack();
$url_enter = $frame->Entry(-textvariable => \$url)->pack(-expand => 1,
-fill => 'x');

$frame->Label(-text => 'Filename:')->pack();
$fnm_enter = $frame->Entry(-textvariable => \$filename)->pack(-expand
=> 1, -fill => 'x');
MainLoop;

sub d {

$cks = $cks_enter->get();
chomp($cks);
$url = $url_enter->get();
chomp($url);
$filename = $fnm_enter->get();
chomp($filename);
use LWP::UserAgent;
my @headers = (
'User-Agent' => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; EN; rv:
1.9.0.11) Gecko/2009060215 Firefox/3.5',
'cookie' => "$cks",
);

my $ua = LWP::UserAgent->new();
my $req = $ua->get($url,@headers);
my $cont = $req->content;
open PIC, ">$filename";
binmode(PIC);
print PIC "$cont\n";
close PIC;
}

疑问在这儿：
1. 此处的 threads 是指生成并维持tk GUI需要一个threads，而下载需要另外一个是么？
2. 如程序中所示，目前也是两个threads么？ gui的这个没有声明但是确实是存在的？
3. 错误信息中提到了共享变量的问题，是指 $cks、$url、$filename、$cks_enter、$url_enter、
$fnm_enter这些变量都需要shared么因为 dd这个线程中和产生的gui中都有用到这些变量或对象？还是说需要shared其他的变
量？
4. Thread:: Queue 此处需要使用么？

非常感谢

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 郑州有开perl大会吗

应该没有，但是最近在筹备Beijing Perl Workshop：http://conference.perlchina.org/
bjpw2009/

On 7月28日, 下午6时20分, 钟声 <gh00920...@gmail.com> wrote:
> 前几天到郑州玩顺便把H3CNE考了。。820分，算过了。
> 弱弱的问一句郑州有perl大会不？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年7月28日星期二

[PerlChina] Re: 请教：如何把变量的字符串当作模块的名字use进来

Thank you very much.

2009/7/28 Chia-liang Kao <chialiang@gmail.com>

require $filename

On 7月28日, 下午5时08分, "arcr. ....." <arcr...@gmail.com> wrote:
> Hi,
> 大家好，我现在有若干的的testcase,都是以模块的形式存在的，主程序要把所有的模块use进来才能调用。
> 我的问题是，如何把这些模块直接通过参数$ARGV[0]这样的参数use到我的主程序来？
>
> 谢谢

回复: [PerlChina] Re: chialiang提仪本月成都perler聚会！

光说可不行啊！得有人组织

大家都把自己的联系邮箱和QQ号码说一下,

然后发给我，我的邮箱123456fuzhong@sohu.com

QQ: 66791009 。在成都的perler还是挺多的。组织好才能确定最后的聚会时间。

或者发给发到Cathy
Email: cathyworking@gmail.com
QQ: 727380625
13881903423

----- 原文 -----

From: James Zheng<jameswork66@gmail.com>
Subject:[PerlChina] Re: chialiang提仪本月成都perler聚会！

yfeng wrote:

哈哈，支持哈。。。具体啥时间呢？

有兴趣的可以发信给

On 7月26日, 上午1时07分, 123456fuzh...@sohu.com wrote:

 今天在邮件列表中看到了chiali...@gmail.com提议本月28号或者29号将在成都聚会！i不知道有人响应没有啊！看来成都还是有不少人在关注perl。有必要聚聚！建议聚会的时候，做一 小段演讲。题目不限，呵呵！促进技术交流！

搜狐"."帐号抢注，立即开始

职场老虎机，幸运成份有多少？

[PerlChina] Re: 如何在Tk写的界面上做一个控制台窗口？

不行啊，tie不是实时的，得之前的进程完成才能将STDOUT输出至Text，而且一旦STDOUT的内容很多时，windows会抱错。

On 7月28日, 下午8时53分, Anthony WU <anthonywu...@gmail.com> wrote:
> 用tie 把 STDOUT 導向至 tk-text
>
> -------- Original Message --------
> Subject: [PerlChina] 如何在Tk写的界面上做一个控制台窗口？
> From: leoyujian <yuj...@fmsh.com.cn>
> To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
> Date: 28/7/2009 17:21
> > RT，
> > 我知道标准输出可以重定向至文件，但能不能重定向至Tk的Text的呢？
>
> --
> Best Regards,
> Anthony WU
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有没有占用内存比较少的 xml 解析模块

是滴，俺分析或者搜索html/xml都是用正则，有规律的话就用sax分析下，速度也很快的哦。dom这个适合点点大比较方便
--
blog: http://hi.baidu.com/smallfish_xy

2009/7/29 Huangj <redspid@163.com>

谢谢，当前问题已经用正则匹配搞定了，不过您的方法还是要试一下。

在2009-07-28，jyf1987 <jyf1987@gmail.com> 写道：
呵呵  只要不用dom模式 就都还行  On 7月27日, 下午4时40分, Huangj <reds...@163.com> wrote: > 今天用 XML::Simple 解析 160M的 xml 文件，跑了3分钟后 Out of memory. > 有没有有没有占用内存比较少的 xml 解析模块   
网易YEAH.NET免费邮箱：您的终身免费邮箱

[PerlChina] Re: 有没有占用内存比较少的 xml 解析模块

谢谢，当前问题已经用正则匹配搞定了，不过您的方法还是要试一下。

在2009-07-28，jyf1987 <jyf1987@gmail.com> 写道：

呵呵  只要不用dom模式 就都还行  On 7月27日, 下午4时40分, Huangj <reds...@163.com> wrote: > 今天用 XML::Simple 解析 160M的 xml 文件，跑了3分钟后 Out of memory. > 有没有有没有占用内存比较少的 xml 解析模块

网易YEAH.NET免费邮箱：您的终身免费邮箱 --~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: chialiang提仪本月成都perler聚会！

yfeng wrote:

哈哈，支持哈。。。具体啥时间呢？

有兴趣的可以发信给

Cathy

Email: cathyworking@gmail.com
QQ: 727380625
13881903423

On 7月26日, 上午1时07分, 123456fuzh...@sohu.com wrote:

    今天在邮件列表中看到了chiali...@gmail.com提议本月28号或者29号将在成都聚会！i不知道有人响应没有啊！看来成都还是有不少人在关注perl。有必要聚聚！建议聚会的时候，做一 小段演讲。题目不限，呵呵！促进技术交流！

[PerlChina] Re: 请教：如何把变量的字符串当作模块的名字use进来

require $filename

On 7月28日, 下午5时08分, "arcr. ....." <arcr...@gmail.com> wrote:
> Hi,
> 大家好，我现在有若干的的testcase,都是以模块的形式存在的，主程序要把所有的模块use进来才能调用。
> 我的问题是，如何把这些模块直接通过参数$ARGV[0]这样的参数use到我的主程序来？
>
> 谢谢
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 如何在Tk写的界面上做一个控制台窗口？

用tie 把 STDOUT 導向至 tk-text

-------- Original Message --------
Subject: [PerlChina] 如何在Tk写的界面上做一个控制台窗口？
From: leoyujian <yujian@fmsh.com.cn>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 28/7/2009 17:21
> RT，
> 我知道标准输出可以重定向至文件，但能不能重定向至Tk的Text的呢？
> >
>

--
Best Regards,
Anthony WU

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 郑州有开perl大会吗

前几天到郑州玩顺便把H3CNE考了。。820分，算过了。
弱弱的问一句郑州有perl大会不？

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] 如何在Tk写的界面上做一个控制台窗口？

RT，
我知道标准输出可以重定向至文件，但能不能重定向至Tk的Text的呢？
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 请教：如何把变量的字符串当作模块的名字use进来

Hi,
大家好，我现在有若干的的testcase,都是以模块的形式存在的，主程序要把所有的模块use进来才能调用。我的问题是，如何把这些模块直接通过参数$ARGV[0]这样的参数use到我的主程序来？

谢谢
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有没有占用内存比较少的 xml 解析模块

呵呵只要不用dom模式就都还行

On 7月27日, 下午4时40分, Huangj <reds...@163.com> wrote:
> 今天用 XML::Simple 解析 160M的 xml 文件，跑了3分钟后 Out of memory.
> 有没有有没有占用内存比较少的 xml 解析模块
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

2009年7月27日星期一

[PerlChina] Re: 在已经存在的服务器上安装新的perl

呵呵，可以试试 local::lib

http://search.cpan.org/~apeiron/local-lib-1.004003/lib/local/lib.pm

  use FindBin;
  use local::lib "$FindBin::Bin/../support";
 

这样的方式也挺好

2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com>

大家好，

请教一下，如果在一台服务器（Sun）上已经存在perl，并且有了一些相关的应用。

现在我想再装个自己用的perl，目的是不能影响之前的应用，互不冲突。怎么做最好？

是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由root安装？之后环境变量需要怎样的修改？

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

你不能寫一個loop來定時做？
你在主機上運行遠端控制基本上就如對一張圖操作一樣，而且你根本不能取得遠端
控制中視窗窗口的座標路徑之類

-------- Original Message -------
Subject: [PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互
From: tq <hama.tang@gmail.com>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 28/7/2009 0:54
> 这个方法也想过, 但是主机没有权限去建立这个sheduled task.
> 最后没有办法, 可以尝试去申请权限:(
> 还是想从本级入手.
> 你可以看看我现在的代码,可惜不能用.如果改成$Rdc->Launch(), 倒是可以开启RDC.但是要控制RDC的输入,输出还没有想到方法.
> >
>

--
Best Regards,
Anthony WU

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

这个方法也想过, 但是主机没有权限去建立这个sheduled task.
最后没有办法, 可以尝试去申请权限:(
还是想从本级入手.
你可以看看我现在的代码,可惜不能用.如果改成$Rdc->Launch(), 倒是可以开启RDC.但是要控制RDC的输入,输出还没有想到方法.
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

现在写了语句如下:
use Win32::OLE ;
my $Class = "MsTscAx.MsTscAx.3";
$Rdc = new Win32::OLE( $Class);

$Rdc->{Server} = "server";
$Rdc->{Domain} ="domain";
$Rdc->{UserName} = "name";
$Rdc->{AdvancedSettings}->{ClearTextPassword} = "pass word";
$Rdc->{ColorDepth} = 16;
$Rdc->{DesktopWidth} = 1024;
$Rdc->{DesktopHeight} = 768;
$Rdc->{SecuredSettings}->{FullScreen} = 1;

$Rdc->Connect();
执行了Connect后没有任何反应:(. 而且在OLE 返回$Rdc的中没有看见这个方法, 但是在MSDN
IMsRdpClientAdvancedSettings 的说明中,connect是建立连接的命令.
来帮我看看问题哈.
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: chialiang提仪本月成都perler聚会！

哈哈，支持哈。。。具体啥时间呢？

On 7月26日, 上午1时07分, 123456fuzh...@sohu.com wrote:
> 今天在邮件列表中看到了chiali...@gmail.com提议本月28号或者29号将在成都聚会！i不知道有人响应没有啊！看来成都还是有不少人在关注perl。有必要聚聚！建议聚会的时候，做一小段演讲。题目不限，呵呵！促进技术交流！
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

可否轉個方法，使用在主機上進行scheduled task，關聯到其它機器,取的運行的
log file, 處理後返回關鍵數據再MSN/email/FTP到本地PC?

-------- Original Message --------
Subject: [PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互
From: tq <hama.tang@gmail.com>
To: PerlChina Mongers 讨论组 <perlchina@googlegroups.com>
Date: 27/7/2009 21:53
> 在主机上运行perl 的script: 通过主机关联到其它机器,取的运行的log file, 处理后返回关键数据
> 公司主机是通过RTC进行访问的, 没有权限在上面建立服务.
> 现在想自动收集数据,通过本地pc 运行scheduled task 调用RTC 到主机上进行操作.
> 好像你的方法不能实现啊.
>
> 今天看了msdn 关于Remote Desktop ActiveX Interface, 还没有运行成功. 大家来指教一下.
> >
>

--
Best Regards,
Anthony WU

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

在主机上运行perl 的script: 通过主机关联到其它机器,取的运行的log file, 处理后返回关键数据
公司主机是通过RTC进行访问的, 没有权限在上面建立服务.
现在想自动收集数据,通过本地pc 运行scheduled task 调用RTC 到主机上进行操作.
好像你的方法不能实现啊.

今天看了msdn 关于Remote Desktop ActiveX Interface, 还没有运行成功. 大家来指教一下.
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: chialiang提仪本月成都perler聚会！

tq wrote:
> 先发出来时间和地点哈,聚聚是好事
>
成都的我肯定可以参加。

> >
>

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 有没有占用内存比较少的 xml 解析模块

找找SAX模块，看到一个文章这样写的：

$XML::Simple::PREFERRED_PARSER="XML::SAX::Expat";

--
blog: http://hi.baidu.com/smallfish_xy

2009/7/27 Huangj <redspid@163.com>

今天用 XML::Simple 解析 160M的 xml 文件，跑了3分钟后 Out of memory.
有没有有没有占用内存比较少的 xml 解析模块

网易YEAH.NET免费邮箱：您的终身免费邮箱

[PerlChina] 有没有占用内存比较少的 xml 解析模块

今天用 XML::Simple 解析 160M的 xml 文件，跑了3分钟后 Out of memory.
有没有有没有占用内存比较少的 xml 解析模块

2009年7月26日星期日

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

楼主提供的信息太少了，数据是什么样子，怎么产生的，数据是否能用脚本读进？
如果你的流程是: 用RTC登录远程机器->运行某个脚本并取得脚本的输出数据->送回本地（复制？粘贴？）
那大可不必复杂化，简单一点弄个 nc 绑定cmd然后反向连到你本地机器上，你本地在这个cmd里运行远程机器上的脚本再把输出收集起来便可。
或者你在远程机器上架个 ssh server，再或者起个 web，写个脚本定时把数据写到某个web目录里，你本地去这个web目录拉数据

以上完全YY，一切看楼主到底是什么详细情况。

2009/7/27 tq <hama.tang@gmail.com>

现在手动操作只能是从ＲＴＣ进去的.做这个自动化的时候,还是想利用ＲＴＣ.
我在看ｗｉｎ３２::ＯＬＥ能不能与ＲＴＣ进行交互.有经验的同学分享一下哈

[PerlChina] Re: chialiang提仪本月成都perler聚会！

建议楼主请吃饭

[PerlChina] Re: perl如何与xp的 remote desktop connection 进行交互

现在手动操作只能是从ＲＴＣ进去的.做这个自动化的时候,还是想利用ＲＴＣ.
我在看ｗｉｎ３２::ＯＬＥ能不能与ＲＴＣ进行交互.有经验的同学分享一下哈
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: chialiang提仪本月成都perler聚会！

先发出来时间和地点哈,聚聚是好事
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 今年的 Beijing Perl Workshop 将于 9月19 号星期六举行

The community is not so that active.

2009/7/23 joe jiang <lamp.purl@gmail.com>

Let's make wish that shanghai will get interested in such interesting language,
And let's save energy for that day :)

2009/7/23 Michael Zeng <galaxy2004@gmail.com>

why there is no such event in shanghai ?

2009/7/23 Qiang (James) <shijialee@gmail.com>

不管你是否能够参加，都建议阅读一下来支持这次大会。

这次大会网址 http://conference.perlchina.org/bjpw2009/

########## 首先有三件重要的事情需要大家共同努力：

1. 提交演讲提议，欢迎关于 Perl 或是可以适用于 Perl 的技术和非技术主题。
目前你只需要提交一个简短的提纲即可。

2. 请把这次大会在其他开源社区广而告之，大家具体可以转帖这个新闻稿：
http://conference.perlchina.org/bjpw2009/news/438

3. 大会的成功举行需要一些资金主要用于场地租赁及T恤衫制作。因为大会完全免
费，所以请大家帮助我们寻找大会的赞助商来实现所需。关于大会赞助的具体内容
可以阅读 http://conference.perlchina.org/bjpw2009/sponsorship.html

########## 和去年的 Perl 大会相同：

这次的会议时间全天，完全免费，欢迎对 Perl 等开源技术感兴趣的朋友报名参
加。请在大会网站注册新用户（参加过 2008 年大会朋友无需再注册）然后登记大会。

今年大会安排在日本东京的 YAPC::Asia 一星期后举行，我们期望有更多国际有名
的 Perl 黑客参加，请大家不要错过这个学习交流机会。

大会将有很多 Perl 初学者和普通使用者参加，所以我们欢迎任何与 Perl 有关的
技术和非技术主题，我们也同时欢迎非 Perl 技术但也可以应用于 Perl 中的主
题。接受的主题时间为 20 和 40 分钟（如果您有特别的时间需要，我们可以另行
安排）。如果您有多个演讲提议，我们建议您多多提交来提高演讲机率. 我们同时
接受闪电演讲提议，闪电演讲提议没有提交时间限制。

大会演讲提议(注意只是提议)的截止日期是8月8号星期六。

谢谢，

btw, 感谢 cnhacktnt 对这次大会 logo 所做的改进。

Qiang

--
Yours Sincerely
Zeng Hong

--
Regards.

-HackerGene.

--~--~---------~--~----~------------~-------~--~----~
HomePage: http://www.hackergene.com
Projects: http://bsd.org.cn
http://netbsd.org.cn
--~--~---------~--~----~------------~-------~--~----~

We advocate the philosophy which lead us to explore the world that is "Free , Opensource and Share".
---Allhonker Network Information Security Team.

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 08:35 没有评论:

[PerlChina] Re: chialiang提仪本月成都perler聚会！

我算一个，多多学习！

[PerlChina] Re: learning perl 5th cover translation

第5版是针对5.10的吧，不是有了英文版了么

2009/7/24 Gary Jsz <gary.jsz@gmail.com>

我都不知道第五版已经出来了，呵呵
觉得第四版已经不错了，已经满足基础学习需求了呢

2009/7/24 junxiang <lujx2004@gmail.com>

顶一下！希望有全部翻译。

--
gary.jsz@gmail.com

--
Yours Sincerely
Zeng Hong

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---

发帖者 lazayworm 时间： 06:14 没有评论:

订阅：博文 (Atom)

搜狐"."帐号抢注，立即开始

抽奖换礼，好运有你！

2009年8月1日星期六

2009年7月30日星期四

2009年7月29日星期三

2009年7月28日星期二

2009年7月27日星期一

2009年7月26日星期日

订阅

博客归档