2009年7月18日星期六

[PerlChina] Re: while未初始化变量的问题

出现这个提示,感觉是使用了-w或者是use warnings;
所以我现在都不使用-w或者use warnings了。

On 7月15日, 上午11时18分, Ericzhao82 <ericzha...@gmail.com> wrote:
> 哦,确实是这样。
> 多谢
>
> 以前是将chomp放在单独行,看来不能盲目简化。。
>
> 2009/7/15 xsir317 <xsir...@163.com>
>
>
>
>
>
> > MYCODE 一共就25行,读完了就没了。你去chomp一个空变量当然报错。
>
> > 应该是
> > while (my $mycode=<MYCODE>) {
> > chomp $mycode;
> > }
>
> > 这样就可以了
>
> > 2009-07-15
> > ------------------------------
> > *中华连珠网* <http://www.shwzq.com>
>
> > *五子棋百科* <http://www.shwzq.com/wiki>
> > ------------------------------
> > *发件人:* smallfish.xy
> > *发送时间:* 2009-07-15 10:11:25
> > *收件人:* perlchina
> > *抄送:*
> > *主题:* [PerlChina] Re: while未初始化变量的问题
> > 放到while之外定义
> > --
> >http://hi.baidu.com/smallfish_xy
> >http://code.google.com/p/smallfish/
>
> > 2009/7/15 Ericzhao82 <ericzha...@gmail.com>
>
> >> 大家如何解决while循环时,变量未初始化的问题?
>
> >> 例如
> >> while (chomp(my $mycode=<MYCODE>)) {
> >> }
>
> >> 弹出警告信息
>
> >> Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.
>
> --
> ................................................
> Ericzhao
>
> Email: Ericzha...@gmail.com
> MSN: Ericzhao...@hotmail.com
> BLOG: share82.freebsder.info- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] ppm安装mod_perl注意

在ppm库看到HTML::Mason已经有1.40版本了,于是想将1.37升级一下。直接install -force。发现将mod_perl也升级了,后来查看一下,安装了mod_perl 2.0.4。正如我担忧的一样,Apache重启不成功了。看了一下mod_perl 2.0.4的说明,是为apache 2.2准备的。嗯,我的是2.0呢。重新安装对应Apache 2.0的mod_perl就可以了。
--  Perl乐事 -- http://www.perlersh.org 我的博客 -- http://www.perlersh.org/blog.html 

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

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

[PerlChina] Re: WWW::Curl::easy模块返回码

多谢了

2009/7/17 cnhack TNT <cnhacktnt@gmail.com>
咦? 这个模块的文档里不是清楚地写着:
getinfo(CURLINFO_HTTP_CODE);

这个只返回请求的状态码,要想详细点,

setopt(CURLOPT_HEADER,1)

然后取返回的内容第一行。


2009/7/17 Ericzhao82 <ericzhao82@gmail.com>

各位好,

麻烦问下WWW::Curl::easy模块中,检验返回的HTTP状态码(200OK, 404 Not Files)是哪个参数?多谢

perldoc了半天也没找到,无奈求助,请指点,谢谢。








--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

2009年7月17日星期五

[PerlChina] Re: 挂马随想

每天都有马。。只是新闻在凑字吧。。

2009/7/17 smallfish.xy <smallfish.xy@gmail.com>
啥叫马?我怎么么看到过的呢
--
blog: http://hi.baidu.com/smallfish_xy


2009/7/17 Easun <easunlee@gmail.com>

用网盾,不怕马。 嘿嘿


2009/7/17 Beckheng Lam <bi.ken.lam@gmail.com>:
> 现在看新闻,基本上每次在Microsoft有新漏洞出现后,就肯定会有大量的网站被挂马。当然现在的新闻真假程度也令人怀疑,暂时就相信
> 是真的吧,要不我的想法就没得继续了。 ;-)
> 这样看来,是被挂马的网站的漏洞早就存在了,只是以前没机会、也没必要利用,现在又有一个未有及时补丁的漏洞出现,那还不趁机会玩一玩?
> 但看一下现在公开的挂马技术,感觉稍有经验的老手就可以防御的了。那么,剩下来如果跟应用程序无关,那就是系统相关的了。嗯,要找系统管理员投诉一下。 :-)
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
>
> >
>



--
-----------------------
http://easun.org



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

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

[PerlChina] Re: 求教用~ s/.*[\\\/:]//提取文件名的问题!

为何不用模块呢
 
use File::Basename  qw/ basename  dirname / ;
 
 
 

--
           Yours Sincerely
                   Zeng Hong

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

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

[PerlChina] Re: perl的编辑器

看《高级perl编程》的第二章:实现复杂的数据结构,有蛮详细的介绍~

2009/7/17 Steven Zhu <stevenzyk@gmail.com>
请教个语法问题
$part_info->{CS}->{1}->{ADMUX}
这句代码是什么意思啊?

2009/7/16 Haiyan Lin <linhy0120@gmail.com>
我在windos  下用Komodo Edit5,在Linux(fc10)下用系统自带的Kdevelop:
Scripting
----- Original Message -----
From: "Guifeng Wei" <guifengwei@gmail.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
Sent: Monday, July 13, 2009 2:17 PM
Subject: [PerlChina] perl的编辑器


> 想请问一下各位Perl爱好者,你们用的都是什么Perl编辑器??推荐一下。
> >
>



--
BR
Steven.zhu

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

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

[PerlChina] Re: WWW::Curl::easy模块返回码

咦? 这个模块的文档里不是清楚地写着:
getinfo(CURLINFO_HTTP_CODE);

这个只返回请求的状态码,要想详细点,

setopt(CURLOPT_HEADER,1)

然后取返回的内容第一行。


2009/7/17 Ericzhao82 <ericzhao82@gmail.com>
各位好,

麻烦问下WWW::Curl::easy模块中,检验返回的HTTP状态码(200OK, 404 Not Files)是哪个参数?多谢

perldoc了半天也没找到,无奈求助,请指点,谢谢。




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

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

[PerlChina] WWW::Curl::easy模块返回码

各位好,

麻烦问下WWW::Curl::easy模块中,检验返回的HTTP状态码(200OK, 404 Not Files)是哪个参数?多谢

perldoc了半天也没找到,无奈求助,请指点,谢谢。

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

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

[PerlChina] Re: 求教用~ s/.*[\\\/:]//提取文件名的问题!

求教

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

[PerlChina] Re: perl的编辑器

请教个语法问题
$part_info->{CS}->{1}->{ADMUX}
这句代码是什么意思啊?

2009/7/16 Haiyan Lin <linhy0120@gmail.com>
我在windos  下用Komodo Edit5,在Linux(fc10)下用系统自带的Kdevelop:
Scripting
----- Original Message -----
From: "Guifeng Wei" <guifengwei@gmail.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
Sent: Monday, July 13, 2009 2:17 PM
Subject: [PerlChina] perl的编辑器


> 想请问一下各位Perl爱好者,你们用的都是什么Perl编辑器??推荐一下。
> >
>



--
BR
Steven.zhu

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

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

2009年7月16日星期四

[PerlChina] Re: 挂马随想

啥叫马?我怎么么看到过的呢
--
blog: http://hi.baidu.com/smallfish_xy


2009/7/17 Easun <easunlee@gmail.com>
用网盾,不怕马。 嘿嘿


2009/7/17 Beckheng Lam <bi.ken.lam@gmail.com>:
> 现在看新闻,基本上每次在Microsoft有新漏洞出现后,就肯定会有大量的网站被挂马。当然现在的新闻真假程度也令人怀疑,暂时就相信
> 是真的吧,要不我的想法就没得继续了。 ;-)
> 这样看来,是被挂马的网站的漏洞早就存在了,只是以前没机会、也没必要利用,现在又有一个未有及时补丁的漏洞出现,那还不趁机会玩一玩?
> 但看一下现在公开的挂马技术,感觉稍有经验的老手就可以防御的了。那么,剩下来如果跟应用程序无关,那就是系统相关的了。嗯,要找系统管理员投诉一下。 :-)
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
>
> >
>



--
-----------------------
http://easun.org




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

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

[PerlChina] Re: 挂马随想

用网盾,不怕马。 嘿嘿


2009/7/17 Beckheng Lam <bi.ken.lam@gmail.com>:
> 现在看新闻,基本上每次在Microsoft有新漏洞出现后,就肯定会有大量的网站被挂马。当然现在的新闻真假程度也令人怀疑,暂时就相信
> 是真的吧,要不我的想法就没得继续了。 ;-)
> 这样看来,是被挂马的网站的漏洞早就存在了,只是以前没机会、也没必要利用,现在又有一个未有及时补丁的漏洞出现,那还不趁机会玩一玩?
> 但看一下现在公开的挂马技术,感觉稍有经验的老手就可以防御的了。那么,剩下来如果跟应用程序无关,那就是系统相关的了。嗯,要找系统管理员投诉一下。 :-)
>
> --
> Perl乐事 -- http://www.perlersh.org
> 我的博客 -- http://www.perlersh.org/blog.html
>
> >
>

--
-----------------------
http://easun.org

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

[PerlChina] 挂马随想

现在看新闻,基本上每次在Microsoft有新漏洞出现后,就肯定会有大量的网站被挂马。当然现在的新闻真假程度也令人怀疑,暂时就相信 是真的吧,要不我的想法就没得继续了。 ;-)
这样看来,是被挂马的网站的漏洞早就存在了,只是以前没机会、也没必要利用,现在又有一个未有及时补丁的漏洞出现,那还不趁机会玩一玩?
但看一下现在公开的挂马技术,感觉稍有经验的老手就可以防御的了。那么,剩下来如果跟应用程序无关,那就是系统相关的了。嗯,要找系统管理员投诉一下。 :-)

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

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

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

[PerlChina] 求教用~ s/.*[\\\/:]//提取文件名的问题!

如下所示用~ s/.*[\\\/:]//正则提取文件名时,如果是C:\\Documents and Settings\\zmingjie\\桌
面\\新建文件夹 (2)\\2005101421233939820.xxx.jpg 或是 路径文件都能提取正
常.这时如传入的 只是 2005101421233939820.xxx.jpg ,则提取出错.

提取不要扩展名的文件名
($'filename) = ~ s/.*[\\\/:]//;

正常提取出结果应为 2005101421233939820.xxx 没有.jpg

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

[PerlChina] 求教用~ m!.*/(.*)\.!;提取文件名的问题!

如下所示用=~ m!.*/(.*)\.! 正则提取文件名时,如果是http://www.xx.com/xx.jpg 或是 路径文件都能提取正
常.这时如传入的 只是 xx.jpg,则提取出错.


提取不要扩展名的文件名
($'filename) = $url =~ m!.*/(.*)\.!;
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求教虚拟主机配置

SuexecUserGroup Directive

Description: User and group for CGI programs to run as
Syntax: SuexecUserGroup User Group
Context: server config, virtual host
Status: Extension
Module: mod_suexec
Compatibility: SuexecUserGroup is only available in 2.0 and later.

The SuexecUserGroup directive allows you to specify a user and group for CGI programs to run as. Non-CGI requests are still processes with the user specified in the User directive. This directive replaces the Apache 1.3 configuration of using the User and Group directives inside of VirtualHosts.

Example

SuexecUserGroup nobody nogroup
 
试过了,,但不行。 放弃了,

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

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

[PerlChina] Re: perl的编辑器

我在windos 下用Komodo Edit5,在Linux(fc10)下用系统自带的Kdevelop:
Scripting
----- Original Message -----
From: "Guifeng Wei" <guifengwei@gmail.com>
To: "PerlChina Mongers 讨论组" <perlchina@googlegroups.com>
Sent: Monday, July 13, 2009 2:17 PM
Subject: [PerlChina] perl的编辑器


> 想请问一下各位Perl爱好者,你们用的都是什么Perl编辑器??推荐一下。
> >
>


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

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

不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post
10.0
之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0

不知道在Windows环境下ActivePerl5.10.0 Build1004是不是有内存泄漏的Bug?

On 7月16日, 下午12时10分, agentzh <agen...@gmail.com> wrote:
> On 7/16/09, zhang jiaqiang <zhangjiaqi...@gmail.com> wrote:
>
> > 大家好,
>
> > 请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些相关的应用。
>
> > 现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲突。怎么做最好?
>
> > 是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由root安装?之后环境变量需要怎样的修改?
>
> 可以不用 root,只要安装位置你有写权限即可,呵呵。
>
> 比如我们的一个打包机器上的 perl 编译方式:
>
> cd /opt/crawlspace/agentz/pg2hunter
> wget 'http://search.cpan.org/CPAN/authors/id/N/NW/NWCLARK/perl-5.8.9.tar.bz2'
> tar -xjvf perl-5.8.9.tar.bz2
> cd perl-5.8.9
> rm config.sh
> sh Configure -Dinc_version_list=none -Dprefix=/opt/pg2hunter/perl
> -DPERL_DONT_CREATE_GVSV -des
> make -j2
> sudo make install
>
> 比如这里我们自己的 perl 就安装到了 /opt/pg2hunter/perl/ 下。
>
> 以后使用自己的 perl,可以用 /opt/pg2hunter/perl/bin/perl 来调用(或者把 perl 安装路径加到自己的
> PATH 环境变量的开头)。
>
> 向自己的 perl 安装模块,可以使用
>
> /opt/pg2hunter/perl/bin/cpan Foo::Bar
>
> 就可以了。这里 /opt/pg2hunter/perl 只是一个例子,你也可以写作 /home/foo/perl 之类的,呵呵。
>
> 不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
> 之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:
>
> rsync -avz rsync://perl5.git.perl.org/APC/perl-current/ ./
> cd perl-current
> rm config.sh
> sh Configure -Dinc_version_list=none -Dprefix=/opt/xhunter/perl
> -Dusedevel -des
> make -j2
> sudo make install
>
> 或者 check out 一下 git repos 直接编 head,请参考http://dev.perl.org/perl5/source.html
>
> 严重支持你们使用自己编译和安装的 perl,因为
>
> Perl Admin Rule #1: Use your own perl.
>
> 我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
> 生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。
>
> Cheers,
> -agentzh
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 求教虚拟主机配置

請嘗試 在
<VirtualHost ....>
....
</VirtualHost>
中加入如
User apache
Group apache
的用戶設定看看,我未測試過,但看過有關設定
http://httpd.apache.org/docs/1.3/mod/core.html#user

-------- Original Message  --------
Subject: [PerlChina] Re: 求教虚拟主机配置
From: x2x4 <x2x4com@gmail.com>
To: perlchina@googlegroups.com
Date: 15/7/2009 18:46
怎么给虚拟主机份一个apache 运行用户呢? 用cgiwrap可以做到每个虚机的cgi的请求由特定的用户来执行,不知道是不是你要的东西 http://cgiwrap.sourceforge.net/     2009/7/15 钟声 <gh00920307@gmail.com>:   
弄了一下午,,把suexec装上了,,但还是不行。。      
    

--  Best Regards, 	Anthony WU

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

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

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

我也是自己编译一个 perl5.11,丢到 /opt/dev 下,然后做两个 alias 放到 .bashrc:
----
alias devperl='PATH=${PATH_NORMAL:-$PATH};export PATH_NORMAL=$PATH;export PATH=/opt/dev/perl/bin:$PATH;echo -e "\nPATH=$PATH\nPATH_NORMAL=$PATH_NORMAL\n"'

alias normal='PATH=${PATH_NORMAL:-$PATH};export PATH=$PATH;unset PATH_NORMAL;echo -e "\nPATH=$PATH\n"'
----
这样,当我要使用 perl5.11 做开发的时候,只要开个 term,输入命令 devperl,即可用自己编辑的 perl来做开发了
当我想切换回系统自带的 perl,只要输入命令 normal 就回去了。
非常方便 ;-)

2009/7/16 Troy <magicxiaowei@gmail.com>
同意
我们产品安装时都会自己安装自带的perl~~~~

On 7月16日, 下午12时24分, agentzh <agen...@gmail.com> wrote:
> On 7/16/09, agentzh <agen...@gmail.com> wrote:
>
> > 不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
> > 之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:
>
> 当然,另一种选择是耐心等待 5.10.1 的问世,呵呵。关于 p5p 发布 perl 的迟缓问题,最后确实有少哥们在抱怨和思考了,比如
> chromatic:http://use.perl.org/~chromatic/journal/39228 还有 David
> Wheeler:http://www.justatheory.com/computers/databases/postgresql/perl/pg-vs-...
>
> > 我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
> > 生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。
>
> 这里的一大主要原因是,无论是 OS 提供商还是 Yahoo 体系的负责人,都喜欢自己往里面乱打补丁,哈哈!经常出一些莫名其妙的问题。
>
> Cheers,
> -agentzh



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

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

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

同意
我们产品安装时都会自己安装自带的perl~~~~

On 7月16日, 下午12时24分, agentzh <agen...@gmail.com> wrote:
> On 7/16/09, agentzh <agen...@gmail.com> wrote:
>
> > 不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
> > 之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:
>
> 当然,另一种选择是耐心等待 5.10.1 的问世,呵呵。关于 p5p 发布 perl 的迟缓问题,最后确实有少哥们在抱怨和思考了,比如
> chromatic:http://use.perl.org/~chromatic/journal/39228 还有 David
> Wheeler:http://www.justatheory.com/computers/databases/postgresql/perl/pg-vs-...
>
> > 我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
> > 生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。
>
> 这里的一大主要原因是,无论是 OS 提供商还是 Yahoo 体系的负责人,都喜欢自己往里面乱打补丁,哈哈!经常出一些莫名其妙的问题。
>
> Cheers,
> -agentzh
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教个包的数组问题 Not a SCALAR reference 错误

谢谢指导

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

2009年7月15日星期三

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

同意 agentzh 的回答。

特别是在不同 team 中,通常会有模块安装,升级不同要求的问题。使用自己 team 的 perl 是个正确选择。至于不同的模块在不同
perl 版本的支持程度也可能会有问题(即需要升级到相对于这个 perl 版本的安装才可以)

perl install 里有更详细的关于 perl
安装方案的建议和信息,建议需要做此类任务的朋友仔细阅读下,受益匪浅。http://search.cpan.org/~nwclark/perl-5.8.9/INSTALL

Qiang

2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com>:
> 感谢agentzh和各位的回答。
>
>
> Best regards
> Zhang JiaQiang
>
>
>
> 2009/7/16 agentzh <agentzh@gmail.com>
>>
>> On 7/16/09, zhang jiaqiang <zhangjiaqiang@gmail.com> wrote:
>> > 大家好,
>> >
>> > 请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些相关的应用。
>> >
>> > 现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲突。怎么做最好?
>> >
>> > 是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由root安装?之后环境变量需要怎样的修改?
>> >
>>
>> 可以不用 root,只要安装位置你有写权限即可,呵呵。
>>
>> 比如我们的一个打包机器上的 perl 编译方式:
>>
>> cd /opt/crawlspace/agentz/pg2hunter
>> wget
>> 'http://search.cpan.org/CPAN/authors/id/N/NW/NWCLARK/perl-5.8.9.tar.bz2'
>> tar -xjvf perl-5.8.9.tar.bz2
>> cd perl-5.8.9
>> rm config.sh
>> sh Configure -Dinc_version_list=none -Dprefix=/opt/pg2hunter/perl
>> -DPERL_DONT_CREATE_GVSV -des
>> make -j2
>> sudo make install
>>
>> 比如这里我们自己的 perl 就安装到了 /opt/pg2hunter/perl/ 下。
>>
>> 以后使用自己的 perl,可以用 /opt/pg2hunter/perl/bin/perl 来调用(或者把 perl 安装路径加到自己的
>> PATH 环境变量的开头)。
>>
>> 向自己的 perl 安装模块,可以使用
>>
>> /opt/pg2hunter/perl/bin/cpan Foo::Bar
>>
>> 就可以了。这里 /opt/pg2hunter/perl 只是一个例子,你也可以写作 /home/foo/perl 之类的,呵呵。
>>
>> 不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
>> 之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:
>>
>> rsync -avz rsync://perl5.git.perl.org/APC/perl-current/ ./
>> cd perl-current
>> rm config.sh
>> sh Configure -Dinc_version_list=none -Dprefix=/opt/xhunter/perl
>> -Dusedevel -des
>> make -j2
>> sudo make install
>>
>> 或者 check out 一下 git repos 直接编 head,请参考
>> http://dev.perl.org/perl5/source.html
>>
>> 严重支持你们使用自己编译和安装的 perl,因为
>>
>> Perl Admin Rule #1: Use your own perl.
>>
>> 我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
>> 生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。
>>
>> Cheers,
>> -agentzh
>>
>>
>
>
> >
>

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

[PerlChina] Re: 请教个包的数组问题 Not a SCALAR reference 错误

2009/7/16 imxae <imx365ster@gmail.com>:
> $var->{text_list} = ["文本1", "文本2", "文本3"];
>
> 如上定义可以$var->{text_list}[n]的方式引用..

顺便说一下,从代码清晰度考虑,这个的写法应该是 $var->{text_list}->[n]

Qiang

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

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

On 7/16/09, agentzh <agentzh@gmail.com> wrote:
> 不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
> 之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:
>

当然,另一种选择是耐心等待 5.10.1 的问世,呵呵。关于 p5p 发布 perl 的迟缓问题,最后确实有少哥们在抱怨和思考了,比如
chromatic: http://use.perl.org/~chromatic/journal/39228 还有 David
Wheeler: http://www.justatheory.com/computers/databases/postgresql/perl/pg-vs-perl-dev.html

> 我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
> 生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。
>

这里的一大主要原因是,无论是 OS 提供商还是 Yahoo 体系的负责人,都喜欢自己往里面乱打补丁,哈哈!经常出一些莫名其妙的问题。

Cheers,
-agentzh

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

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

感谢agentzh和各位的回答。


Best regards
Zhang JiaQiang



2009/7/16 agentzh <agentzh@gmail.com>
On 7/16/09, zhang jiaqiang <zhangjiaqiang@gmail.com> wrote:
> 大家好,
>
> 请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些相关的应用。
>
> 现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲突。怎么做最好?
>
> 是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由root安装?之后环境变量需要怎样的修改?
>

可以不用 root,只要安装位置你有写权限即可,呵呵。

比如我们的一个打包机器上的 perl 编译方式:

 cd /opt/crawlspace/agentz/pg2hunter
 wget 'http://search.cpan.org/CPAN/authors/id/N/NW/NWCLARK/perl-5.8.9.tar.bz2'
 tar -xjvf perl-5.8.9.tar.bz2
 cd perl-5.8.9
 rm config.sh
 sh Configure -Dinc_version_list=none -Dprefix=/opt/pg2hunter/perl
-DPERL_DONT_CREATE_GVSV -des
 make -j2
 sudo make install

比如这里我们自己的 perl 就安装到了 /opt/pg2hunter/perl/ 下。

以后使用自己的 perl,可以用 /opt/pg2hunter/perl/bin/perl 来调用(或者把 perl 安装路径加到自己的
PATH 环境变量的开头)。

向自己的 perl 安装模块,可以使用

   /opt/pg2hunter/perl/bin/cpan Foo::Bar

就可以了。这里 /opt/pg2hunter/perl 只是一个例子,你也可以写作  /home/foo/perl 之类的,呵呵。

不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:

 rsync -avz rsync://perl5.git.perl.org/APC/perl-current/ ./
 cd perl-current
 rm config.sh
 sh Configure -Dinc_version_list=none -Dprefix=/opt/xhunter/perl
-Dusedevel -des
 make -j2
 sudo make install

或者 check out 一下 git repos 直接编 head,请参考 http://dev.perl.org/perl5/source.html

严重支持你们使用自己编译和安装的 perl,因为

  Perl Admin Rule #1: Use your own perl.

我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。

Cheers,
-agentzh




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

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

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

On 7/16/09, zhang jiaqiang <zhangjiaqiang@gmail.com> wrote:
> 大家好,
>
> 请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些相关的应用。
>
> 现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲突。怎么做最好?
>
> 是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由root安装?之后环境变量需要怎样的修改?
>

可以不用 root,只要安装位置你有写权限即可,呵呵。

比如我们的一个打包机器上的 perl 编译方式:

cd /opt/crawlspace/agentz/pg2hunter
wget 'http://search.cpan.org/CPAN/authors/id/N/NW/NWCLARK/perl-5.8.9.tar.bz2'
tar -xjvf perl-5.8.9.tar.bz2
cd perl-5.8.9
rm config.sh
sh Configure -Dinc_version_list=none -Dprefix=/opt/pg2hunter/perl
-DPERL_DONT_CREATE_GVSV -des
make -j2
sudo make install

比如这里我们自己的 perl 就安装到了 /opt/pg2hunter/perl/ 下。

以后使用自己的 perl,可以用 /opt/pg2hunter/perl/bin/perl 来调用(或者把 perl 安装路径加到自己的
PATH 环境变量的开头)。

向自己的 perl 安装模块,可以使用

/opt/pg2hunter/perl/bin/cpan Foo::Bar

就可以了。这里 /opt/pg2hunter/perl 只是一个例子,你也可以写作 /home/foo/perl 之类的,呵呵。

不推荐从 perl 5.10.0 自己编译源码,因为 perl 5.10.0 有多处内存泄漏的 bug. 如果一定想享受 post 10.0
之后的性能提升和新特性,可以考虑直接编译 bleadperl,即 perl 5.11.0:

rsync -avz rsync://perl5.git.perl.org/APC/perl-current/ ./
cd perl-current
rm config.sh
sh Configure -Dinc_version_list=none -Dprefix=/opt/xhunter/perl
-Dusedevel -des
make -j2
sudo make install

或者 check out 一下 git repos 直接编 head,请参考 http://dev.perl.org/perl5/source.html

严重支持你们使用自己编译和安装的 perl,因为

Perl Admin Rule #1: Use your own perl.

我们自己也在吃了系统里的 Perl 的无数苦头之后,才决定打自己的 perl rpm 包的,呵呵。在我们的环境里,Yahoo
生产机上多有两个"系统 perl",一个是 OS 自带的,另一个则是 Yahoo 体系自带的,其实都不够靠谱,只有自己编的最靠谱,呵呵。

Cheers,
-agentzh

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

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

就是说如果perl不变,相同的模块的不同版本之间可以互不干扰?

只要安装的时候指定特定的目录就可以了?

然后用的时候通过改变环境变量来切换用哪个版本的模块,是么?


Best regards
Zhang JiaQiang



2009/7/16 longbow <longbow0@163.com>
zhang jiaqiang wrote:
> 其实是我们team要用,现在机器上的perl是其他team的。不想影响别人的东西。
>
> Best regards
> Zhang JiaQiang
>
> 是 Perl 程序还是模块?
如果是 Perl 程序本身,除非是想测试不同的 Perl 版本,比如 5.8 或 5.10,否
则看不出来有重新装的必要。

如果是模块,模块是可以安装在指定的目录下,不会互相干扰。
>
> 2009/7/16 Rainbird <chinakapalink@gmail.com
> <mailto:chinakapalink@gmail.com>>
>
>     自己用的话,咱别在服务器上做实验了吧:)
>
>     2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com
>     <mailto:zhangjiaqiang@gmail.com>>
>
>         大家好,
>
>         请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些
>         相关的应用。
>
>         现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲
>         突。怎么做最好?
>
>         是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由
>         root安装?之后环境变量需要怎样的修改?
>
>
>
>
>         --
>         态度决定高度,技术成就梦想
>
>
>
>
> >






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

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

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

嘿嘿,,ubunt9 上自带了 两个perl ,和perl5.10
想的还真周到



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

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

[PerlChina] Re: 请教个包的数组问题 Not a SCALAR reference 错误

foreach my $text (@{$var->{text_list}})
{
}

2009/7/16 imxae <imx365ster@gmail.com>
$var->{text_list}  = ["文本1", "文本2", "文本3"];

如上定义可以$var->{text_list}[n]的方式引用..

当如下使用时
foreach my $text ($var->{'text_list'})
{
}

perl 报 Not a SCALAR reference 错误.....请教高手该怎么办...



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

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

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

zhang jiaqiang wrote:
> 其实是我们team要用,现在机器上的perl是其他team的。不想影响别人的东西。
>
> Best regards
> Zhang JiaQiang
>
> 是 Perl 程序还是模块?
如果是 Perl 程序本身,除非是想测试不同的 Perl 版本,比如 5.8 或 5.10,否
则看不出来有重新装的必要。

如果是模块,模块是可以安装在指定的目录下,不会互相干扰。
>
> 2009/7/16 Rainbird <chinakapalink@gmail.com
> <mailto:chinakapalink@gmail.com>>
>
> 自己用的话,咱别在服务器上做实验了吧:)
>
> 2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com
> <mailto:zhangjiaqiang@gmail.com>>
>
> 大家好,
>
> 请教一下,如果在一台服务器(Sun)上已经存在perl,并且有了一些
> 相关的应用。
>
> 现在我想再装个自己用的perl,目的是不能影响之前的应用,互不冲
> 突。怎么做最好?
>
> 是不是加一个新用户单独使用这个perl比较好。新perl是不是需要由
> root安装?之后环境变量需要怎样的修改?
>
>
>
>
> --
> 态度决定高度,技术成就梦想
>
>
>
>
> >

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

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

其实是我们team要用,现在机器上的perl是其他team的。不想影响别人的东西。

Best regards
Zhang JiaQiang



2009/7/16 Rainbird <chinakapalink@gmail.com>
自己用的话,咱别在服务器上做实验了吧:)

2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com>
大家好,

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

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

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




--
态度决定高度,技术成就梦想




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

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

[PerlChina] 请教个包的数组问题 Not a SCALAR reference 错误

$var->{text_list} = ["文本1", "文本2", "文本3"];

如上定义可以$var->{text_list}[n]的方式引用..

当如下使用时
foreach my $text ($var->{'text_list'})
{
}

perl 报 Not a SCALAR reference 错误.....请教高手该怎么办...
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

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

自己用的话,咱别在服务器上做实验了吧:)

2009/7/16 zhang jiaqiang <zhangjiaqiang@gmail.com>
大家好,

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

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

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




--
态度决定高度,技术成就梦想

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

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

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

大家好,

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

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

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



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

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

[PerlChina] Re: 请教:如何匹配如下的hash?

读文件建议用while,用for是不是太繁琐了,效率还不高

2009/7/16 Excel Chen <excel.chen.usa@gmail.com>

Kevin_li,Joe jiang, thanks.

%word=();
@file=();

open (DATA,"test.data")|| die $!  ;

@line=<DATA>;

for ($index=0;$index<@line;$index++){

   @file=split /:/,$line[$index],2;
   $word{$file[0]}=$file[1];

}
while (($key,$value)=each(%word)){
    print "$key\n";

}

close (DATA);

Thanks all. Plz give me some suggestion for up.


On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
> $a='1:22:3';
> $a=~/(.*?):(.*)/;
> print "$1\n";
> print "$2\n";
>
> On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > 我打开文件test.data 内容如下:
> > text1.txt:http://google.com
> > pts2.txt:http://google.com
> > rtxhand.txt:googlefile.
>
> > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > 请问如何匹配?

--
态度决定高度,技术成就梦想

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

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

[PerlChina] Re: perl的编辑器

超酷fck党~

On 7月13日, 下午2时17分, Guifeng Wei <guifeng...@gmail.com> wrote:
> 想请问一下各位Perl爱好者,你们用的都是什么Perl编辑器??推荐一下。
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

Kevin_li,Joe jiang, thanks.

%word=();
@file=();

open (DATA,"test.data")|| die $! ;

@line=<DATA>;

for ($index=0;$index<@line;$index++){

@file=split /:/,$line[$index],2;
$word{$file[0]}=$file[1];

}
while (($key,$value)=each(%word)){
print "$key\n";

}

close (DATA);

Thanks all. Plz give me some suggestion for up.


On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
> $a='1:22:3';
> $a=~/(.*?):(.*)/;
> print "$1\n";
> print "$2\n";
>
> On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > 我打开文件test.data 内容如下:
> > text1.txt:http://google.com
> > pts2.txt:http://google.com
> > rtxhand.txt:googlefile.
>
> > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

OK. thank you very much.

On Jul 15, 1:33 am, kevin_li <xiaohuidexi...@163.com> wrote:
> $a='2:3:4';
> @b=split /:/,$a,2;
> print "@b\n";
>
> 这样也可以
> 写个循环把你想要的东西套进去就好了
> On 7月15日, 下午1时54分, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > run the result :
>
> > @line=<DATA>;
> > %word=@line;
> > %word=~/(.*?):(.*)/;
>
> > print %word;
>
> > Applying pattern match (m//) to %hash will act on scalar(%hash) at
> > test.pl line 11.
> > Odd number of elements in hash assignment at test.pl line 12, <DATA>
> > line 4.
>
> > On Jul 14, 9:40 pm, Excel Chen <excel.chen....@gmail.com> wrote:
>
> > > 我测试了一下,好像不行。
> > > 我这样写,为什么不行?
> > > @line=<DATA>;
>
> > > %word=split (/:{1}/,@line);
>
> > > On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
>
> > > > $a='1:22:3';
> > > > $a=~/(.*?):(.*)/;
> > > > print "$1\n";
> > > > print "$2\n";
>
> > > > On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
> > > > > 我打开文件test.data 内容如下:
> > > > > text1.txt:http://google.com
> > > > > pts2.txt:http://google.com
> > > > > rtxhand.txt:googlefile.
>
> > > > > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > > > > 请问如何匹配?- 隐藏被引用文字 -
>
> > - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: perl的编辑器

PerlEdit也很不错。

2009/7/14 Yuan Jiang <sleetdrop@gmail.com>
对了,突然想起来这个比较搞笑的perl编辑器,记得读书的时候用过一阵子。

它高显代码块的方式比较别致! 



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

和用什么字符编码根本没关系


在2009-07-14,"钟声" <gh00920307@gmail.com> 写道:

谢谢了,,我用UTF8编写就OK了。省了很多麻烦

2009/7/14 Jacky Xu <x2x4com@gmail.com>
dos2unix 转下呀

在 2009-07-13一的 18:40 +0800,钟声写道:
> 我用eclipse写完的程序传到ubuntu上运行不了。
> 直接用VI就没问题。。
>
> 后来我把程序 cat 到一个新文本上。打开一看多了很多奇怪字符
>
> 看来它们还不通用。晕
>
>
>
>
> >









200万种商品,最低价格,疯狂诱惑你



--


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

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

[PerlChina] Re: 求教虚拟主机配置

怎么给虚拟主机份一个apache 运行用户呢?
用cgiwrap可以做到每个虚机的cgi的请求由特定的用户来执行,不知道是不是你要的东西
http://cgiwrap.sourceforge.net/


2009/7/15 钟声 <gh00920307@gmail.com>:
> 弄了一下午,,把suexec装上了,,但还是不行。。
>
> >
>

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

[PerlChina] Re: 请教下一步路,麻烦指点下,谢谢

http://perldoc.perl.org/perlref.html
http://perldoc.perl.org/perldsc.html
http://perldoc.perl.org/perldsc.html

王道~

2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
我最近两周看完了perl入门手礼,写了两个小脚本,其中一脚本没写完遇到瓶颈,特别在哈希、二位数组、三维数组方面,请问该看看什么书和例子好?以便快速突破瓶颈:)



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

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

[PerlChina] Re: 求教虚拟主机配置

弄了一下午,,把suexec装上了,,但还是不行。。

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

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

[PerlChina] Re: 求教虚拟主机配置

cgiwrap 可以做到

2009/7/15 钟声 <gh00920307@gmail.com>
谢谢 

Anthony WU

找到问题了
_ENV["LANG"]C
_ENV["APACHE_RUN_GROUP"]admint
_ENV["APACHE_RUN_USER"]admint
这是phpinfo()打印出来的,是我改过之后的,以前是默认的www-data用户

开始我在php.ini里面打www-data

grep 'www-data' /etc/php5/apache2/php.ini
没找到。。我想是不是应该在apache配置文件里面呢?因为上面提示的是apache用户

后来在 /etc/apache2/apache2.conf 里面找到这么一句
# These need to be set in /etc/apache2/envvars
User ${APACHE_RUN_USER}
Group ${APACHE_RUN_GROUP}

终于在/etc/apache2/envvars里面找到了

# Since there is no sane way to get the parsed apache2 config in scripts, some
# settings are defined via environment variables and then used in apache2ctl,
# /etc/init.d/apache2, /etc/logrotate.d/apache2, etc.
export APACHE_RUN_USER=www-data
export APACHE_RUN_GROUP=www-data
export APACHE_PID_FILE=/var/run/apache2.pid
改过重启下就好了。。
还有个问题就是怎么给虚拟主机份一个apache 运行用户呢?


 



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

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

[PerlChina] Re: 请教下一步路,麻烦指点下,谢谢

Perl 语言编程


On 7月15日, 下午4时32分, Ericzhao82 <ericzha...@gmail.com> wrote:
> 我最近两周看完了perl入门手礼,写了两个小脚本,其中一脚本没写完遇到瓶颈,特别在哈希、二位数组、三维数组方面,请问该看看什么书和例子好?以便快速突破-瓶颈:)
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

$a='2:3:4';
@b=split /:/,$a,2;
print "@b\n";

这样也可以
写个循环把你想要的东西套进去就好了
On 7月15日, 下午1时54分, Excel Chen <excel.chen....@gmail.com> wrote:
> run the result :
>
> @line=<DATA>;
> %word=@line;
> %word=~/(.*?):(.*)/;
>
> print %word;
>
> Applying pattern match (m//) to %hash will act on scalar(%hash) at
> test.pl line 11.
> Odd number of elements in hash assignment at test.pl line 12, <DATA>
> line 4.
>
> On Jul 14, 9:40 pm, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > 我测试了一下,好像不行。
> > 我这样写,为什么不行?
> > @line=<DATA>;
>
> > %word=split (/:{1}/,@line);
>
> > On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
>
> > > $a='1:22:3';
> > > $a=~/(.*?):(.*)/;
> > > print "$1\n";
> > > print "$2\n";
>
> > > On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
> > > > 我打开文件test.data 内容如下:
> > > > text1.txt:http://google.com
> > > > pts2.txt:http://google.com
> > > > rtxhand.txt:googlefile.
>
> > > > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > > > 请问如何匹配?- 隐藏被引用文字 -
>
> - 显示引用的文字 -
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 请教下一步路,麻烦指点下,谢谢

我最近两周看完了perl入门手礼,写了两个小脚本,其中一脚本没写完遇到瓶颈,特别在哈希、二位数组、三维数组方面,请问该看看什么书和例子好?以便快速突破瓶颈:)
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

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

2009年7月14日星期二

[PerlChina] Re: 请教:如何匹配如下的hash?

I understand what you mean. Thank you very much for help.

On Jul 14, 10:16 pm, joe jiang <lamp.p...@gmail.com> wrote:
> 因为这样会反复重置 hash,而且始终只有一个 key-value 对在其中。
> 目前 hash 的使用方法是 $hash{$key} = $value;
> 将来可以用 %hash{$key} = $value;
> 但是没有你这样使用的。
>
> 2009/7/15 Excel Chen <excel.chen....@gmail.com>
>
> 我测试了一下,好像不行。
>
>
>
> > 我这样写,为什么不行?
> > @line=<DATA>;
>
> > %word=split (/:{1}/,@line);
>
> > On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
> > > $a='1:22:3';
> > > $a=~/(.*?):(.*)/;
> > > print "$1\n";
> > > print "$2\n";
>
> > > On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
> > > > 我打开文件test.data 内容如下:
> > > > text1.txt:http://google.com
> > > > pts2.txt:http://google.com
> > > > rtxhand.txt:googlefile.
>
> > > > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > > > 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

run the result :

@line=<DATA>;
%word=@line;
%word=~/(.*?):(.*)/;

print %word;

Applying pattern match (m//) to %hash will act on scalar(%hash) at
test.pl line 11.
Odd number of elements in hash assignment at test.pl line 12, <DATA>
line 4.

On Jul 14, 9:40 pm, Excel Chen <excel.chen....@gmail.com> wrote:
> 我测试了一下,好像不行。
> 我这样写,为什么不行?
> @line=<DATA>;
>
> %word=split (/:{1}/,@line);
>
> On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
>
>
>
> > $a='1:22:3';
> > $a=~/(.*?):(.*)/;
> > print "$1\n";
> > print "$2\n";
>
> > On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
> > > 我打开文件test.data 内容如下:
> > > text1.txt:http://google.com
> > > pts2.txt:http://google.com
> > > rtxhand.txt:googlefile.
>
> > > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > > 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

因为这样会反复重置 hash,而且始终只有一个 key-value 对在其中。
目前 hash 的使用方法是 $hash{$key} = $value;
将来可以用 %hash{$key} = $value;
但是没有你这样使用的。

2009/7/15 Excel Chen <excel.chen.usa@gmail.com>

我测试了一下,好像不行。
我这样写,为什么不行?
@line=<DATA>;

%word=split (/:{1}/,@line);

On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
> $a='1:22:3';
> $a=~/(.*?):(.*)/;
> print "$1\n";
> print "$2\n";
>
> On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > 我打开文件test.data 内容如下:
> > text1.txt:http://google.com
> > pts2.txt:http://google.com
> > rtxhand.txt:googlefile.
>
> > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > 请问如何匹配?




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

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

[PerlChina] Re: 请教:如何匹配如下的hash?

我测试了一下,好像不行。
我这样写,为什么不行?
@line=<DATA>;

%word=split (/:{1}/,@line);

On Jul 14, 9:31 pm, kevin_li <xiaohuidexi...@163.com> wrote:
> $a='1:22:3';
> $a=~/(.*?):(.*)/;
> print "$1\n";
> print "$2\n";
>
> On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
>
>
>
> > 我打开文件test.data 内容如下:
> > text1.txt:http://google.com
> > pts2.txt:http://google.com
> > rtxhand.txt:googlefile.
>
> > 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> > 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

$a='1:22:3';
$a=~/(.*?):(.*)/;
print "$1\n";
print "$2\n";


On 7月15日, 下午12时16分, Excel Chen <excel.chen....@gmail.com> wrote:
> 我打开文件test.data 内容如下:
> text1.txt:http://google.com
> pts2.txt:http://google.com
> rtxhand.txt:googlefile.
>
> 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] Re: 请教:如何匹配如下的hash?

有些行具有多个:符号。有些只有一个。

On Jul 14, 9:16 pm, Excel Chen <excel.chen....@gmail.com> wrote:
> 我打开文件test.data 内容如下:
> text1.txt:http://google.com
> pts2.txt:http://google.com
> rtxhand.txt:googlefile.
>
> 我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.
>
> 请问如何匹配?
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖,请发电子邮件到 perlchina@googlegroups.com
要退订此论坛,请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---

[PerlChina] 请教:如何匹配如下的hash?

我打开文件test.data 内容如下:
text1.txt:http://google.com
pts2.txt:http://google.com
rtxhand.txt:googlefile.

我的目的:把每行第一个:符号之前的字符串赋给一个hash数组的key.

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

[PerlChina] Re: while未初始化变量的问题

哦,确实是这样。
多谢

以前是将chomp放在单独行,看来不能盲目简化。。

2009/7/15 xsir317 <xsir317@163.com>
MYCODE 一共就25行,读完了就没了。你去chomp一个空变量当然报错。
 
应该是
 while (my $mycode=<MYCODE>) {
chomp  $mycode;
}
 
这样就可以了
 
2009-07-15


发件人: smallfish.xy
发送时间: 2009-07-15  10:11:25
收件人: perlchina
抄送:
主题: [PerlChina] Re: while未初始化变量的问题
放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.









--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: while未初始化变量的问题

MYCODE 一共就25行,读完了就没了。你去chomp一个空变量当然报错。
 
应该是
 while (my $mycode=<MYCODE>) {
chomp  $mycode;
}
 
这样就可以了
 
2009-07-15


发件人: smallfish.xy
发送时间: 2009-07-15  10:11:25
收件人: perlchina
抄送:
主题: [PerlChina] Re: while未初始化变量的问题
放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.





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

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

[PerlChina] Re: while未初始化变量的问题

出错在这儿,你改过的代码却不见贴这部分上来

Use of uninitialized value in chomp at mycurl.pl line 28, <MYCODE> line 26.

麻烦把相关代码片段贴全~

2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
谢谢回复。

我也考虑到在while外进行定义,但是还是报错。

定义:
my ($mydomain, $myport, $ipaddr, $mycode);

报错:
Use of uninitialized value in chomp at mycurl.pl line 28, <MYCODE> line 26.


2009/7/15 smallfish.xy <smallfish.xy@gmail.com>

放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>

大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.










--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info





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

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

[PerlChina] Re: while未初始化变量的问题

my $mycode=undef;
--
blog: http://hi.baidu.com/smallfish_xy


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
谢谢回复。

我也考虑到在while外进行定义,但是还是报错。

定义:
my ($mydomain, $myport, $ipaddr, $mycode);

报错:
Use of uninitialized value in chomp at mycurl.pl line 28, <MYCODE> line 26.


2009/7/15 smallfish.xy <smallfish.xy@gmail.com>

放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>

大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.










--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info





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

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

[PerlChina] Re: 求教虚拟主机配置

谢谢 

Anthony WU

找到问题了
_ENV["LANG"]C
_ENV["APACHE_RUN_GROUP"]admint
_ENV["APACHE_RUN_USER"]admint
这是phpinfo()打印出来的,是我改过之后的,以前是默认的www-data用户

开始我在php.ini里面打www-data

grep 'www-data' /etc/php5/apache2/php.ini
没找到。。我想是不是应该在apache配置文件里面呢?因为上面提示的是apache用户

后来在 /etc/apache2/apache2.conf 里面找到这么一句
# These need to be set in /etc/apache2/envvars
User ${APACHE_RUN_USER}
Group ${APACHE_RUN_GROUP}

终于在/etc/apache2/envvars里面找到了

# Since there is no sane way to get the parsed apache2 config in scripts, some
# settings are defined via environment variables and then used in apache2ctl,
# /etc/init.d/apache2, /etc/logrotate.d/apache2, etc.
export APACHE_RUN_USER=www-data
export APACHE_RUN_GROUP=www-data
export APACHE_PID_FILE=/var/run/apache2.pid
改过重启下就好了。。
还有个问题就是怎么给虚拟主机份一个apache 运行用户呢?


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

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

[PerlChina] Re: while未初始化变量的问题

谢谢回复。

我也考虑到在while外进行定义,但是还是报错。

定义:
my ($mydomain, $myport, $ipaddr, $mycode);

报错:
Use of uninitialized value in chomp at mycurl.pl line 28, <MYCODE> line 26.


2009/7/15 smallfish.xy <smallfish.xy@gmail.com>
放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>

大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.










--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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

[PerlChina] Re: while未初始化变量的问题

放到while之外定义
--
http://hi.baidu.com/smallfish_xy
http://code.google.com/p/smallfish/


2009/7/15 Ericzhao82 <ericzhao82@gmail.com>
大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.






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

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

[PerlChina] while未初始化变量的问题

大家如何解决while循环时,变量未初始化的问题?

例如
                        while (chomp(my $mycode=<MYCODE>)) {
}

弹出警告信息

Use of uninitialized value in chomp at my.pl line 26, <MYCODE> line 26.



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

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

[PerlChina] Re: 请教多个循环嵌套的问题

哦,好的。
我再总结下,多谢各位了

2009/7/15 Qiang (James) <shijialee@gmail.com>
Ericzhao82 wrote:
> foreach $one () {
>         for () {
>                 foreach $two () {
>                         while () {
>                                 do sth;
>                         }
>                 }
>         }
> }
>
> 有4个嵌套循环,现在while后做的工作就出现重复了.
> 哪位能指点下,有没有更好的方法,或者如何去除错?谢谢

有时候把你要解决的问题介绍一下,大家可能帮助你找到更好的解决办法。而不是
考虑用那种文法解决。

Qiang





--
…………………………………………
              Ericzhao

Email:   Ericzhao82@gmail.com
MSN:    Ericzhao_82@hotmail.com
BLOG:   share82.freebsder.info

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

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