From cuiyuming at gmail.com Sun Jun 1 22:31:17 2008 From: cuiyuming at gmail.com (cui robin) Date: Mon, 2 Jun 2008 13:31:17 +0800 Subject: [PerlChina] Strange Problem: gb2312 showed incorrect in mod_perl, but correct in developer server[catalyst build-in server] Message-ID: <1331ce590806012231y51a0810sea080650bdaca3a4@mail.gmail.com> Hi, When a page loaded in firefox, then it will send a ajax request to get data in json format. Some gb2312 words is in the json data. When catalyst is started by /home/robin/CBS/script/cbs_server.pl, the data got by client is same as the data i print on the screen by $c->log->debug(). It's showed corrected in firefox client or ie client. But when catalyst is running by apache mod_perl, the data got by client is different from the data i print on the screen by $c->log->debug().It's showed incorrected. A chinese world in gb2312 charset have 2 bytes. what I found in the client is that： 2 bytes of a chinese word was splited, and a octal byte \303 or \302 was added before every byte. So showed incorrect in client. Anyone meet the same problem when using mod_perl? I use standard JSON module [use JSON;] from cpan,version is 2.07. code like below: my $json = new JSON; $json->canonical(1); my $response = $json->encode($var); But i think the problem is nothing to do with JSON, for some points like below: 1. The problem will not occur when I use catalyst's built-in server 2. After JSON module convert a hash to JSON data, I use $c->log->debug output to screen, I saw it was correct. I think the problem occur when apache (mod_perl) send data to client. the data was modified. But I don't kown why? Some code like below: my $jsResponse = $ajaxRequest->{response} . "\n$callback_function"; $c->log->debug("JS Response:\n$jsResponse"); # the showed on the screen is correct; $c->response->content_type('text/html; charset=GB2312'); $c->response->body($jsResponse); The mod_perl,apache,perl version like below: [Mon Jun 02 12:28:31 2008] [notice] Apache/2.0.55 (Unix) PHP/5.2.3 mod_perl/2.0.3 Perl/v5.8.8 configured -- resuming normal operations Any other solution? Thanks！ Robincui -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080602/549ed2f7/attachment.html From hylinux at gmail.com Tue Jun 3 02:06:42 2008 From: hylinux at gmail.com (Mike.G) Date: Tue, 3 Jun 2008 17:06:42 +0800 Subject: [PerlChina] =?gb2312?b?yc+6o7Cjya3V3LXEcGVybLXEuaTX97v6u+E=?= Message-ID: <74646cb40806030206h3df8d866ie5d96c2d7b8b2c14@mail.gmail.com> 有在上海找perl方面的工作机会的人加这个msn： shiling_hunter at hotmail.com 说是埃森哲外包到ebay去的。工作地点在张江。 工资问题大家自己谈。 -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080603/4f9bf0a7/attachment.html From gary.jsz at gmail.com Wed Jun 4 20:11:09 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 11:11:09 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zHBlcmwgY2dp0rPD5sjnus7P1Mq+bHPQxc+i?= References: Message-ID: <200806051111065626409@gmail.com> 我的代码如下： #!/usr/bin/perl -w # use strict; use utf8; #use CGI qw/:standard/; use CGI qw/:all/; print header, start_html("Mailing list manager system page"), h1('Maillist管理系统 '), start_form, "What are you doing?", popup_menu(-name=>'choose', -values=>[qw(select create delete modify)]),p, submit, end_form, hr; if(param()){ if (em(param('choose')) =~ /select/){ system "date"; print `ls -l \$HOME`; ＃system "ls -l \$HOME" } if (em(param('choose')) =~ /create/){ system "date -u"; } } 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l \$HOME"也不能打印，还希望各位老师能指教，谢谢！ Gary.jsz -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment.html From gary.jsz at gmail.com Wed Jun 4 20:11:09 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 11:11:09 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zHBlcmwgY2dp0rPD5sjnus7P1Mq+bHPQxc+i?= References: Message-ID: <200806051111065626409@gmail.com> 我的代码如下： #!/usr/bin/perl -w # use strict; use utf8; #use CGI qw/:standard/; use CGI qw/:all/; print header, start_html("Mailing list manager system page"), h1('Maillist管理系统 '), start_form, "What are you doing?", popup_menu(-name=>'choose', -values=>[qw(select create delete modify)]),p, submit, end_form, hr; if(param()){ if (em(param('choose')) =~ /select/){ system "date"; print `ls -l \$HOME`; ＃system "ls -l \$HOME" } if (em(param('choose')) =~ /create/){ system "date -u"; } } 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l \$HOME"也不能打印，还希望各位老师能指教，谢谢！ Gary.jsz -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0001.html From ximiff at gmail.com Wed Jun 4 20:20:16 2008 From: ximiff at gmail.com (Yisu Dong) Date: Thu, 5 Jun 2008 11:20:16 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zHBlcmwgY2dp0rPD5sjnus7P1Mq+bHPQxc+i?= In-Reply-To: <200806051111065626409@gmail.com> References: <200806051111065626409@gmail.com> Message-ID: 我的没有问题。可以打印 2008/6/5 gary.jsz : > 我的代码如下： > #!/usr/bin/perl -w > # > use strict; > use utf8; > #use CGI qw/:standard/; > use CGI qw/:all/; > print header, > start_html("Mailing list manager system page"), > h1('Maillist管理系统 '), > start_form, > "What are you doing?", > popup_menu(-name=>'choose', > -values=>[qw(select create delete modify)]),p, > submit, > end_form, > hr; > if(param()){ > if (em(param('choose')) =~ /select/){ > system "date"; > print `ls -l \$HOME`; > ＃system "ls -l \$HOME" > } > if (em(param('choose')) =~ /create/){ > system "date -u"; > > } > } > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > ------------------------------ > Gary.jsz > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment.html From truncatei at gmail.com Wed Jun 4 20:40:08 2008 From: truncatei at gmail.com (truncatei) Date: Thu, 5 Jun 2008 11:40:08 +0800 Subject: [PerlChina] =?utf-8?b?6K+35pWZcGVybCBjZ2npobXpnaLlpoLkvZXmmL4=?= =?utf-8?b?56S6bHPkv6Hmga8=?= In-Reply-To: <200806051111065626409@gmail.com> References: <200806051111065626409@gmail.com> Message-ID: 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 2008/6/5 gary.jsz : > 我的代码如下： > #!/usr/bin/perl -w > # > use strict; > use utf8; > #use CGI qw/:standard/; > use CGI qw/:all/; > print header, > start_html("Mailing list manager system page"), > h1('Maillist管理系统 '), > start_form, > "What are you doing?", > popup_menu(-name=>'choose', > -values=>[qw(select create delete modify)]),p, > submit, > end_form, > hr; > if(param()){ > if (em(param('choose')) =~ /select/){ > system "date"; > print `ls -l \$HOME`; > ＃system "ls -l \$HOME" > } > if (em(param('choose')) =~ /create/){ > system "date -u"; > > } > } > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > ________________________________ > Gary.jsz > From truncatei at gmail.com Wed Jun 4 20:41:18 2008 From: truncatei at gmail.com (truncatei) Date: Thu, 5 Jun 2008 11:41:18 +0800 Subject: [PerlChina] =?utf-8?b?6K+35pWZcGVybCBjZ2npobXpnaLlpoLkvZXmmL4=?= =?utf-8?b?56S6bHPkv6Hmga8=?= In-Reply-To: References: <200806051111065626409@gmail.com> Message-ID: 可以向脚本中加入这些命令 whoami id 2008/6/5 truncatei : > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > From lamp.purl at gmail.com Wed Jun 4 20:45:47 2008 From: lamp.purl at gmail.com (purl lamp) Date: Thu, 5 Jun 2008 11:45:47 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zHBlcmwgY2dp0rPD5sjnus7P1Mq+bHPQxc+i?= In-Reply-To: <200806051111065626409@gmail.com> References: <200806051111065626409@gmail.com> Message-ID: <367185060806042045pc9d3f43jafade30e09ce5cca@mail.gmail.com> maybe the problem is about $HOME whose home? shall perl work as bash (read the .bashrc to get it)? 2008/6/5 gary.jsz : > 我的代码如下： > #!/usr/bin/perl -w > # > use strict; > use utf8; > #use CGI qw/:standard/; > use CGI qw/:all/; > print header, > start_html("Mailing list manager system page"), > h1('Maillist管理系统 '), > start_form, > "What are you doing?", > popup_menu(-name=>'choose', > -values=>[qw(select create delete modify)]),p, > submit, > end_form, > hr; > if(param()){ > if (em(param('choose')) =~ /select/){ > system "date"; > print `ls -l \$HOME`; > ＃system "ls -l \$HOME" > } > if (em(param('choose')) =~ /create/){ > system "date -u"; > > } > } > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > ------------------------------ > Gary.jsz > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment.html From gary.jsz at gmail.com Wed Jun 4 20:52:49 2008 From: gary.jsz at gmail.com (gary jsz) Date: Thu, 5 Jun 2008 11:52:49 +0800 Subject: [PerlChina] China-pm Digest, Vol 38, Issue 3 In-Reply-To: References: Message-ID: 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 请问还需要哪里设置嘛？ 2008/6/5 : > Send China-pm mailing list submissions to > china-pm at pm.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://mail.pm.org/mailman/listinfo/china-pm > or, via email, send a message with subject or body 'help' to > china-pm-request at pm.org > > You can reach the person managing the list at > china-pm-owner at pm.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of China-pm digest..." > > > Today's Topics: > > 1. 请教perl cgi页面如何显示ls信息 (gary.jsz) > 2. 请教perl cgi页面如何显示ls信息 (gary.jsz) > 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong) > 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 5 Jun 2008 11:11:09 +0800 > From: "gary.jsz" > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: "china-pm at pm.org" , "china-pm at pm.org" > > Message-ID: <200806051111065626409 at gmail.com> > Content-Type: text/plain; charset="gb2312" > > 我的代码如下： > #!/usr/bin/perl -w > # > use strict; > use utf8; > #use CGI qw/:standard/; > use CGI qw/:all/; > print header, > start_html("Mailing list manager system page"), > h1('Maillist管理系统 '), > start_form, > "What are you doing?", > popup_menu(-name=>'choose', > -values=>[qw(select create delete modify)]),p, > submit, > end_form, > hr; > if(param()){ > if (em(param('choose')) =~ /select/){ > system "date"; > print `ls -l \$HOME`; > ＃system "ls -l \$HOME" > } > if (em(param('choose')) =~ /create/){ > system "date -u"; > > } > } > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > Gary.jsz > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html > > ------------------------------ > > Message: 2 > Date: Thu, 5 Jun 2008 11:11:09 +0800 > From: "gary.jsz" > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: "china-pm at pm.org" , "china-pm at pm.org" > > Message-ID: <200806051111065626409 at gmail.com> > Content-Type: text/plain; charset="gb2312" > > 我的代码如下： > #!/usr/bin/perl -w > # > use strict; > use utf8; > #use CGI qw/:standard/; > use CGI qw/:all/; > print header, > start_html("Mailing list manager system page"), > h1('Maillist管理系统 '), > start_form, > "What are you doing?", > popup_menu(-name=>'choose', > -values=>[qw(select create delete modify)]),p, > submit, > end_form, > hr; > if(param()){ > if (em(param('choose')) =~ /select/){ > system "date"; > print `ls -l \$HOME`; > ＃system "ls -l \$HOME" > } > if (em(param('choose')) =~ /create/){ > system "date -u"; > > } > } > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > Gary.jsz > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html > > ------------------------------ > > Message: 3 > Date: Thu, 5 Jun 2008 11:20:16 +0800 > From: "Yisu Dong" > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset="gb2312" > > 我的没有问题。可以打印 > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > ------------------------------ > > Gary.jsz > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html > > ------------------------------ > > Message: 4 > Date: Thu, 5 Jun 2008 11:40:08 +0800 > From: truncatei > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset=UTF-8 > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > 2008/6/5 gary.jsz : > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > ________________________________ > > Gary.jsz > > > > ------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > End of China-pm Digest, Vol 38, Issue 3 > *************************************** > -- gary gary.jsz at gmail.com -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment-0001.html From truncatei at gmail.com Wed Jun 4 20:57:23 2008 From: truncatei at gmail.com (truncatei) Date: Thu, 5 Jun 2008 11:57:23 +0800 Subject: [PerlChina] China-pm Digest, Vol 38, Issue 3 In-Reply-To: References: Message-ID: 你理解错我们的意思了 文件的Owner和谁运行是不一样的，它是使用当前运行用户的env，而不管owner是谁 你可以加个 id 或者 whoami 的系统调用在程序里看看CGI到底是以哪个用户身份运行。 2008/6/5 gary jsz : > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > From gary.jsz at gmail.com Wed Jun 4 22:09:34 2008 From: gary.jsz at gmail.com (gary jsz) Date: Thu, 5 Jun 2008 13:09:34 +0800 Subject: [PerlChina] China-pm Digest, Vol 38, Issue 4 In-Reply-To: References: Message-ID: HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。 2008/6/5 : > Send China-pm mailing list submissions to > china-pm at pm.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://mail.pm.org/mailman/listinfo/china-pm > or, via email, send a message with subject or body 'help' to > china-pm-request at pm.org > > You can reach the person managing the list at > china-pm-owner at pm.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of China-pm digest..." > > > Today's Topics: > > 1. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > 2. Re: 请教perl cgi页面如何显示ls信息 (purl lamp) > 3. Re: China-pm Digest, Vol 38, Issue 3 (gary jsz) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 5 Jun 2008 11:41:18 +0800 > From: truncatei > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset=UTF-8 > > 可以向脚本中加入这些命令 > whoami > id > > > 2008/6/5 truncatei : > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > > > ------------------------------ > > Message: 2 > Date: Thu, 5 Jun 2008 11:45:47 +0800 > From: "purl lamp" > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > <367185060806042045pc9d3f43jafade30e09ce5cca at mail.gmail.com> > Content-Type: text/plain; charset="gb2312" > > maybe the problem is about $HOME > whose home? shall perl work as bash (read the .bashrc to get it)? > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > ------------------------------ > > Gary.jsz > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html > > ------------------------------ > > Message: 3 > Date: Thu, 5 Jun 2008 11:52:49 +0800 > From: "gary jsz" > Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset="gb2312" > > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > > 2008/6/5 : > > > Send China-pm mailing list submissions to > > china-pm at pm.org > > > > To subscribe or unsubscribe via the World Wide Web, visit > > http://mail.pm.org/mailman/listinfo/china-pm > > or, via email, send a message with subject or body 'help' to > > china-pm-request at pm.org > > > > You can reach the person managing the list at > > china-pm-owner at pm.org > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of China-pm digest..." > > > > > > Today's Topics: > > > > 1. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 2. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong) > > 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > > > > > > ---------------------------------------------------------------------- > > > > Message: 1 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html > > > > ------------------------------ > > > > Message: 2 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html > > > > ------------------------------ > > > > Message: 3 > > Date: Thu, 5 Jun 2008 11:20:16 +0800 > > From: "Yisu Dong" > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset="gb2312" > > > > 我的没有问题。可以打印 > > > > 2008/6/5 gary.jsz : > > > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ------------------------------ > > > Gary.jsz > > > > > > > > > _______________________________________________ > > > China-pm mailing list > > > China-pm at pm.org > > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html > > > > ------------------------------ > > > > Message: 4 > > Date: Thu, 5 Jun 2008 11:40:08 +0800 > > From: truncatei > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset=UTF-8 > > > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ________________________________ > > > Gary.jsz > > > > > > > ------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > End of China-pm Digest, Vol 38, Issue 3 > > *************************************** > > > > > > -- > gary > gary.jsz at gmail.com > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html > > ------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > End of China-pm Digest, Vol 38, Issue 4 > *************************************** > -- gary gary.jsz at gmail.com -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/7df7fdb4/attachment-0001.html From gary.jsz at gmail.com Wed Jun 4 22:34:37 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 13:34:37 +0800 Subject: [PerlChina] China-pm_Digest,_Vol_38,_Issue_5 References: Message-ID: <200806051334339845145@gmail.com> 现在又来一个问题。 因为http的执行者是apache，那么，我怎么成切换高级用户的权限呢？ Gary.jsz 发件人： china-pm-request at pm.org 发送时间： 2008-06-05 13:13:44 收件人： china-pm at pm.org 抄送： 主题： China-pm_Digest,_Vol_38,_Issue_5 Send China-pm mailing list submissions to china-pm at pm.org To subscribe or unsubscribe via the World Wide Web, visit http://mail.pm.org/mailman/listinfo/china-pm or, via email, send a message with subject or body 'help' to china-pm-request at pm.org You can reach the person managing the list at china-pm-owner at pm.org When replying, please edit your Subject line so it is more specific than "Re: Contents of China-pm digest..." Today's Topics: 1. Re: China-pm Digest, Vol 38, Issue 3 (truncatei) 2. Re: China-pm Digest, Vol 38, Issue 4 (gary jsz) ---------------------------------------------------------------------- Message: 1 Date: Thu, 5 Jun 2008 11:57:23 +0800 From: truncatei Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3 To: china-pm at pm.org Message-ID: Content-Type: text/plain; charset=UTF-8 你理解错我们的意思了 文件的Owner和谁运行是不一样的，它是使用当前运行用户的env，而不管owner是谁 你可以加个 id 或者 whoami 的系统调用在程序里看看CGI到底是以哪个用户身份运行。 2008/6/5 gary jsz : > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > ------------------------------ Message: 2 Date: Thu, 5 Jun 2008 13:09:34 +0800 From: "gary jsz" Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 4 To: china-pm at pm.org Message-ID: Content-Type: text/plain; charset="gb2312" HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。 2008/6/5 : > Send China-pm mailing list submissions to > china-pm at pm.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://mail.pm.org/mailman/listinfo/china-pm > or, via email, send a message with subject or body 'help' to > china-pm-request at pm.org > > You can reach the person managing the list at > china-pm-owner at pm.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of China-pm digest..." > > > Today's Topics: > > 1. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > 2. Re: 请教perl cgi页面如何显示ls信息 (purl lamp) > 3. Re: China-pm Digest, Vol 38, Issue 3 (gary jsz) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 5 Jun 2008 11:41:18 +0800 > From: truncatei > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset=UTF-8 > > 可以向脚本中加入这些命令 > whoami > id > > > 2008/6/5 truncatei : > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > > > ------------------------------ > > Message: 2 > Date: Thu, 5 Jun 2008 11:45:47 +0800 > From: "purl lamp" > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > <367185060806042045pc9d3f43jafade30e09ce5cca at mail.gmail.com> > Content-Type: text/plain; charset="gb2312" > > maybe the problem is about $HOME > whose home? shall perl work as bash (read the .bashrc to get it)? > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > ------------------------------ > > Gary.jsz > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html > > ------------------------------ > > Message: 3 > Date: Thu, 5 Jun 2008 11:52:49 +0800 > From: "gary jsz" > Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset="gb2312" > > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > > 2008/6/5 : > > > Send China-pm mailing list submissions to > > china-pm at pm.org > > > > To subscribe or unsubscribe via the World Wide Web, visit > > http://mail.pm.org/mailman/listinfo/china-pm > > or, via email, send a message with subject or body 'help' to > > china-pm-request at pm.org > > > > You can reach the person managing the list at > > china-pm-owner at pm.org > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of China-pm digest..." > > > > > > Today's Topics: > > > > 1. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 2. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong) > > 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > > > > > > ---------------------------------------------------------------------- > > > > Message: 1 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html > > > > ------------------------------ > > > > Message: 2 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html > > > > ------------------------------ > > > > Message: 3 > > Date: Thu, 5 Jun 2008 11:20:16 +0800 > > From: "Yisu Dong" > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset="gb2312" > > > > 我的没有问题。可以打印 > > > > 2008/6/5 gary.jsz : > > > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ------------------------------ > > > Gary.jsz > > > > > > > > > _______________________________________________ > > > China-pm mailing list > > > China-pm at pm.org > > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html > > > > ------------------------------ > > > > Message: 4 > > Date: Thu, 5 Jun 2008 11:40:08 +0800 > > From: truncatei > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset=UTF-8 > > > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ________________________________ > > > Gary.jsz > > > > > > > ------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > End of China-pm Digest, Vol 38, Issue 3 > > *************************************** > > > > > > -- > gary > gary.jsz at gmail.com > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html > > ------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > End of China-pm Digest, Vol 38, Issue 4 > *************************************** > -- gary gary.jsz at gmail.com -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/7df7fdb4/attachment.html ------------------------------ _______________________________________________ China-pm mailing list China-pm at pm.org http://mail.pm.org/mailman/listinfo/china-pm End of China-pm Digest, Vol 38, Issue 5 *************************************** -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/fc676258/attachment-0002.html From gary.jsz at gmail.com Wed Jun 4 22:34:37 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 13:34:37 +0800 Subject: [PerlChina] China-pm_Digest,_Vol_38,_Issue_5 References: Message-ID: <200806051334339845145@gmail.com> 现在又来一个问题。 因为http的执行者是apache，那么，我怎么成切换高级用户的权限呢？ Gary.jsz 发件人： china-pm-request at pm.org 发送时间： 2008-06-05 13:13:44 收件人： china-pm at pm.org 抄送： 主题： China-pm_Digest,_Vol_38,_Issue_5 Send China-pm mailing list submissions to china-pm at pm.org To subscribe or unsubscribe via the World Wide Web, visit http://mail.pm.org/mailman/listinfo/china-pm or, via email, send a message with subject or body 'help' to china-pm-request at pm.org You can reach the person managing the list at china-pm-owner at pm.org When replying, please edit your Subject line so it is more specific than "Re: Contents of China-pm digest..." Today's Topics: 1. Re: China-pm Digest, Vol 38, Issue 3 (truncatei) 2. Re: China-pm Digest, Vol 38, Issue 4 (gary jsz) ---------------------------------------------------------------------- Message: 1 Date: Thu, 5 Jun 2008 11:57:23 +0800 From: truncatei Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3 To: china-pm at pm.org Message-ID: Content-Type: text/plain; charset=UTF-8 你理解错我们的意思了 文件的Owner和谁运行是不一样的，它是使用当前运行用户的env，而不管owner是谁 你可以加个 id 或者 whoami 的系统调用在程序里看看CGI到底是以哪个用户身份运行。 2008/6/5 gary jsz : > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > ------------------------------ Message: 2 Date: Thu, 5 Jun 2008 13:09:34 +0800 From: "gary jsz" Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 4 To: china-pm at pm.org Message-ID: Content-Type: text/plain; charset="gb2312" HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。 2008/6/5 : > Send China-pm mailing list submissions to > china-pm at pm.org > > To subscribe or unsubscribe via the World Wide Web, visit > http://mail.pm.org/mailman/listinfo/china-pm > or, via email, send a message with subject or body 'help' to > china-pm-request at pm.org > > You can reach the person managing the list at > china-pm-owner at pm.org > > When replying, please edit your Subject line so it is more specific > than "Re: Contents of China-pm digest..." > > > Today's Topics: > > 1. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > 2. Re: 请教perl cgi页面如何显示ls信息 (purl lamp) > 3. Re: China-pm Digest, Vol 38, Issue 3 (gary jsz) > > > ---------------------------------------------------------------------- > > Message: 1 > Date: Thu, 5 Jun 2008 11:41:18 +0800 > From: truncatei > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset=UTF-8 > > 可以向脚本中加入这些命令 > whoami > id > > > 2008/6/5 truncatei : > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > > > ------------------------------ > > Message: 2 > Date: Thu, 5 Jun 2008 11:45:47 +0800 > From: "purl lamp" > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > To: china-pm at pm.org > Message-ID: > <367185060806042045pc9d3f43jafade30e09ce5cca at mail.gmail.com> > Content-Type: text/plain; charset="gb2312" > > maybe the problem is about $HOME > whose home? shall perl work as bash (read the .bashrc to get it)? > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > ------------------------------ > > Gary.jsz > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/06857eb9/attachment-0001.html > > ------------------------------ > > Message: 3 > Date: Thu, 5 Jun 2008 11:52:49 +0800 > From: "gary jsz" > Subject: Re: [PerlChina] China-pm Digest, Vol 38, Issue 3 > To: china-pm at pm.org > Message-ID: > > Content-Type: text/plain; charset="gb2312" > > 这个文件的所属者为root，而/bin/ls这个文件也是所有用户都可以运行的。 > > 请问还需要哪里设置嘛？ > > 2008/6/5 : > > > Send China-pm mailing list submissions to > > china-pm at pm.org > > > > To subscribe or unsubscribe via the World Wide Web, visit > > http://mail.pm.org/mailman/listinfo/china-pm > > or, via email, send a message with subject or body 'help' to > > china-pm-request at pm.org > > > > You can reach the person managing the list at > > china-pm-owner at pm.org > > > > When replying, please edit your Subject line so it is more specific > > than "Re: Contents of China-pm digest..." > > > > > > Today's Topics: > > > > 1. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 2. 请教perl cgi页面如何显示ls信息 (gary.jsz) > > 3. Re: 请教perl cgi页面如何显示ls信息 (Yisu Dong) > > 4. Re: 请教perl cgi页面如何显示ls信息 (truncatei) > > > > > > ---------------------------------------------------------------------- > > > > Message: 1 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0002.html > > > > ------------------------------ > > > > Message: 2 > > Date: Thu, 5 Jun 2008 11:11:09 +0800 > > From: "gary.jsz" > > Subject: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: "china-pm at pm.org" , "china-pm at pm.org" > > > > Message-ID: <200806051111065626409 at gmail.com> > > Content-Type: text/plain; charset="gb2312" > > > > 我的代码如下： > > #!/usr/bin/perl -w > > # > > use strict; > > use utf8; > > #use CGI qw/:standard/; > > use CGI qw/:all/; > > print header, > > start_html("Mailing list manager system page"), > > h1('Maillist管理系统 '), > > start_form, > > "What are you doing?", > > popup_menu(-name=>'choose', > > -values=>[qw(select create delete modify)]),p, > > submit, > > end_form, > > hr; > > if(param()){ > > if (em(param('choose')) =~ /select/){ > > system "date"; > > print `ls -l \$HOME`; > > ＃system "ls -l \$HOME" > > } > > if (em(param('choose')) =~ /create/){ > > system "date -u"; > > > > } > > } > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > > > > > Gary.jsz > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/c3200526/attachment-0003.html > > > > ------------------------------ > > > > Message: 3 > > Date: Thu, 5 Jun 2008 11:20:16 +0800 > > From: "Yisu Dong" > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset="gb2312" > > > > 我的没有问题。可以打印 > > > > 2008/6/5 gary.jsz : > > > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ------------------------------ > > > Gary.jsz > > > > > > > > > _______________________________________________ > > > China-pm mailing list > > > China-pm at pm.org > > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > -------------- next part -------------- > > An HTML attachment was scrubbed... > > URL: > > > http://mail.pm.org/pipermail/china-pm/attachments/20080605/a285188b/attachment-0001.html > > > > ------------------------------ > > > > Message: 4 > > Date: Thu, 5 Jun 2008 11:40:08 +0800 > > From: truncatei > > Subject: Re: [PerlChina] 请教perl cgi页面如何显示ls信息 > > To: china-pm at pm.org > > Message-ID: > > > > Content-Type: text/plain; charset=UTF-8 > > > > 看下运行这个CGI的用户身份，Apache一般运行在不同的用户帐号下 > > > > 2008/6/5 gary.jsz : > > > 我的代码如下： > > > #!/usr/bin/perl -w > > > # > > > use strict; > > > use utf8; > > > #use CGI qw/:standard/; > > > use CGI qw/:all/; > > > print header, > > > start_html("Mailing list manager system page"), > > > h1('Maillist管理系统 '), > > > start_form, > > > "What are you doing?", > > > popup_menu(-name=>'choose', > > > -values=>[qw(select create delete modify)]),p, > > > submit, > > > end_form, > > > hr; > > > if(param()){ > > > if (em(param('choose')) =~ /select/){ > > > system "date"; > > > print `ls -l \$HOME`; > > > ＃system "ls -l \$HOME" > > > } > > > if (em(param('choose')) =~ /create/){ > > > system "date -u"; > > > > > > } > > > } > > > > > > 其中时间能正确显示，但是，就是不能打印 ls -l $HOME 这行，换成 system "ls -l > > > \$HOME"也不能打印，还希望各位老师能指教，谢谢！ > > > > > > ________________________________ > > > Gary.jsz > > > > > > > ------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > End of China-pm Digest, Vol 38, Issue 3 > > *************************************** > > > > > > -- > gary > gary.jsz at gmail.com > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > http://mail.pm.org/pipermail/china-pm/attachments/20080605/da3490df/attachment.html > > ------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > End of China-pm Digest, Vol 38, Issue 4 > *************************************** > -- gary gary.jsz at gmail.com -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/7df7fdb4/attachment.html ------------------------------ _______________________________________________ China-pm mailing list China-pm at pm.org http://mail.pm.org/mailman/listinfo/china-pm End of China-pm Digest, Vol 38, Issue 5 *************************************** -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/fc676258/attachment-0003.html From fayland at gmail.com Wed Jun 4 22:43:34 2008 From: fayland at gmail.com (Fayland Lam) Date: Thu, 05 Jun 2008 13:43:34 +0800 Subject: [PerlChina] China-pm Digest, Vol 38, Issue 4 In-Reply-To: References: Message-ID: <48477D06.3080504@gmail.com> gary jsz wrote: > HOHO,自己太笨了，现在弄明白了，没有搞清楚apche的权限，谢谢大家的帮助。 > > 请不要直接回复 Digest, 回复的话请删除掉部分内容。否则 china-pm 会将此记 录在数据库，然后通过人工批准才会发出。 Reason: Message body is too big: 68033 bytes with a limit of 40 KB 请不要发送超过 40KB 的 mail 谢谢。 -- Fayland Lam // http://www.fayland.org/ Foorum based on Catalyst // http://www.foorumbbs.com/ From gary.jsz at gmail.com Wed Jun 4 22:58:18 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 13:58:18 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= References: Message-ID: <200806051358125932206@gmail.com> 现在又来一个问题。 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/ef910c6d/attachment.html From gary.jsz at gmail.com Wed Jun 4 22:58:18 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Thu, 5 Jun 2008 13:58:18 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= References: Message-ID: <200806051358125932206@gmail.com> 现在又来一个问题。 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/ef910c6d/attachment-0001.html From formalin14 at gmail.com Thu Jun 5 00:50:13 2008 From: formalin14 at gmail.com (Achilles Xu) Date: Thu, 5 Jun 2008 15:50:13 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <200806051358125932206@gmail.com> References: <200806051358125932206@gmail.com> Message-ID: <4a6c0ba80806050050l6cbf9d9fx70080d3c221fde8e@mail.gmail.com> 比较笨的办法是你用expect ssh登录回你的服务器（用root）然后执行相应操作。正规途径的话，你就得看看sudo了。 在08-6-5，gary.jsz 写道： > > > 现在又来一个问题。 > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -- --------------------------- Achilles Xu http://www.lostcode.org -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/085e0344/attachment.html From truncatei at gmail.com Thu Jun 5 00:58:05 2008 From: truncatei at gmail.com (truncatei) Date: Thu, 5 Jun 2008 15:58:05 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4a6c0ba80806050050l6cbf9d9fx70080d3c221fde8e@mail.gmail.com> References: <200806051358125932206@gmail.com> <4a6c0ba80806050050l6cbf9d9fx70080d3c221fde8e@mail.gmail.com> Message-ID: 正常情况下，httpd以root身份启动，打开默认端口后(一般是80，*NIX需要root身份才能注册1024以下端口)切换回一般帐户运行，以避免一些安全问题。 如果确实需要httpd以root运行，找到http.conf文件 修改这部分： # # If you wish httpd to run as a different user or group, you must run # httpd as root initially and it will switch. # # User/Group: The name (or #number) of the user/group to run httpd as. # . On SCO (ODT 3) use "User nouser" and "Group nogroup". # . On HPUX you may not be able to use shared memory as nobody, and the # suggested workaround is to create a user www and use that user. # NOTE that some kernels refuse to setgid(Group) or semctl(IPC_SET) # when the value of (unsigned)Group is above 60000; # don't use Group nobody on these systems! # User www Group www 2008/6/5 Achilles Xu : > 比较笨的办法是你用expect ssh登录回你的服务器（用root）然后执行相应操作。正规途径的话，你就得看看sudo了。 > > 在08-6-5，gary.jsz 写道： >> >> >> 现在又来一个问题。 >> 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ >> From joe at btoi.org Thu Jun 5 06:19:22 2008 From: joe at btoi.org (Joe) Date: Thu, 5 Jun 2008 21:19:22 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <200806051358125932206@gmail.com> References: <200806051358125932206@gmail.com> Message-ID: <4c0ae1150806050619j5cf76eb8t7be1ace82b4350e4@mail.gmail.com> Hi, 如果是打算切换为其他普通用户运行的话，可以尝试配置下 Apache 的 suEXEC： http://httpd.apache.org/docs/2.2/suexec.html 不过需要在虚拟主机或者用户目录上做，不是很灵活 :( Regards, Joe 2008/6/5 gary.jsz : > > 现在又来一个问题。 > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > From lamp.purl at gmail.com Thu Jun 5 06:46:27 2008 From: lamp.purl at gmail.com (purl lamp) Date: Thu, 5 Jun 2008 21:46:27 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <200806051358125932206@gmail.com> References: <200806051358125932206@gmail.com> Message-ID: <367185060806050646k1dae64f3g45157cc3b15dcd79@mail.gmail.com> maybe use POE::Component::Server::HTTP ? and this new article can be very useful http://www.cnitblog.com/gyn/archive/2008/05/31/44659.html 2008/6/5 gary.jsz : > > 现在又来一个问题。 > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事情呢？ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080605/6a7dbbb1/attachment-0001.html From shijialee at gmail.com Thu Jun 5 17:35:56 2008 From: shijialee at gmail.com (shijialee) Date: Fri, 06 Jun 2008 08:35:56 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <200806051358125932206@gmail.com> References: <200806051358125932206@gmail.com> Message-ID: <4848866C.6090400@gmail.com> gary.jsz wrote: > > 现在又来一个问题。 > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事 > 情呢？ > 用 sudo。 直接改 httpd 的用户成 root 不推荐。 > > ------------------------------------------------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From beckheng at gmail.com Thu Jun 5 18:43:53 2008 From: beckheng at gmail.com (Beckheng Lam) Date: Fri, 6 Jun 2008 09:43:53 +0800 Subject: [PerlChina] =?gb2312?b?alF1ZXJ5tcRtZW51IHBsdWdpbizExLj2sci9z7rD?= =?gb2312?b?Pw==?= In-Reply-To: <4848866C.6090400@gmail.com> Message-ID: <48489665.27b38c0a.1e08.3c0a@mx.google.com> 这两天在看jQuery的menu plugin,感觉没有太突出的.跟delux-menu相比. 哪位用过jQuery的menu plugin,推荐一个比较好的,外观和效率都相当不错的. :P //BR From hylinux at gmail.com Mon Jun 9 23:47:46 2008 From: hylinux at gmail.com (Mike.G) Date: Tue, 10 Jun 2008 14:47:46 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <4848866C.6090400@gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> Message-ID: <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> suexec才是正解。 其他的我看都很麻烦。 自己patch一下apache的suexec部分，这个很容易的。 只要看一下关于路径的限制部分就可以了。 我原来patch过这部分。让虚拟主机的cgi(php,perl都运行在cgi模式）以各自用户的权限运行，就是不以apache用户，而是以各自的普通用户。 2008/6/6 shijialee : > gary.jsz wrote: > > > > 现在又来一个问题。 > > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事 > > 情呢？ > > > > 用 sudo。 直接改 httpd 的用户成 root 不推荐。 > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080610/48442940/attachment.html From stevenzyk at gmail.com Tue Jun 10 00:28:39 2008 From: stevenzyk at gmail.com (Steven Zhu) Date: Tue, 10 Jun 2008 15:28:39 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> Message-ID: <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> 请教如何终止线程啊？ @threadss[$tempcount]=threads->new(\&start_thread,$MySocket); @threads[tempcount]->detach(); 提示Can't call "detach" method,我确认已经有这个package 在08-6-10，Mike. G 写道： > > suexec才是正解。 > 其他的我看都很麻烦。 > 自己patch一下apache的suexec部分，这个很容易的。 > 只要看一下关于路径的限制部分就可以了。 > > 我原来patch过这部分。让虚拟主机的cgi(php,perl都运行在cgi模式）以各自用户的权限运行，就是不以apache用户，而是以各自的普通用户。 > > > 2008/6/6 shijialee : > >> gary.jsz wrote: >> > >> > 现在又来一个问题。 >> > 因为http的执行者是apache，那么，我怎么成切换高级用户的权限执行我要做的事 >> > 情呢？ >> > >> >> 用 sudo。 直接改 httpd 的用户成 root 不推荐。 >> >> >> > >> > ------------------------------------------------------------------------ >> > >> > _______________________________________________ >> > China-pm mailing list >> > China-pm at pm.org >> > http://mail.pm.org/mailman/listinfo/china-pm >> >> _______________________________________________ >> China-pm mailing list >> China-pm at pm.org >> http://mail.pm.org/mailman/listinfo/china-pm >> > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -- BR Steven.zhu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080610/e0664b32/attachment.html From lamp.purl at gmail.com Tue Jun 10 01:28:21 2008 From: lamp.purl at gmail.com (joe jiang) Date: Tue, 10 Jun 2008 16:28:21 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> Message-ID: <1213086501.14819.0.camel@flatpan> 没准弄错了 $ 和 @ ? the and those, they are different. On 二, 2008-06-10 at 15:28 +0800, Steven Zhu wrote: > 请教如何终止线程啊？ > @threadss[$tempcount]=threads->new(\&start_thread,$MySocket); > @threads[tempcount]->detach(); > 提示Can't call "detach" method,我确认已经有这个package > > > > 在08-6-10，Mike. G 写道： > suexec才是正解。 > 其他的我看都很麻烦。 > 自己patch一下apache的suexec部分，这个很容易的。 > 只要看一下关于路径的限制部分就可以了。 > 我原来patch过这部分。让虚拟主机的cgi(php,perl都运行在cgi模式） > 以各自用户的权限运行，就是不以apache用户，而是以各自的普通用 > 户。 > > > 2008/6/6 shijialee : > > gary.jsz wrote: > > > > 现在又来一个问题。 > > 因为http的执行者是apache，那么，我怎么成切换高级用户 > 的权限执行我要做的事 > > 情呢？ > > > > 用 sudo。 直接改 httpd 的用户成 root 不推荐。 > > > > > > > ------------------------------------------------------------------------ > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > > > -- > BR > Steven.zhu > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From truncatei at gmail.com Tue Jun 10 01:32:11 2008 From: truncatei at gmail.com (truncatei) Date: Tue, 10 Jun 2008 16:32:11 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> Message-ID: 代码好像有问题 > @threads[tempcount]->detach(); 2008/6/10 Steven Zhu : > 请教如何终止线程啊？ > @threadss[$tempcount]=threads->new(\&start_thread,$MySocket); > @threads[tempcount]->detach(); > 提示Can't call "detach" method,我确认已经有这个package > > > From hylinux at gmail.com Tue Jun 10 05:57:31 2008 From: hylinux at gmail.com (Mike.G) Date: Tue, 10 Jun 2008 20:57:31 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue Message-ID: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> Hi, list I got one issue when I use the plugin CGI::Application::Plugin::Session I have a parent package(Class), named "FWebApp", and this class extends the CGI::Application. I did some setting work in the method cgiapp_init like this: sub cgiapp_init { my $this = shift; #get the database configuration my $datasource = $this->cfg('data_source'); my $data_user = $this->cfg('data_username'); my $data_auth = $this->cfg('data_userauth'); my $attr = $this->cfg('data_attr'); #configuration the Database $this->dbh_config($datasource, $data_user, $data_auth, $attr); #configuration the Session $this->session_config( CGI_SESSION_OPTIONS => [ "driver:mysql", $this->query, { Handle=>$this->dbh }], COOKIE_PARAMS => { -domain => $this->cfg('site_domain'), -expires=>'+40m', -path=>'/', -secure=>1, }, ); #set the template path $this->tmpl_path($this->cfg('template_path')); and the session configuration look like is ok. and so, just now, i assume I have a action: it is register . so, I will write a new module named: package FWebApp::Register; =head1 NAME FWebApp::Register - show the register page =head1 SYNOPSIS extends the Class FWebApp, show the register page =cut use strict; use warnings; use base qw/FWebApp/; use CGI::Application::Plugin::AutoRunmode; use CGI::Application::Plugin::DBH qw/dbh_config dbh/; use CGI::Application::Plugin::ConfigAuto qw/cfg/; use CGI::Application::Plugin::Session; # the default requirement mode # show the register page. sub show_register: StartRunmode { my $this = shift; # if that user had login, we will jump to home page my $template = undef; if ( $this->session->param('loginname') ) { $template = $this->load_tmpl('had_login.html'); $template->param('HOMEPAGE', 'index.html'); } else { $template = $this->load_tmpl('register.html'); } return $template->output; } 1; it is extends FWebApp, but when I had prepared a script: like this: #!/usr/local/bin/perl -w -T use strict; use lib qw(. ../lib); use CGI::Application::Plugin::ConfigAuto; use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; use FWebApp::Register; my $app = FWebApp::Register->new( PARAMS => { cfg_file => 'config.pl' } ); $app->run; *when I refresh that script, we always got the difference session id, why?* thanks Mike.G -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080610/1262eb52/attachment-0001.html From shijialee at gmail.com Tue Jun 10 10:30:47 2008 From: shijialee at gmail.com (Qiang) Date: Wed, 11 Jun 2008 01:30:47 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> Message-ID: <484EBA47.8010101@gmail.com> Mike.G wrote: > Hi, list > I got one issue when I use the plugin CGI::Application::Plugin: > :Session > > I have a parent package(Class), named "FWebApp", > and this class extends the CGI::Application. > I did some setting work in the method cgiapp_init > > like this: > > sub cgiapp_init { > my $this = shift; > > #get the database configuration > my $datasource = $this->cfg('data_source'); > my $data_user = $this->cfg('data_username'); > my $data_auth = $this->cfg('data_userauth'); > my $attr = $this->cfg('data_attr'); > > #configuration the Database > $this->dbh_config($datasource, > $data_user, > $data_auth, > $attr); > > > #configuration the Session > $this->session_config( > CGI_SESSION_OPTIONS => [ > "driver:mysql", > $this->query, > { > Handle=>$this->dbh > }], > > COOKIE_PARAMS => { > -domain => $this->cfg('site_domain'), > -expires=>'+40m', > -path=>'/', > -secure=>1, > }, > > ); > > #set the template path > $this->tmpl_path($this->cfg('template_path')); > > > > and the session configuration look like is ok. > > and so, just now, i assume I have a action: it is register . > so, I will write a new module named: > > package FWebApp::Register; > =head1 NAME > > FWebApp::Register - show the register page > > =head1 SYNOPSIS > > extends the Class FWebApp, > show the register page > > =cut > use strict; > use warnings; > use base qw/FWebApp/; > use CGI::Application::Plugin::AutoRunmode; > use CGI::Application::Plugin::DBH qw/dbh_config dbh/; > use CGI::Application::Plugin::ConfigAuto qw/cfg/; > use CGI::Application::Plugin::Session; > > > # the default requirement mode > # show the register page. > sub show_register: StartRunmode { > my $this = shift; > > # if that user had login, we will jump to home page > my $template = undef; > if ( $this->session->param('loginname') ) { > $template = $this->load_tmpl('had_login.html'); > $template->param('HOMEPAGE', 'index.html'); > } else { > $template = $this->load_tmpl('register.html'); > } > > > return $template->output; > > } > > > > > 1; > > > it is extends FWebApp, but when I had prepared a script: > like this: > #!/usr/local/bin/perl -w -T > use strict; > use lib qw(. ../lib); > use CGI::Application::Plugin::ConfigAuto; > use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; > use FWebApp::Register; > > my $app = FWebApp::Register->new( > PARAMS => { > cfg_file => 'config.pl' } ); > > $app->run; > > > _*when I refresh that script, we always got the difference session id, > why?*_ > > 我用 CGI::Application 但并不怎么使用 CGI::Application::Plugin::Session (缩为 CAP::Session)。 大致看了你的例子， script 每次运行都会调用 sub show_register 里的 $this->session->param('loginname') 来检查用户是否已登 录，如果没有登录，$this->session 的调用就会生成一个新的 CGI::Session object 因此生产一个新 session id. 你的 script 没有登录的那部分，即每次都 是一个非登录的用户访问，自然每次都拿到一个新 session id 了。 另外，CGI::Application 里一般都在 base class 里把要用到的 CAP 的 plugins load 进去，例如 CAP::DBH, CAP::ConfigAuto 等，没有必要在子包里在 use 了。 > thanks > > > Mike.G HTH, Qiang From stevenzyk at gmail.com Tue Jun 10 18:15:50 2008 From: stevenzyk at gmail.com (Steven Zhu) Date: Wed, 11 Jun 2008 09:15:50 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <1213086501.14819.0.camel@flatpan> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> Message-ID: <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> 现在detach可以起作用了，但是似乎无法终止线程啊 我尝试的例子是把一个正在做copy的线程终止掉，停止copy，但是现在发觉仍然在做啊 在08-6-10，joe jiang 写道： > > 没准弄错了 $ 和 @ ? > the and those, they are different. > > On 二, 2008-06-10 at 15:28 +0800, Steven Zhu wrote: > > 请教如何终止线程啊？ > > @threadss[$tempcount]=threads->new(\&start_thread,$MySocket); > > @threads[tempcount]->detach(); > > 提示Can't call "detach" method,我确认已经有这个package > > > > > > > > 在08-6-10，Mike. G 写道： > > suexec才是正解。 > > 其他的我看都很麻烦。 > > 自己patch一下apache的suexec部分，这个很容易的。 > > 只要看一下关于路径的限制部分就可以了。 > > 我原来patch过这部分。让虚拟主机的cgi(php,perl都运行在cgi模式） > > 以各自用户的权限运行，就是不以apache用户，而是以各自的普通用 > > 户。 > > > > > > 2008/6/6 shijialee : > > > > gary.jsz wrote: > > > > > > 现在又来一个问题。 > > > 因为http的执行者是apache，那么，我怎么成切换高级用户 > > 的权限执行我要做的事 > > > 情呢？ > > > > > > > 用 sudo。 直接改 httpd 的用户成 root 不推荐。 > > > > > > > > > > > > > ------------------------------------------------------------------------ > > > > > > > > _______________________________________________ > > > China-pm mailing list > > > China-pm at pm.org > > > http://mail.pm.org/mailman/listinfo/china-pm > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > > > > -- > > BR > > Steven.zhu > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- BR Steven.zhu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/d8aa084b/attachment.html From truncatei at gmail.com Tue Jun 10 18:22:34 2008 From: truncatei at gmail.com (truncatei) Date: Wed, 11 Jun 2008 09:22:34 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> Message-ID: 检查一下代码的逻辑看看，或许哪里弄错了。 2008/6/11 Steven Zhu : > 现在detach可以起作用了，但是似乎无法终止线程啊 > 我尝试的例子是把一个正在做copy的线程终止掉，停止copy，但是现在发觉仍然在做啊 > From hylinux at gmail.com Tue Jun 10 18:26:57 2008 From: hylinux at gmail.com (Mike.G) Date: Wed, 11 Jun 2008 09:26:57 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <484EBA47.8010101@gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> <484EBA47.8010101@gmail.com> Message-ID: <74646cb40806101826r42a20f52x32ae8456d0226d27@mail.gmail.com> thanks Qiang. 谢谢。 我已经找到问题了。 主要是由于那个cookie的设置问题 移掉secure这个参数就可以了。 包的问题，是的。我在调试的时候加上的。不过还是谢谢。我会把它们改掉的。 刚看了secure参数的说明，都是它若的祸 secure flag If the "secure" attribute is set, the cookie will only be sent to your script if the CGI request is occurring on a secure channel, such as SSL. 所以去掉它就没有问题了。 2008/6/11 Qiang : > Mike.G wrote: > > Hi, list > > I got one issue when I use the plugin CGI::Application::Plugin: > > :Session > > > > I have a parent package(Class), named "FWebApp", > > and this class extends the CGI::Application. > > I did some setting work in the method cgiapp_init > > > > like this: > > > > sub cgiapp_init { > > my $this = shift; > > > > #get the database configuration > > my $datasource = $this->cfg('data_source'); > > my $data_user = $this->cfg('data_username'); > > my $data_auth = $this->cfg('data_userauth'); > > my $attr = $this->cfg('data_attr'); > > > > #configuration the Database > > $this->dbh_config($datasource, > > $data_user, > > $data_auth, > > $attr); > > > > > > #configuration the Session > > $this->session_config( > > CGI_SESSION_OPTIONS => [ > > "driver:mysql", > > $this->query, > > { > > Handle=>$this->dbh > > }], > > > > COOKIE_PARAMS => { > > -domain => $this->cfg('site_domain'), > > -expires=>'+40m', > > -path=>'/', > > -secure=>1, > > }, > > > > ); > > > > #set the template path > > $this->tmpl_path($this->cfg('template_path')); > > > > > > > > and the session configuration look like is ok. > > > > and so, just now, i assume I have a action: it is register . > > so, I will write a new module named: > > > > package FWebApp::Register; > > =head1 NAME > > > > FWebApp::Register - show the register page > > > > =head1 SYNOPSIS > > > > extends the Class FWebApp, > > show the register page > > > > =cut > > use strict; > > use warnings; > > use base qw/FWebApp/; > > use CGI::Application::Plugin::AutoRunmode; > > use CGI::Application::Plugin::DBH qw/dbh_config dbh/; > > use CGI::Application::Plugin::ConfigAuto qw/cfg/; > > use CGI::Application::Plugin::Session; > > > > > > # the default requirement mode > > # show the register page. > > sub show_register: StartRunmode { > > my $this = shift; > > > > # if that user had login, we will jump to home page > > my $template = undef; > > if ( $this->session->param('loginname') ) { > > $template = $this->load_tmpl('had_login.html'); > > $template->param('HOMEPAGE', 'index.html'); > > } else { > > $template = $this->load_tmpl('register.html'); > > } > > > > > > return $template->output; > > > > } > > > > > > > > > > 1; > > > > > > it is extends FWebApp, but when I had prepared a script: > > like this: > > #!/usr/local/bin/perl -w -T > > use strict; > > use lib qw(. ../lib); > > use CGI::Application::Plugin::ConfigAuto; > > use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; > > use FWebApp::Register; > > > > my $app = FWebApp::Register->new( > > PARAMS => { > > cfg_file => 'config.pl' } ); > > > > $app->run; > > > > > > _*when I refresh that script, we always got the difference session id, > > why?*_ > > > > > > 我用 CGI::Application 但并不怎么使用 CGI::Application::Plugin::Session > (缩为 CAP::Session)。 大致看了你的例子， script 每次运行都会调用 sub > show_register 里的 $this->session->param('loginname') 来检查用户是否已登 > 录，如果没有登录，$this->session 的调用就会生成一个新的 CGI::Session > object 因此生产一个新 session id. 你的 script 没有登录的那部分，即每次都 > 是一个非登录的用户访问，自然每次都拿到一个新 session id 了。 > > 另外，CGI::Application 里一般都在 base class 里把要用到的 CAP 的 plugins > load 进去，例如 CAP::DBH, CAP::ConfigAuto 等，没有必要在子包里在 use 了。 > > > thanks > > > > > > Mike.G > > HTH, > > Qiang > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/cfd5854d/attachment-0001.html From hylinux at gmail.com Tue Jun 10 18:28:15 2008 From: hylinux at gmail.com (Mike.G) Date: Wed, 11 Jun 2008 09:28:15 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <484EBA47.8010101@gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> <484EBA47.8010101@gmail.com> Message-ID: <74646cb40806101828t2c6c9c38m7fe19515c036558d@mail.gmail.com> CAP好像停止开发了啊。 我选型的时候也看看了。 但是看到最后的更新日期太老了。 就没有采用。 Mike.G 2008/6/11 Qiang : > Mike.G wrote: > > Hi, list > > I got one issue when I use the plugin CGI::Application::Plugin: > > :Session > > > > I have a parent package(Class), named "FWebApp", > > and this class extends the CGI::Application. > > I did some setting work in the method cgiapp_init > > > > like this: > > > > sub cgiapp_init { > > my $this = shift; > > > > #get the database configuration > > my $datasource = $this->cfg('data_source'); > > my $data_user = $this->cfg('data_username'); > > my $data_auth = $this->cfg('data_userauth'); > > my $attr = $this->cfg('data_attr'); > > > > #configuration the Database > > $this->dbh_config($datasource, > > $data_user, > > $data_auth, > > $attr); > > > > > > #configuration the Session > > $this->session_config( > > CGI_SESSION_OPTIONS => [ > > "driver:mysql", > > $this->query, > > { > > Handle=>$this->dbh > > }], > > > > COOKIE_PARAMS => { > > -domain => $this->cfg('site_domain'), > > -expires=>'+40m', > > -path=>'/', > > -secure=>1, > > }, > > > > ); > > > > #set the template path > > $this->tmpl_path($this->cfg('template_path')); > > > > > > > > and the session configuration look like is ok. > > > > and so, just now, i assume I have a action: it is register . > > so, I will write a new module named: > > > > package FWebApp::Register; > > =head1 NAME > > > > FWebApp::Register - show the register page > > > > =head1 SYNOPSIS > > > > extends the Class FWebApp, > > show the register page > > > > =cut > > use strict; > > use warnings; > > use base qw/FWebApp/; > > use CGI::Application::Plugin::AutoRunmode; > > use CGI::Application::Plugin::DBH qw/dbh_config dbh/; > > use CGI::Application::Plugin::ConfigAuto qw/cfg/; > > use CGI::Application::Plugin::Session; > > > > > > # the default requirement mode > > # show the register page. > > sub show_register: StartRunmode { > > my $this = shift; > > > > # if that user had login, we will jump to home page > > my $template = undef; > > if ( $this->session->param('loginname') ) { > > $template = $this->load_tmpl('had_login.html'); > > $template->param('HOMEPAGE', 'index.html'); > > } else { > > $template = $this->load_tmpl('register.html'); > > } > > > > > > return $template->output; > > > > } > > > > > > > > > > 1; > > > > > > it is extends FWebApp, but when I had prepared a script: > > like this: > > #!/usr/local/bin/perl -w -T > > use strict; > > use lib qw(. ../lib); > > use CGI::Application::Plugin::ConfigAuto; > > use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; > > use FWebApp::Register; > > > > my $app = FWebApp::Register->new( > > PARAMS => { > > cfg_file => 'config.pl' } ); > > > > $app->run; > > > > > > _*when I refresh that script, we always got the difference session id, > > why?*_ > > > > > > 我用 CGI::Application 但并不怎么使用 CGI::Application::Plugin::Session > (缩为 CAP::Session)。 大致看了你的例子， script 每次运行都会调用 sub > show_register 里的 $this->session->param('loginname') 来检查用户是否已登 > 录，如果没有登录，$this->session 的调用就会生成一个新的 CGI::Session > object 因此生产一个新 session id. 你的 script 没有登录的那部分，即每次都 > 是一个非登录的用户访问，自然每次都拿到一个新 session id 了。 > > 另外，CGI::Application 里一般都在 base class 里把要用到的 CAP 的 plugins > load 进去，例如 CAP::DBH, CAP::ConfigAuto 等，没有必要在子包里在 use 了。 > > > thanks > > > > > > Mike.G > > HTH, > > Qiang > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/3f71a765/attachment.html From shijialee at gmail.com Tue Jun 10 20:49:16 2008 From: shijialee at gmail.com (Qiang) Date: Wed, 11 Jun 2008 11:49:16 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <74646cb40806101828t2c6c9c38m7fe19515c036558d@mail.gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> <484EBA47.8010101@gmail.com> <74646cb40806101828t2c6c9c38m7fe19515c036558d@mail.gmail.com> Message-ID: <484F4B3C.6010608@gmail.com> Mike.G wrote: > CAP好像停止开发了啊。 > 我选型的时候也看看了。 > 但是看到最后的更新日期太老了。 > 就没有采用。 > 没有更新并不代表不好用，相反代表的是没有什么 bug 了 :-)。同时，CGI:: Application 是一个 lightweight 的架构，只简单的提供一个整合 CGI.pm, runmode dispatch 等基本功能，更多功能的添加则通过 C::A 的 plugin (比如说 CAP::Dispatch) 或第3方的模块来实现，这也解释了为什么 C::A 没怎么更新。 与 C::A 相反的 web framework 是 Catalyst, Jifty。 使用哪个 framework 要看个人的喜好，工程的要求等因素了。 > Mike.G > Qiang From hylinux at gmail.com Tue Jun 10 21:53:20 2008 From: hylinux at gmail.com (Mike.G) Date: Wed, 11 Jun 2008 12:53:20 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <484F4B3C.6010608@gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> <484EBA47.8010101@gmail.com> <74646cb40806101828t2c6c9c38m7fe19515c036558d@mail.gmail.com> <484F4B3C.6010608@gmail.com> Message-ID: <74646cb40806102153i3320912j5c5218aefeea0897@mail.gmail.com> 呵呵。恩。是的。 没仔细看C::A, 但是稍微看了看catalyst, 太复杂。 没CGI::Application简单。 还是简单的上吧。 Mike 2008/6/11 Qiang : > Mike.G wrote: > > CAP好像停止开发了啊。 > > 我选型的时候也看看了。 > > 但是看到最后的更新日期太老了。 > > 就没有采用。 > > > > 没有更新并不代表不好用，相反代表的是没有什么 bug 了 :-)。同时，CGI:: > Application 是一个 lightweight 的架构，只简单的提供一个整合 CGI.pm, > runmode dispatch 等基本功能，更多功能的添加则通过 C::A 的 plugin (比如说 > CAP::Dispatch) 或第3方的模块来实现，这也解释了为什么 C::A 没怎么更新。 > > 与 C::A 相反的 web framework 是 Catalyst, Jifty。 > > 使用哪个 framework 要看个人的喜好，工程的要求等因素了。 > > > Mike.G > > > > Qiang > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/94a51011/attachment.html From stevenzyk at gmail.com Tue Jun 10 22:09:46 2008 From: stevenzyk at gmail.com (Steven Zhu) Date: Wed, 11 Jun 2008 13:09:46 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> Message-ID: <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> 这个是server端的application，程序会有client端发送指令过来，执行bat文件，在执行中再次发送中断指令，停止bat文件的运行，但是目前使用detach中断不了，还是会执行，请帮忙看看 # Server Program use threads; use IO::Socket::INET; print ">> Server Program <<\n"; # Create a new socket $MySocket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp'); my $new_sock = $MySocket->accept(); # Keep receiving messages from client while(1) { $MySocket->recv($text,128); if ( $text =~ /stop/ ) { open(STOP , "d:\\thread_d"); while() { push @child_thread , $_; } close(STOP); $asdf = @child_thread[0]; print "thread: $asdf\n"; stop(); } else { $thread = threads->new(\&start_thread,$MySocket); open(THREAD , ">d:\\thread_d"); print THREAD $thread; close(THREAD); } } sub stop{ print "thread: $thread\n"; $qwer = $thread->detach; print "$qwer\n"; } sub start_thread { chdir "F:\\C26_1"; system("F:\\C26_1\\C26_remake.bat"); } 在08-6-11，truncatei 写道： > > 检查一下代码的逻辑看看，或许哪里弄错了。 > > 2008/6/11 Steven Zhu : > > 现在detach可以起作用了，但是似乎无法终止线程啊 > > 我尝试的例子是把一个正在做copy的线程终止掉，停止copy，但是现在发觉仍然在做啊 > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- BR Steven.zhu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/86892b5e/attachment-0001.html From truncatei at gmail.com Tue Jun 10 22:23:48 2008 From: truncatei at gmail.com (truncatei) Date: Wed, 11 Jun 2008 13:23:48 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> Message-ID: 由system调用bat文件启动的进程好像和perl的线程不一样的，不能用这种方法吧 2008/6/11 Steven Zhu : > 这个是server端的application，程序会有client端发送指令过来，执行bat文件，在执行中再次发送中断指令，停止bat文件的运行，但是目前使用detach中断不了，还是会执行，请帮忙看看 > # Server Program > use threads; > use IO::Socket::INET; > > print ">> Server Program <<\n"; > > # Create a new socket > $MySocket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp'); > my $new_sock = $MySocket->accept(); > > # Keep receiving messages from client > while(1) > { > $MySocket->recv($text,128); > if ( $text =~ /stop/ ) > { > open(STOP , "d:\\thread_d"); > while() > { > push @child_thread , $_; > } > close(STOP); > $asdf = @child_thread[0]; > print "thread: $asdf\n"; > stop(); > } > else > { > $thread = threads->new(\&start_thread,$MySocket); > open(THREAD , ">d:\\thread_d"); > print THREAD $thread; > close(THREAD); > } > } > > sub stop{ > print "thread: $thread\n"; > $qwer = $thread->detach; > print "$qwer\n"; > } > > sub start_thread > { > chdir "F:\\C26_1"; > system("F:\\C26_1\\C26_remake.bat"); > } > > > From stevenzyk at gmail.com Tue Jun 10 23:34:56 2008 From: stevenzyk at gmail.com (Steven Zhu) Date: Wed, 11 Jun 2008 14:34:56 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> Message-ID: <4f870e20806102334h569b38eag30fb290901442575@mail.gmail.com> 我是用perl的线程启动的system调用的bat文件，终止perl的线程，无法终止bat文件的进程吗？ 在08-6-11，truncatei 写道： > > 由system调用bat文件启动的进程好像和perl的线程不一样的，不能用这种方法吧 > > 2008/6/11 Steven Zhu : > > > 这个是server端的application，程序会有client端发送指令过来，执行bat文件，在执行中再次发送中断指令，停止bat文件的运行，但是目前使用detach中断不了，还是会执行，请帮忙看看 > > # Server Program > > use threads; > > use IO::Socket::INET; > > > > print ">> Server Program <<\n"; > > > > # Create a new socket > > $MySocket=new IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp'); > > my $new_sock = $MySocket->accept(); > > > > # Keep receiving messages from client > > while(1) > > { > > $MySocket->recv($text,128); > > if ( $text =~ /stop/ ) > > { > > open(STOP , "d:\\thread_d"); > > while() > > { > > push @child_thread , $_; > > } > > close(STOP); > > $asdf = @child_thread[0]; > > print "thread: $asdf\n"; > > stop(); > > } > > else > > { > > $thread = threads->new(\&start_thread,$MySocket); > > open(THREAD , ">d:\\thread_d"); > > print THREAD $thread; > > close(THREAD); > > } > > } > > > > sub stop{ > > print "thread: $thread\n"; > > $qwer = $thread->detach; > > print "$qwer\n"; > > } > > > > sub start_thread > > { > > chdir "F:\\C26_1"; > > system("F:\\C26_1\\C26_remake.bat"); > > } > > > > > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- BR Steven.zhu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/acf659eb/attachment.html From cnhacktnt at gmail.com Wed Jun 11 02:56:51 2008 From: cnhacktnt at gmail.com (cnhack TNT) Date: Wed, 11 Jun 2008 17:56:51 +0800 Subject: [PerlChina] the plugin CGI::Application::Plugin::Session issue In-Reply-To: <74646cb40806102153i3320912j5c5218aefeea0897@mail.gmail.com> References: <74646cb40806100557u792dc095g315ec8193501214f@mail.gmail.com> <484EBA47.8010101@gmail.com> <74646cb40806101828t2c6c9c38m7fe19515c036558d@mail.gmail.com> <484F4B3C.6010608@gmail.com> <74646cb40806102153i3320912j5c5218aefeea0897@mail.gmail.com> Message-ID: 是的呵呵，用 CGI::Application 及其插件来自己搭建轻量级 MVC 框架还是很方便的 ：－） 2008/6/11 Mike. G : > 呵呵。恩。是的。 > 没仔细看C::A, 但是稍微看了看catalyst, 太复杂。 > 没CGI::Application简单。 > > 还是简单的上吧。 > > Mike > > 2008/6/11 Qiang : > >> Mike.G wrote: >> >> > CAP好像停止开发了啊。 >> > 我选型的时候也看看了。 >> > 但是看到最后的更新日期太老了。 >> > 就没有采用。 >> > >> >> 没有更新并不代表不好用，相反代表的是没有什么 bug 了 :-)。同时，CGI:: >> Application 是一个 lightweight 的架构，只简单的提供一个整合 CGI.pm, >> runmode dispatch 等基本功能，更多功能的添加则通过 C::A 的 plugin (比如说 >> CAP::Dispatch) 或第3方的模块来实现，这也解释了为什么 C::A 没怎么更新。 >> >> 与 C::A 相反的 web framework 是 Catalyst, Jifty。 >> >> 使用哪个 framework 要看个人的喜好，工程的要求等因素了。 >> >> > Mike.G >> > >> >> Qiang >> _______________________________________________ >> China-pm mailing list >> China-pm at pm.org >> http://mail.pm.org/mailman/listinfo/china-pm >> > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080611/81203ed0/attachment.html From lamp.purl at gmail.com Thu Jun 12 07:04:38 2008 From: lamp.purl at gmail.com (joe jiang) Date: Thu, 12 Jun 2008 22:04:38 +0800 Subject: [PerlChina] =?utf-8?b?5Y+I5LiA6Zeu6aKY77ya5aaC5L2V5YiH5o2i55So?= =?utf-8?b?5oi35p2D6ZmQ77yf?= In-Reply-To: <4f870e20806102334h569b38eag30fb290901442575@mail.gmail.com> References: <200806051358125932206@gmail.com> <4848866C.6090400@gmail.com> <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> <4f870e20806102334h569b38eag30fb290901442575@mail.gmail.com> Message-ID: <1213279479.5937.0.camel@flatpan> sure. for thread, you return || detach. for process, you exit || kill. On 三, 2008-06-11 at 14:34 +0800, Steven Zhu wrote: > 我是用perl的线程启动的system调用的bat文件，终止perl的线程，无法终止bat > 文件的进程吗？ > > 在08-6-11，truncatei 写道： > 由system调用bat文件启动的进程好像和perl的线程不一样的，不能用 > 这种方法吧 > > 2008/6/11 Steven Zhu : > > 这个是server端的application，程序会有client端发送指令过来， > 执行bat文件，在执行中再次发送中断指令，停止bat文件的运行，但是 > 目前使用detach中断不了，还是会执行，请帮忙看看 > > # Server Program > > use threads; > > use IO::Socket::INET; > > > > print ">> Server Program <<\n"; > > > > # Create a new socket > > $MySocket=new > IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp'); > > my $new_sock = $MySocket->accept(); > > > > # Keep receiving messages from client > > while(1) > > { > > $MySocket->recv($text,128); > > if ( $text =~ /stop/ ) > > { > > open(STOP , "d:\\thread_d"); > > while() > > { > > push @child_thread , $_; > > } > > close(STOP); > > $asdf = @child_thread[0]; > > print "thread: $asdf\n"; > > stop(); > > } > > else > > { > > $thread = threads->new(\&start_thread,$MySocket); > > open(THREAD , ">d:\\thread_d"); > > print THREAD $thread; > > close(THREAD); > > } > > } > > > > sub stop{ > > print "thread: $thread\n"; > > $qwer = $thread->detach; > > print "$qwer\n"; > > } > > > > sub start_thread > > { > > chdir "F:\\C26_1"; > > system("F:\\C26_1\\C26_remake.bat"); > > } > > > > > > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > > > -- > BR > Steven.zhu > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From 3gwind at gmail.com Fri Jun 13 18:45:50 2008 From: 3gwind at gmail.com (3gwind) Date: Sat, 14 Jun 2008 09:45:50 +0800 Subject: [PerlChina] help Message-ID: <1a0ee78d0806131845v7216581fv43fbdc51d055dd69@mail.gmail.com> help -- 不经历风雨怎么见彩虹！！ -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080614/3f9b6074/attachment.html From shijialee at gmail.com Sat Jun 14 07:55:39 2008 From: shijialee at gmail.com (Qiang) Date: Sat, 14 Jun 2008 22:55:39 +0800 Subject: [PerlChina] help In-Reply-To: <1a0ee78d0806131845v7216581fv43fbdc51d055dd69@mail.gmail.com> References: <1a0ee78d0806131845v7216581fv43fbdc51d055dd69@mail.gmail.com> Message-ID: <4853DBEB.7090203@gmail.com> 3gwind wrote: > help > 打 119 或 911 ? :) Qiang > -- > 不经历风雨怎么见彩虹！！ > > > ------------------------------------------------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From lamp.purl at gmail.com Sun Jun 15 06:21:37 2008 From: lamp.purl at gmail.com (joe jiang) Date: Sun, 15 Jun 2008 21:21:37 +0800 Subject: [PerlChina] help In-Reply-To: <4853DBEB.7090203@gmail.com> References: <1a0ee78d0806131845v7216581fv43fbdc51d055dd69@mail.gmail.com> <4853DBEB.7090203@gmail.com> Message-ID: <1213536097.29386.0.camel@flatpan> man, there is a command named perldoc :D On 六, 2008-06-14 at 22:55 +0800, Qiang wrote: > 3gwind wrote: > > help > > > > 打 119 或 911 ? :) > > Qiang > > > -- > > 不经历风雨怎么见彩虹！！ > > > > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From march.liu at gmail.com Mon Jun 16 19:21:51 2008 From: march.liu at gmail.com (=?GB2312?B?wfX2zg==?=) Date: Tue, 17 Jun 2008 10:21:51 +0800 Subject: [PerlChina] =?gb2312?b?RW1hY3PV/dTyse2078rUtffK1Lmkvt8=?= Message-ID: ����ҵ�һ�������ߣ�regex-tool.el������Ƚϴֲڣ�ֻ����perl��macs lisp����������֧�֡���rl�汾�Ļ���Ҳû�����������ӿں�uffer��������������������������erl�IJ��ּ򵥸�����������������perl���ǰ��������������lisp�ģ�ֱ�����������ʾͺá� Ŀǰperl���һ��޹��ʵ������������Σ�ֻ�ʾ�������֧��erl-5.10�����Ҳ��֧��erl6��ules�� �����ԭ���������޸ģ������������ţ����ҵ���̫���ɣ�P�� -- �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� ���� ���arch.Liu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080617/7c3e46e3/attachment.html -------------- next part -------------- A non-text attachment was scrubbed... Name: regex-tool.el Type: application/octet-stream Size: 6531 bytes Desc: not available Url : http://mail.pm.org/pipermail/china-pm/attachments/20080617/7c3e46e3/attachment.obj From fengpxu at gmail.com Mon Jun 16 23:55:19 2008 From: fengpxu at gmail.com (fengpxu fengpxu) Date: Tue, 17 Jun 2008 14:55:19 +0800 Subject: [PerlChina] =?gb2312?b?RW1hY3PV/dTyse2078rUtffK1Lmkvt8=?= In-Reply-To: References: Message-ID: <591381660806162355k71a3052yfdba8d093248f071@mail.gmail.com> komodo �������ߡ�Ҳͦ��õġ� �08-6-17����march.liu at gmail.com> д��� > > ����ҵ�һ�������ߣ�regex-tool.el������Ƚϴֲڣ�ֻ����perl��macs > lisp����������֧�֡���rl�汾�Ļ���Ҳû�����������ӿں�uffer��������������������������erl�IJ��ּ򵥸�����������������perl���ǰ��������������lisp�ģ�ֱ�����������ʾͺá� > > Ŀǰperl���һ��޹��ʵ������������Σ�ֻ�ʾ�������֧��erl-5.10�����Ҳ��֧��erl6��ules�� > �����ԭ���������޸ģ������������ţ����ҵ���̫���ɣ�P�� > > -- > �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� > ���� > > ��� March.Liu > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080617/009c3799/attachment.html From lamp.purl at gmail.com Tue Jun 17 20:41:23 2008 From: lamp.purl at gmail.com (purl lamp) Date: Wed, 18 Jun 2008 11:41:23 +0800 Subject: [PerlChina] =?gb2312?b?RW1hY3PV/dTyse2078rUtffK1Lmkvt8=?= In-Reply-To: <591381660806162355k71a3052yfdba8d093248f071@mail.gmail.com> References: <591381660806162355k71a3052yfdba8d093248f071@mail.gmail.com> Message-ID: <367185060806172041i73b6f690j32d194a5f7573058@mail.gmail.com> *PCRE* tries to match *Perl syntax* and semantics as closely as it can. pcretest - a program for testing Perl-compatible regular expressions. dpks -S pcretest libpcre3: /usr/bin/pcretest 2008/6/17 fengpxu fengpxu : > komodo �������ߡ�Ҳͦ��õġ� > > �08-6-17����march.liu at gmail.com> д��� >> >> ����ҵ�һ�������ߣ�regex-tool.el������Ƚϴֲڣ�ֻ����perl��macs >> lisp����������֧�֡���rl�汾�Ļ���Ҳû�����������ӿں�uffer��������������������������erl�IJ��ּ򵥸�����������������perl���ǰ��������������lisp�ģ�ֱ�����������ʾͺá� >> >> Ŀǰperl���һ��޹��ʵ������������Σ�ֻ�ʾ�������֧��erl-5.10�����Ҳ��֧��erl6��ules�� >> �����ԭ���������޸ģ������������ţ����ҵ���̫���ɣ�P�� >> >> -- >> �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� >> ���� >> >> ���> March.Liu >> _______________________________________________ >> China-pm mailing list >> China-pm at pm.org >> http://mail.pm.org/mailman/listinfo/china-pm >> >> > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/a2b490a9/attachment.html From gary.jsz at gmail.com Wed Jun 18 00:26:44 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Wed, 18 Jun 2008 15:26:44 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zKO6yOe6ztelyKF0Y3BkdW1wtcTK/b7do78=?= Message-ID: <200806181526380783870@gmail.com> 系统：linux perl版本：5.8 目的： 想使用perl来实时抓取tcpdump数据，并统计10分钟的流量。 我的代码片段如下： #!/usr/bin/perl -w #got system time now my $time_now; my $time_temp = `date`; if ($time_temp =~ /(\d\d):(\d\d):(\d\d)/){ $time_now = ($1*60*60) + ($2*60) + $3; } #got tcpdump data chomp(my @data = `tcpdump -i eth0 -nnn`); print $time_now; foreach my $data(@data){ print $data; } 遇到的问题： 运行程序之后，无法正确打印 $data ，只停留在启动tcpdump时两行； Gary.jsz -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/a1ca9a96/attachment.html From gary.jsz at gmail.com Wed Jun 18 00:26:44 2008 From: gary.jsz at gmail.com (gary.jsz) Date: Wed, 18 Jun 2008 15:26:44 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zKO6yOe6ztelyKF0Y3BkdW1wtcTK/b7do78=?= Message-ID: <200806181526380783870@gmail.com> 系统：linux perl版本：5.8 目的： 想使用perl来实时抓取tcpdump数据，并统计10分钟的流量。 我的代码片段如下： #!/usr/bin/perl -w #got system time now my $time_now; my $time_temp = `date`; if ($time_temp =~ /(\d\d):(\d\d):(\d\d)/){ $time_now = ($1*60*60) + ($2*60) + $3; } #got tcpdump data chomp(my @data = `tcpdump -i eth0 -nnn`); print $time_now; foreach my $data(@data){ print $data; } 遇到的问题： 运行程序之后，无法正确打印 $data ，只停留在启动tcpdump时两行； Gary.jsz -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/a1ca9a96/attachment-0001.html From miforcn at gmail.com Wed Jun 18 00:40:12 2008 From: miforcn at gmail.com (miFor) Date: Wed, 18 Jun 2008 15:40:12 +0800 Subject: [PerlChina] =?gb2312?b?x+u9zKO6yOe6ztelyKF0Y3BkdW1wtcTK/b7do78=?= In-Reply-To: <200806181526380783870@gmail.com> References: <200806181526380783870@gmail.com> Message-ID: <7d459ec90806180040v26f1499ck4bb3a87beef01086@mail.gmail.com> #!/usr/bin/perl open FD,"tcpdump -i eth0|"; while(){ print $_; } 2008/6/18 gary.jsz : > 系统：linux perl版本：5.8 > 目的： > 想使用perl来实时抓取tcpdump数据，并统计10分钟的流量。 > > 我的代码片段如下： > #!/usr/bin/perl -w > > #got system time now > my $time_now; > my $time_temp = `date`; > if ($time_temp =~ /(\d\d):(\d\d):(\d\d)/){ > $time_now = ($1*60*60) + ($2*60) + $3; > } > > #got tcpdump data > chomp(my @data = `tcpdump -i eth0 -nnn`); > print $time_now; > foreach my $data(@data){ > print $data; > } > > 遇到的问题： > 运行程序之后，无法正确打印 $data ，只停留在启动tcpdump时两行； > > ------------------------------ > Gary.jsz > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/f0775174/attachment-0001.html From formalin14 at gmail.com Wed Jun 18 01:58:47 2008 From: formalin14 at gmail.com (Achilles Xu) Date: Wed, 18 Jun 2008 16:58:47 +0800 Subject: [PerlChina] =?gb2312?b?09bSu87KzOKjusjnus7H0Lu708O7p8ioz96jvw==?= In-Reply-To: <1213279479.5937.0.camel@flatpan> References: <74646cb40806092347x574492eck80f6bc99e0b589f6@mail.gmail.com> <4f870e20806100028r512b76b1w6b849517b68782e8@mail.gmail.com> <1213086501.14819.0.camel@flatpan> <4f870e20806101815j683cadecv7fad3cbeaaf19dbf@mail.gmail.com> <4f870e20806102209i582ef6efue865874505844f0d@mail.gmail.com> <4f870e20806102334h569b38eag30fb290901442575@mail.gmail.com> <1213279479.5937.0.camel@flatpan> Message-ID: <4a6c0ba80806180158s45d492cdw2b5485cb742dcb13@mail.gmail.com> detach相当于断线，他就更不归你管了。 在08-6-12，joe jiang 写道： > > sure. for thread, you return || detach. for process, you exit || kill. > > On 三, 2008-06-11 at 14:34 +0800, Steven Zhu wrote: > > 我是用perl的线程启动的system调用的bat文件，终止perl的线程，无法终止bat > > 文件的进程吗？ > > > > 在08-6-11，truncatei 写道： > > 由system调用bat文件启动的进程好像和perl的线程不一样的，不能用 > > 这种方法吧 > > > > 2008/6/11 Steven Zhu : > > > 这个是server端的application，程序会有client端发送指令过来， > > 执行bat文件，在执行中再次发送中断指令，停止bat文件的运行，但是 > > 目前使用detach中断不了，还是会执行，请帮忙看看 > > > # Server Program > > > use threads; > > > use IO::Socket::INET; > > > > > > print ">> Server Program <<\n"; > > > > > > # Create a new socket > > > $MySocket=new > > IO::Socket::INET->new(LocalPort=>1234,Proto=>'udp'); > > > my $new_sock = $MySocket->accept(); > > > > > > # Keep receiving messages from client > > > while(1) > > > { > > > $MySocket->recv($text,128); > > > if ( $text =~ /stop/ ) > > > { > > > open(STOP , "d:\\thread_d"); > > > while() > > > { > > > push @child_thread , $_; > > > } > > > close(STOP); > > > $asdf = @child_thread[0]; > > > print "thread: $asdf\n"; > > > stop(); > > > } > > > else > > > { > > > $thread = threads->new(\&start_thread,$MySocket); > > > open(THREAD , ">d:\\thread_d"); > > > print THREAD $thread; > > > close(THREAD); > > > } > > > } > > > > > > sub stop{ > > > print "thread: $thread\n"; > > > $qwer = $thread->detach; > > > print "$qwer\n"; > > > } > > > > > > sub start_thread > > > { > > > chdir "F:\\C26_1"; > > > system("F:\\C26_1\\C26_remake.bat"); > > > } > > > > > > > > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > > > > -- > > BR > > Steven.zhu > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- --------------------------- Achilles Xu http://www.lostcode.org -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/a23a207d/attachment.html From formalin14 at gmail.com Wed Jun 18 02:02:04 2008 From: formalin14 at gmail.com (Achilles Xu) Date: Wed, 18 Jun 2008 17:02:04 +0800 Subject: [PerlChina] =?gb2312?b?yLrA79PQzru458PH09Btb2QgcGVybCAyIHVzZXIn?= =?gb2312?b?cyBndWlkZSBwZGaw5rDJo78=?= Message-ID: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> 不知可否借阅一下。也好加强mod perl在国内的推广。 -- --------------------------- Achilles Xu http://www.lostcode.org -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/aa50f44b/attachment.html From fayland at gmail.com Wed Jun 18 02:11:07 2008 From: fayland at gmail.com (Fayland Lam) Date: Wed, 18 Jun 2008 17:11:07 +0800 Subject: [PerlChina] =?gb2312?b?yLrA79PQzru458PH09Btb2QgcGVybCAyIHVzZXIn?= =?gb2312?b?cyBndWlkZSBwZGaw5rDJo78=?= In-Reply-To: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> References: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> Message-ID: <4858D12B.5000408@gmail.com> Achilles Xu wrote: > 不知可否借阅一下。也好加强mod perl在国内的推广。 > hehe 我有本实体书。pdf 倒是没有。 > -- > --------------------------- > Achilles Xu > http://www.lostcode.org > ------------------------------------------------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- Fayland Lam // http://www.fayland.org/ Foorum based on Catalyst // http://www.foorumbbs.com/ From formalin14 at gmail.com Wed Jun 18 02:19:11 2008 From: formalin14 at gmail.com (Achilles Xu) Date: Wed, 18 Jun 2008 17:19:11 +0800 Subject: [PerlChina] =?gb2312?b?yLrA79PQzru458PH09Btb2QgcGVybCAyIHVzZXIn?= =?gb2312?b?cyBndWlkZSBwZGaw5rDJo78=?= In-Reply-To: <4858D12B.5000408@gmail.com> References: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> <4858D12B.5000408@gmail.com> Message-ID: <4a6c0ba80806180219m3403adaarc19f645742cd0b16@mail.gmail.com> 请人从国外带的？ 在08-6-18，Fayland Lam 写道： > > Achilles Xu wrote: > > 不知可否借阅一下。也好加强mod perl在国内的推广。 > > > > > hehe 我有本实体书。pdf 倒是没有。 > > > > -- > > --------------------------- > > Achilles Xu > > http://www.lostcode.org > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -- > Fayland Lam // http://www.fayland.org/ > Foorum based on Catalyst // http://www.foorumbbs.com/ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- --------------------------- Achilles Xu http://www.lostcode.org -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080618/c48fb24b/attachment.html From fayland at gmail.com Wed Jun 18 02:27:46 2008 From: fayland at gmail.com (Fayland Lam) Date: Wed, 18 Jun 2008 17:27:46 +0800 Subject: [PerlChina] =?gb2312?b?yLrA79PQzru458PH09Btb2QgcGVybCAyIHVzZXIn?= =?gb2312?b?cyBndWlkZSBwZGaw5rDJo78=?= In-Reply-To: <4a6c0ba80806180219m3403adaarc19f645742cd0b16@mail.gmail.com> References: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> <4858D12B.5000408@gmail.com> <4a6c0ba80806180219m3403adaarc19f645742cd0b16@mail.gmail.com> Message-ID: <4858D512.30808@gmail.com> Achilles Xu wrote: > 请人从国外带的？ > 老板给我们员工当圣诞节礼物的。 :-) Amazon 买的。 > 在08-6-18，*Fayland Lam* > 写道： > > Achilles Xu wrote: > > 不知可否借阅一下。也好加强mod perl在国内的推广。 > > > > > hehe 我有本实体书。pdf 倒是没有。 > > > > -- > > --------------------------- > > Achilles Xu > > http://www.lostcode.org > > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -- > Fayland Lam // http://www.fayland.org/ > Foorum based on Catalyst // http://www.foorumbbs.com/ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > > > > -- > --------------------------- > Achilles Xu > http://www.lostcode.org > ------------------------------------------------------------------------ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- Fayland Lam // http://www.fayland.org/ Foorum based on Catalyst // http://www.foorumbbs.com/ From lijiang at hc360.com Wed Jun 18 02:53:17 2008 From: lijiang at hc360.com (lijiang) Date: Wed, 18 Jun 2008 17:53:17 +0800 Subject: [PerlChina] =?utf-8?b?576k6YeM5pyJ5L2N5ZOl5Lus5pyJbW9kIHBlcmwg?= =?utf-8?b?MiB1c2VyJ3MgZ3VpZGUgcGRm54mI5ZCn77yf?= References: <4a6c0ba80806180202m50769c2bnf88323370c8b05f8@mail.gmail.com> <4858D12B.5000408@gmail.com><4a6c0ba80806180219m3403adaarc19f645742cd0b16@mail.gmail.com> <4858D512.30808@gmail.com> Message-ID: <003901c8d129$22242e80$9d24a8c0@jsblijiang> 这个比较米 ----- Original Message ----- From: "Fayland Lam" To: Sent: Wednesday, June 18, 2008 5:27 PM Subject: Re: [PerlChina] 群里有位哥们有mod perl 2 user's guide pdf版吧？ > Achilles Xu wrote: > > 请人从国外带的？ > > > > 老板给我们员工当圣诞节礼物的。 :-) > Amazon 买的。 > > > 在08-6-18，*Fayland Lam* > > 写道： > > > > Achilles Xu wrote: > > > 不知可否借阅一下。也好加强mod perl在国内的推广。 > > > > > > > > > hehe 我有本实体书。pdf 倒是没有。 > > > > > > > -- > > > --------------------------- > > > Achilles Xu > > > http://www.lostcode.org > > > > > ------------------------------------------------------------------------ > > > > > > _______________________________________________ > > > China-pm mailing list > > > China-pm at pm.org > > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > > -- > > Fayland Lam // http://www.fayland.org/ > > Foorum based on Catalyst // http://www.foorumbbs.com/ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > > > > > > > > -- > > --------------------------- > > Achilles Xu > > http://www.lostcode.org > > ------------------------------------------------------------------------ > > > > _______________________________________________ > > China-pm mailing list > > China-pm at pm.org > > http://mail.pm.org/mailman/listinfo/china-pm > > > -- > Fayland Lam // http://www.fayland.org/ > Foorum based on Catalyst // http://www.foorumbbs.com/ > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From easunlee at gmail.com Tue Jun 24 23:39:46 2008 From: easunlee at gmail.com (Eaun Lee) Date: Wed, 25 Jun 2008 14:39:46 +0800 Subject: [PerlChina] =?utf-8?b?5peg6K+t5LqG44CC?= Message-ID: 新手区有一个帖子。我转到 协会休闲区 区了。 地址是 http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 作者是 zuozuo 。 看看他其他的回复： http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 还有在 Wiki 的发表： http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 我就纳闷，不喜欢就不喜欢吗。干吗老 口水？？ 没有回复也不想回复。这里发发牢骚吧。。一旦回复，就有可能又是一场无聊的口水战。。 不解这种行为。难道code写多了真的就全是这样？ From fengpxu at gmail.com Wed Jun 25 00:01:18 2008 From: fengpxu at gmail.com (fengpxu fengpxu) Date: Wed, 25 Jun 2008 15:01:18 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: References: Message-ID: <591381660806250001g52c6c40fy172818af63a172b0@mail.gmail.com> 我用perl一段时间了，每每看到这样的帖子，都十分希望有人出来驳斥他，因为我目前还没有看到对于perl没落了的言论的有效回击。 perl 5到今天多少年了？Perl在业界的使用越来越少这是不可否认的，cpan,就是perl的全部了！ 谁能给吾辈指一明路？perl有使用价值的前途在那里？ 2008/6/25 Eaun Lee : > 新手区有一个帖子。我转到 协会休闲区 区了。 > 地址是 > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 > 作者是 zuozuo 。 > 看看他其他的回复： > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 > > 还有在 Wiki 的发表： http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 > > > 我就纳闷，不喜欢就不喜欢吗。干吗老 口水？？ 没有回复也不想回复。这里发发牢骚吧。。一旦回复，就有可能又是一场无聊的口水战。。 > > 不解这种行为。难道code写多了真的就全是这样？ > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/ee576a12/attachment.html From march.liu at gmail.com Wed Jun 25 00:32:01 2008 From: march.liu at gmail.com (=?GB2312?B?wfX2zg==?=) Date: Wed, 25 Jun 2008 15:32:01 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: <591381660806250001g52c6c40fy172818af63a172b0@mail.gmail.com> References: <591381660806250001g52c6c40fy172818af63a172b0@mail.gmail.com> Message-ID: ����arrot 1.0����ʱ�����erl6/python/smalltalk/lispͬʱдһ�������� �����ļ�������������������Ʒζ������������������һ���ϰ��������Ҫ������������� 2008/6/25 fengpxu fengpxu : > ��perlһ�������ÿÿ�����������ʮ��������������Ϊ�Ŀǰ��û��������erlû�����۵����ػ�> perl 5���������Perl�ҵ��ʹ�Խ�Խ������ɷ�ģ�cpan,���erl�������� > ˭���ָһ�·��perl�ʹ�������;����� > > -- �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� ���� ���arch.Liu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/c9846ab2/attachment.html From march.liu at gmail.com Tue Jun 24 23:56:11 2008 From: march.liu at gmail.com (=?GB2312?B?wfX2zg==?=) Date: Wed, 25 Jun 2008 14:56:11 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: References: Message-ID: ��ܲ�����IKIҳǰ����һ��������������������P�� 2008/6/25 Eaun Lee : > ����һ��ӡ��ת�� Э���� ���� > ���� > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 > ��� zuozuo �� > ��������Ļظ��� > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 > > ���� Wiki �ķ�� http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 > > > ����ƣ���ϲ���Ͳ�ϲ��������������� û��ظ�Ҳ����ظ����������ɧ�ɡ���һ���ظ�����п����������Ŀ��ս���� > > ������Ϊ�����odeд����ľ������� > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -- �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� ���� ���arch.Liu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/c2be44b6/attachment.html From truncatei at gmail.com Wed Jun 25 00:08:32 2008 From: truncatei at gmail.com (truncatei) Date: Wed, 25 Jun 2008 15:08:32 +0800 Subject: [PerlChina] =?utf-8?b?5peg6K+t5LqG44CC?= In-Reply-To: References: Message-ID: 呵呵 真的要那么严格，让zuozuo直接去用机器语言或者汇编语言好了 我记得以前还提到过一个CSDN的口水战，比这个还激烈 前些天看了本《Addison Wesley - Perl To Python Migration - 2001》 其实也是在阐述相同的问题，换一个语言是怎么样的解决方式 这个世界允许不同的道路，也允许不同的声音 让他们去争论吧 2008/6/25 Eaun Lee : > 新手区有一个帖子。我转到 协会休闲区 区了。 > 地址是 http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 > 作者是 zuozuo 。 > 看看他其他的回复： http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 > > 还有在 Wiki 的发表： http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 > > > 我就纳闷，不喜欢就不喜欢吗。干吗老 口水？？ 没有回复也不想回复。这里发发牢骚吧。。一旦回复，就有可能又是一场无聊的口水战。。 > > 不解这种行为。难道code写多了真的就全是这样？ From wanliyou at gmail.com Wed Jun 25 01:15:51 2008 From: wanliyou at gmail.com (Question) Date: Wed, 25 Jun 2008 16:15:51 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: References: Message-ID: <41143d8f0806250115u2e49f49v8b558ca6ca3d0eae@mail.gmail.com> ��One VM to rule them ALL �ʲô������ ���vascript ��javacript2�����ƶ�Ӧ��Ҫ���Ӹ�������о���Ӧ�öԲ�ͬ�Ļ������ͬ�Ŀ����Tamarin Tracing��arrot�����Ӧ�ò���ȫ��ϵġ� ����û�̫���⣬�����Ŀ����� 2008/6/25 ��march.liu at gmail.com>: > ��ܲ�����IKIҳǰ����һ��������������������P�� > > 2008/6/25 Eaun Lee : > >> ����һ��ӡ��ת�� Э���� ���� >> >> ���� >> http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 >> ��� zuozuo �� >> ��������Ļظ��� >> http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 >> >> ���� Wiki �ķ�� http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 >> >> >> ����ƣ���ϲ���Ͳ�ϲ��������������� û��ظ�Ҳ����ظ����������ɧ�ɡ���һ���ظ�����п����������Ŀ��ս���� >> >> ������Ϊ�����odeд����ľ������� >> _______________________________________________ >> China-pm mailing list >> China-pm at pm.org >> http://mail.pm.org/mailman/listinfo/china-pm >> > > > > -- > �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� > ���� > > ��� March.Liu > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > -- >: ~ -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/6b4b6f25/attachment-0001.html From march.liu at gmail.com Wed Jun 25 01:23:02 2008 From: march.liu at gmail.com (=?GB2312?B?wfX2zg==?=) Date: Wed, 25 Jun 2008 16:23:02 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: <41143d8f0806250115u2e49f49v8b558ca6ca3d0eae@mail.gmail.com> References: <41143d8f0806250115u2e49f49v8b558ca6ca3d0eae@mail.gmail.com> Message-ID: ����ο϶������ģ�����ܸ�����first class�����������ģ�һ��������㣬���ǿ�������ģ����alltalk���տ�ʼѧ����kell��һ����������ı���ʽ�������ɴ�����������ķ�����֣��perl����parrot�����������ġ� 2008/6/25 Question : > ��One VM to rule them ALL �ʲô������ > ���vascript ��javacript2�����ƶ�Ӧ��Ҫ���Ӹ�������о���Ӧ�öԲ�ͬ�Ļ������ͬ�Ŀ����Tamarin > Tracing��arrot�����Ӧ�ò���ȫ��ϵġ� > ����û�̫���⣬�����Ŀ����� > > > > -- �Ϊ���ɿ��ܵ���������˲�Ӧ�ñ�ȡЦ����� ���� ���arch.Liu -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/202514fd/attachment.html From limkatkat at gmail.com Wed Jun 25 01:40:34 2008 From: limkatkat at gmail.com (katkat lim) Date: Wed, 25 Jun 2008 16:40:34 +0800 Subject: [PerlChina] =?gb2312?b?zt7T78HLoaM=?= In-Reply-To: References: Message-ID: <348febc10806250140qf7f11d2r4a610a89cf40d4f8@mail.gmail.com> 总不能不让别人发表自己对于perl不爽的意见吧？ 整得跟那个号称最大的XX论坛的perl版一样。 2008/6/25 Eaun Lee : > 新手区有一个帖子。我转到 协会休闲区 区了。 > 地址是 > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 > 作者是 zuozuo 。 > 看看他其他的回复： > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 > > 还有在 Wiki 的发表： http://wiki.perlchina.org/index.php/Talk:%E9%A6%96%E9%A1%B5 > > > 我就纳闷，不喜欢就不喜欢吗。干吗老 口水？？ 没有回复也不想回复。这里发发牢骚吧。。一旦回复，就有可能又是一场无聊的口水战。。 > > 不解这种行为。难道code写多了真的就全是这样？ > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080625/deb1f20e/attachment.html From lamp.purl at gmail.com Wed Jun 25 04:44:13 2008 From: lamp.purl at gmail.com (joe jiang) Date: Wed, 25 Jun 2008 19:44:13 +0800 Subject: [PerlChina] =?utf-8?b?5peg6K+t5LqG44CC?= In-Reply-To: <348febc10806250140qf7f11d2r4a610a89cf40d4f8@mail.gmail.com> References: <348febc10806250140qf7f11d2r4a610a89cf40d4f8@mail.gmail.com> Message-ID: <1214394253.4935.2.camel@flatpan> answer this kind of question with larry's article please. http://www.perl.com/lpt/a/997 get tired of so-called programming? let's go scripting... On 三, 2008-06-25 at 16:40 +0800, katkat lim wrote: > 总不能不让别人发表自己对于perl不爽的意见吧？ > 整得跟那个号称最大的XX论坛的perl版一样。 > > > 2008/6/25 Eaun Lee : > 新手区有一个帖子。我转到 协会休闲区 区了。 > 地址是 > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=2&article_id=0002080623144836&page=40 > 作者是 zuozuo 。 > 看看他其他的回复： > http://perlchina.sun126.com/ccb/topic_view.cgi?forum=4&article_id=0004080604223745&page=40 > > 还有在 Wiki 的发表： http://wiki.perlchina.org/index.php/Talk: > %E9%A6%96%E9%A1%B5 > > > 我就纳闷，不喜欢就不喜欢吗。干吗老 口水？？ 没有回复也不想回 > 复。这里发发牢骚吧。。一旦回复，就有可能又是一场无聊的口水 > 战。。 > > 不解这种行为。难道code写多了真的就全是这样？ > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm > > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm From gary.jsz at gmail.com Thu Jun 26 20:07:31 2008 From: gary.jsz at gmail.com (gary jsz) Date: Fri, 27 Jun 2008 11:07:31 +0800 Subject: [PerlChina] =?utf-8?b?5oCO5LmI5Y+RbWFpbOaciemAgOS/oeS6hg==?= Message-ID: 昨天下午发的时候就开始有退信了，以为可能是地址写错了。今天特别检查了一下地址，确定没有写错，怎么就无故退信呢，晕呀 -- gary gary.jsz at gmail.com -------------- next part -------------- An HTML attachment was scrubbed... URL: http://mail.pm.org/pipermail/china-pm/attachments/20080627/705dc293/attachment.html From warhua at gmail.com Thu Jun 26 20:49:20 2008 From: warhua at gmail.com (war hua) Date: Fri, 27 Jun 2008 11:49:20 +0800 Subject: [PerlChina] =?gb2312?b?1PXDtLeibWFpbNPQzcvQxcHL?= In-Reply-To: References: Message-ID: <8fecffd0806262049p55905544v32da144bf8b203dd@mail.gmail.com> 没有附上原因说明麽？ 2008/6/27 gary jsz : > 昨天下午发的时候就开始有退信了，以为可能是地址写错了。今天特别检查了一下地址，确定没有写错，怎么就无故退信呢，晕呀 > > -- > gary > gary.jsz at gmail.com > _______________________________________________ > China-pm mailing list > China-pm at pm.org > http://mail.pm.org/mailman/listinfo/china-pm >