问一个：
不匹配某物怎么说， 比如 $a = 'D3' ; print \a if $a =~ /D3/
print \a if $a =~ /(?!D3)/ ;
它怎么还beep呢
我觉得很奇怪，我想用 ？= , ?! 来匹配 '不是这个模式'的意思，
我不想用 ！/ / 或者 ！=,
请问大家怎么匹配的
2008/12/26 cool J jc...@gmail.com
Nice!用google Group讨论问题还是比较好的！
On 12月26日, 下午3时05分, Porsche℃蜥
learning perl 第5版么， 主要是讲5.10的新东西（也不多）
其实 第3版以后变化都不大， 不看也罢
2009/1/4 smallfish smallf...@live.cn
我在南京图书馆看到过这本书，可惜只能借，不能买。自己上网搜搜把，以前写CGI程序大都数都是用Perl的
--
blog : http://hi.baidu.com/smallfish7788
*From:* kind terry kindte...@gmail.com
*Sent:* Sunday, January 04, 2009 3:11 PM
*To:*
1）反正是标量环境，你自己转换，或者perl帮你转换，应该没区别的。
2）delete可以操作标量吗？好像不行，delete 只用于删除 hash的key 或者数组元素 （很少用）
2009/1/2 machine steve2008...@gmail.com
Ray 写道:
Hi, all
Would you explain the output of the following perl codes?
question 1:
Is the sentence if (@array) same as if ( scalar(@array) )??
可以啊，我来组织好了，我在上海，其实很简单
在人民广场吃个饭就好了
我perl水平一般的，过完年再聚吧， 年前可能没时间
2009/1/6 yonghua yonghua_p...@yahoo.com.cn
我想在大城市Perlers都不会少。
以前电信一大帮同事会用Perl（MOP的创始人就是湖南电信出去的，最早MOP也是用PERL写的吧）。
主要是要有人组织下。
--
yonghua peng
http://home.arcor.de/pangj/
--- 09年1月6日，周二, y6cmE ref...@gmail.com 写道：
发件人:
不好意思啊，我想问下 怎么订阅该论坛啊，我拉别人入伙
2009/1/19 PIG addm...@gmail.com
要退订此论坛，请发邮件至
perlchina+unsubscr...@googlegroups.comperlchina%2bunsubscr...@googlegroups.com
2009/1/19 Jacky Xu jacky...@serversupport.cn:
我2个邮箱都订阅了，每次都是2封邮件。
怎么把这个邮箱(jacky...@serversupport.cn)退订掉？
--
男女调查吧， 男的就不要说话了
2009/1/21 PIG addm...@gmail.com
有木有男女调查。。相貌调查，身高调查，3w调查。。。
2009/1/21 smallfish smallf...@live.cn:
太厉害了。。
--
blog : http://hi.baidu.com/smallfish7788
bbs : http://bbs.chinaunix.net/forum-55-1.html
smallfish(xiaoyu9805119)
行啊，我报名去， 有人订了包间没
On 2/3/09, joe jiang lamp.p...@gmail.com wrote:
sorry 忘记写日期，应该是下个周六，二月七日。正在设计 google calendar 方
便大家提醒。
kind terry 写道:
本来是安排在干锅居的，不过有的同志可能不能吃辣的
--
Yours Sincerely
Zeng Hong
1. $string=~ s/\[^\]+\/ /g
是把字符串里面所有单个 （即里面不嵌套 ) 里面的东西全部替换成一个空格，
但是 不是元字符啊，没有必要 \ ，
2. $string=~ s/[^a-z\-\']/ /g
把字符串里面 非a-z , - ' 的 替换成空格
2009/2/6 msmouse msmo...@gmail.com
1是匹配 xccxvvcx
2匹配 small-pig's
^表示否定 [^\]就是非的任意字符
--
对， 我说错了， 包括 本身
2009/2/6 陈宇迪 didist...@gmail.com
1是把所有...形式的字符串替换成空格，而不是里面的吧
2009/2/6 Michael Zeng galaxy2...@gmail.com:
1. $string=~ s/\[^\]+\/ /g
是把字符串里面所有单个 （即里面不嵌套 ) 里面的东西全部替换成一个空格，
但是 不是元字符啊，没有必要 \ ，
2. $string=~ s/[^a-z\-\']/ /g
把字符串里面 非a-z , - ' 的 替换成空格
('..')), \n;
2009/2/13 Michael Zeng galaxy2...@gmail.com:
dear all:
why
use File::Spec ;
print File::Spec-rel2abs ( '..' )
only get /ux/prj/prjhzeng/.. ?
i want the absolute address , like /ux/prj
thanks
--
Yours Sincerely
发现win32下的perl 5.8.8
abs_path 和 rel2abs 的结果是一样的
但是我那个 perl 5.8.9 for solaris 结果不一样
On 2/13/09, Michael Zeng galaxy2...@gmail.com wrote:
这么复杂啊， 成功是成功
但是 我想 rel2abs 的功能也太弱了吧，好像就是
use Cwd ;
my $current = getcwd() ;
( File::Spec-rel2abs('..') = $current ) =~ s/$/\.\./ ; 也就是在后面加上
知道了，以后用 abs_path 好了
On 2/13/09, Qiang (James) shijia...@gmail.com wrote:
Michael Zeng wrote:
这么复杂啊， 成功是成功
但是 我想 rel2abs 的功能也太弱了吧，好像就是
use Cwd ;
my $current = getcwd() ;
( File::Spec-rel2abs('..') = $current ) =~ s/$/\.\./ ; 也就是在后面
加上 而已
这不就是regexp么， 有什么意义呢
可移植性
;
use Timeit qw(timeit);
print timeit('sleep #1', sub { sleep 2; });
print timeit('sleep #2', sleep 3);
# output
sleep #1 elapsed: 00:00:02
sleep #2 elapsed: 00:00:03
2009/2/13 Michael Zeng galaxy2...@gmail.com:
比如 我要计算这个脚本/程序花了多少时间
但是Benchmark 计算的结果都是以 XX wall clock seconds 来计算的
上次看到joe在用psh挺好的
我用activerperl 的ppm安装了psh， 可是怎么用啊
在command 里面 打psh，说command not found
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到
我那个目录里面没有psh啊， 怪不得起不来
那怎么用呢
win32 下
On 2/13/09, Shu Cho neat...@gmail.com wrote:
我是用strawberry装的。有个psh.bat的文件会安装在和perl.exe那个目录里面
2009/2/13 Michael Zeng galaxy2...@gmail.com:
上次看到joe在用psh挺好的
我用activerperl 的ppm安装了psh， 可是怎么用啊
在command 里面 打psh，说command not found
::initialize_interactive_mode;
while (1) {
eval { Psh::main_loop; };
Psh::handle_message($@,'main_loop');
}
}
exit 0;
__END__
:endofperl
---8--- psh.bat
2009/2/13 Michael Zeng galaxy2...@gmail.com:
我那个目录里面没有psh啊， 怪不得起不来
那怎么用呢
win32 下
On 2/13/09, Shu
不能运行，大哥
hello world都 退出
On 2/13/09, Shu Cho neat...@gmail.com wrote:
把我刚才贴的复制过去存成psh.bat
2009/2/13 Michael Zeng galaxy2...@gmail.com:
我没有这个psh.bat 文件啊
On 2/13/09, Shu Cho neat...@gmail.com wrote:
---8--- psh.bat
@rem = '--*-Perl-*--
@echo off
if %OS% == Windows_NT
我问得是怎么用啊 ， 安装好了，command找不到psh
use psh ?
我记得像shell一样的东西
On 2/13/09, xie yu mym...@gmail.com wrote:
ppm 安装psh，可以用 5.8.9的
2009/2/13 Michael Zeng galaxy2...@gmail.com
不能运行，大哥
hello world都 退出
On 2/13/09, Shu Cho neat...@gmail.com wrote:
把我刚才贴的复制过去存成psh.bat
2009/2/13 Michael
这个怎么会有这么多病毒的， 有谁能 屏蔽一下么
On 2/13/09, alaleh Saray saray_az1...@yahoo.com wrote:
http://www.agahieparniaz.com/300.php
http://www.agahieparniaz.com/300.php
http://www.agahieparniaz.com/300.php
http://www.agahieparniaz.com/300.php
http://www.agahieparniaz.com/300.php
哦，这么说psh是为non-win 平台用的啊，安装的时候也没有提示啊
On 2/14/09, purl lamp lamp.p...@gmail.com wrote:
可以说把 psh 装在 windows 上面我还真没有尝试过，主要是上键找回历史的功能可能不会正常工作，除非加上 cygwin
的帮助（但是大家都知道不推荐用 cygwin perl）。
所以最好是用 linux 来尝试，哪怕是虚拟机里面的 ubuntu。
apt-get install psh 就好了
然后可以 % psh
2009/2/13 Michael Zeng galaxy2
没有必要设置这么多hash吧
用个引用好了
比如
$info = {
$num - {
$key - value
}
..
}
2009/2/15 Lee Duhem lee.du...@gmail.com
2009/2/15 allen allen...@gmail.com:
那我定义一下格式： $num $name $value
从某一个文件中获得这3个值
然后根据$num的多少自动生成相应的hash
比如 2 张三 5
生成 的hash 为 hash_2 其中的key 张三 对应的值为5
程序员的三大优点啊
2009/2/15 allen allen...@gmail.com
我们都是懒惰者+吝啬鬼+最大追求性能的人
一定要制止这种浪费行为！
于 2009-2-15 15:36, Lee Duhem 写道:
2009/2/15 allenallen...@gmail.com:
那我定义一下格式： $num $name $value
从某一个文件中获得这3个值
然后根据$num的多少自动生成相应的hash
比如 2 张三 5
生成 的hash 为 hash_2 其中的key 张三 对应的值为5
再比如 4 李四 6
我怎么对 C:\Perl\site\lib\Psh.pm 没有修改权限，就是 打字怎么打不进去啊
On 2/16/09, smallfish perluo...@gmail.com wrote:
恩，可以不直接退出了
2009/2/16 purl lamp lamp.p...@gmail.com
maybe you can open Psh.pm and comment out the use strict at head with #
--
blog - http://hi.baidu.com/smallfish7788
--
不过这样不太好吧， use strict 可以perl主张推荐的
On 2/16/09, smallfish perluo...@gmail.com wrote:
恩，可以不直接退出了
2009/2/16 purl lamp lamp.p...@gmail.com
maybe you can open Psh.pm and comment out the use strict at head with #
--
blog - http://hi.baidu.com/smallfish7788
--
Yours Sincerely
怎么用， 还没搞清楚
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscr...@googlegroups.com
更多选项，请通过
psh是谁写的啊，我们还能 加补丁 啊
On 2/17/09, purl lamp lamp.p...@gmail.com wrote:
yes, it's not the perfect way, there should exist something inside to
change.
let's try to improve psh to be fun for windows people :)
2009/2/16 Michael Zeng galaxy2...@gmail.com
不过这样不太好吧， use strict 可以perl主张推荐的
后来知道了，可以全路径运行，像unix下一样的
比如 C:\stawberry\Perl\bin\perl -v
On 2/17/09, Michael Zeng galaxy2...@gmail.com wrote:
这样的，我的是5.10 的
On 2/17/09, Shu Cho neat...@gmail.com wrote:
比较新版本的strawberry才有的，以前是没有的
2009/2/17 Michael Zeng galaxy2...@gmail.com:
strawberry perl里面有ppm啊，只是命令行格式而已
匹配前面不是空格的 abc
my $str = abc ;
print \a if $str =~ /(?!=\s+)abc/ ;
怎么会匹配成功呢 ？
另外：
print \a if $str =~ /(?=\s+)abc/ ;
怎么出现编译错误： Variable length lookbehind not implemented in regex; marked by --
HERE in m/(?=\s+)abc -- HERE / at test_xiong.pl line 6.
--
Yours
sorry 我写错了
应该是 print \a if $str =~ /(?!\s+)abc/ ; \s+ 是错误的，我知道了
?= 与 ？！ look ahead
？= 与 ?! look behind
On 2/17/09, Michael Zeng galaxy2...@gmail.com wrote:
thanks
On 2/17/09, cnhack TNT cnhack...@gmail.com wrote:
lookbehind 的匹配，要求为固定长度的模式，(?!=\s+) 中的 \s+ 是变长的，所以不符合要求
你可以指定几个
Image::* 相关module吧
On 2/18/09, Silent silent2...@gmail.com wrote:
rt,
想把gif图分成一张张的单个图片,
知道的说一下,谢谢!
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到
kindte...@gmail.com
5.8.x
2009/2/18 Michael Zeng galaxy2...@gmail.com
用5.10.0 吧
On 2/18/09, smallfish perluo...@gmail.com wrote:
5.8.x比较多
2009/2/18 Shu Cho neat...@gmail.com
看到一个blog上讲，几乎所有的客户都在用5.6或5.8，但没有部署5.10的， 更不要说6了
2009/2/18 Dejian Zhao zha...@ioz.ac.cn:
现在有人用perl6做项目么
ok, faster regexp
On 2/19/09, riverlee riverlee2...@gmail.com wrote:
我ubuntu 8.10,自动的perl就是5.10.0 ^_^
2009/2/19 cnhack TNT cnhack...@gmail.com:
呵呵，我自己家里的服务器也是编译的 perl 5.10，感觉还是不错的
2009/2/19 agentzh agen...@gmail.com
2009/2/18 Michael Zeng galaxy2...@gmail.com
还有say， 向perl 6 发
要个什么lib file
Math::GMP - High speed arbitrary size integer math
To install this package, you will need a version of the GMP library. You can
get it at the homepage of GMP:
http://www.swox.com/gmp/
After installing GMP, do the following:
perl Makefile.PL
make
我装solaris版本的
是不是去linux 下装就ok了？ 这个module是跨平台的么
On 2/19/09, Lee Duhem lee.du...@gmail.com wrote:
2009/2/19 Michael Zeng galaxy2...@gmail.com:
但问题是这个网站访问不了啊，这个怎么办？
你用啥 OS? Linux 的话看看有没有二进制版本。
lee
--
Yours Sincerely
Zeng Hong
我有很多机器要 检测 是否能ssh 上，
use strict ;
use lib '/ux/prj/prjhzeng/from_cpan/lib/site_perl/5.8.9' ;
use Net::SSH::Expect ;
### non password :
my $ssh = Net::SSH::Expect - new (
host = etiger,
user = prjhzeng2,
raw_pty = 1 ,
) ;
$ssh - run_ssh() or die \nError !! \n;
对于 不输入密码的，
你会就教么， 这种回答有意义么
On 2/19/09, purl lamp lamp.p...@gmail.com wrote:
请问你是否阅读了文档？
哪怕 synopsis 就够了
2009/2/19 Michael Zeng galaxy2...@gmail.com
我有很多机器要 检测 是否能ssh 上，
use strict ;
use lib '/ux/prj/prjhzeng/from_cpan/lib/site_perl/5.8.9' ;
use Net::SSH::Expect ;
### non password :
my
我试验过再来问的
你们这些人又没用过 这个module， 这样的回答确实没啥意义
On 2/19/09, cnhack TNT cnhack...@gmail.com wrote:
我觉得，提问前自己先仔细看看文档，并动手尝试自己解决问题是个好习惯。
实在行不通，再来提问。
推荐先阅读一下：《提问的智慧》（google 一下便知)
2009/2/19 Michael Zeng galaxy2...@gmail.com
你会就教么， 这种回答有意义么
On 2/19/09, purl lamp lamp.p...@gmail.com
thanks，我就是要这样的回答，高手啊
On 2/19/09, agentzh agen...@gmail.com wrote:
2009/2/19 Michael Zeng galaxy2...@gmail.com
我试验过再来问的
你们这些人又没用过 这个module， 这样的回答确实没啥意义
Be nice :)
Best,
-agentzh
--
Yours Sincerely
Zeng Hong
没有必要搞那么多 规则， smth上再弱的问题又怎样了， 也没有人耻笑
不要以为大家都愿意来问问题， 要是能解决就不会来了
本来就是 永远没有愚蠢的问题，只有愚蠢的回答
On 2/19/09, Michael Zeng galaxy2...@gmail.com wrote:
你认为这个是基本问题么？ 你能把Net::SSH::Expect 搞清楚?
我还不愿意打字来问问题呢
论坛本来就是解决问题的么
On 2/19/09, Tian Yazhou phio.a...@gmail.com wrote:
2009/2/19 Michael
好的，谢谢大家
On 2/19/09, Tian Yazhou phio.a...@gmail.com wrote:
2009/2/19 Michael Zeng galaxy2...@gmail.com:
没有必要搞那么多 规则， smth上再弱的问题又怎样了， 也没有人耻笑
不要以为大家都愿意来问问题， 要是能解决就不会来了
本来就是 永远没有愚蠢的问题，只有愚蠢的回答
邮件列表是大家的，当然欢迎里面的人能参与，大家一起来构建一个活跃而且高质量的邮件列表
但如果你只是认为这里就是给你提供QA的地方，那你错了，这里是对Perl有共同热爱的人的交流场所
这个是什么原因？优化的regexp engine，重新用C写过了？
2009/2/19 Dejian Zhao zha...@ioz.ac.cn
原来的正则语法没变，执行起来更快了，是这意思么？
agentzh wrote:
2009/2/18 Michael Zeng galaxy2...@gmail.com
还有say， 向perl 6 发展了
对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6
风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！
Benchmark 显示，我们的 OpenResty
2009/2/19 Lee Duhem lee.du...@gmail.com
2009/2/19 Dejian Zhao zha...@ioz.ac.cn:
1、用perl写出来的程序需要标明所用的perl版本么？比如prul lamp说的新的正
则命名捕获
http://blog.csdn.net/rcom10002/archive/2008/10/27/3158891.aspx以及智能
匹配 http://blog.chinaunix.net/u2/68125/showart_660418.html 在旧的版
大哥，感觉你写的这个很有C的风格
On 2/22/09, abc_tang tang...@yahoo.com wrote:
程序功能:自动映射到不同机器硬盘,获取测试信息,打印到屏幕.有可能用不同机器测试同一个产品的现象发生.
主要程序如下:
while ($i@data) #...@data 保存所有的测试机器的信息
{print ($i+1, A is tested at MC $data[$i]\n);
map_hd($data[$i],$mapdir); #根据测试机器,映射对应的HDD 到$mapdir盘符
$mapdir++;
perl 5 还在开发呢， 最终版本大概是多少
2009/2/24 Xia Qingran qingran@gmail.com
2009/2/19 agentzh agen...@gmail.com
2009/2/18 Michael Zeng galaxy2...@gmail.com
还有say， 向perl 6 发展了
对我自己来说，其实 perl 5.10.x 最激动人心的不是这些 perl 6
风格的语言特性，而是一个快了好多好多同时功能也强了好多的正则引擎！哈哈！
Benchmark 显示，我们的 OpenResty 测试集在同一台
没看懂你在干啥，能举个例子么
感觉这样写 $1 应该不好
On 2/25/09, buxieyigu buxiey...@gmail.com wrote:
sub regfromvar
{
my $str1=requestform;
my $str2=$str1;
my $parttern = request(form);
my $replacement = '$1';
print $str1,\n;
my $suc;
eval '$suc=$str1 =~
这样的
On 2/25/09, agentzh agen...@gmail.com wrote:
2009/2/24 Michael Zeng galaxy2...@gmail.com:
perl 5 还在开发呢， 最终版本大概是多少
按照官方的说法，perl 5 没有最终版，perl 5 和 perl 6 会一起共荣共发展，因为是两种不同的编程语言了，呵呵 ;)
Cheers,
-agentzh
--
Yours Sincerely
Zeng Hong
linux都自带的吧， perl -v
你什么linux啊？
On 3/3/09, ck862 ck...@hotmail.com wrote:
如题。
我想在我的linux上安装，但是我的硬盘很小，所以希望perl越小越好。
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
想问下，自己 build和 直接从port distribution 安装有多大区别么？
自己装有什么好处么?
On 3/4/09, agentzh agen...@gmail.com wrote:
2009/3/3 Lee Duhem lee.du...@gmail.com
2009/3/3 ck862 ck...@hotmail.com:
如题。
我想在我的linux上安装，但是我的硬盘很小，所以希望perl越小越好。
自己编译一个。
嗯，下载 perl 5.10.0 的源码 tarball 之后解压 build 之：
sh
qiang，你真强，上海，北京两地跑
On 3/4/09, Qiang (James) shijia...@gmail.com wrote:
忘记说了，如果你计划参加的话这里登记一下，好估计人数。http://wiki.perlchina.org/BJPM-200903
Qiang(James)
On Mar 4, 11:13 am, Qiang (James) shijia...@gmail.com wrote:
时间: 3月12号星期四晚 7点 - 9点(我们一般 7:30左右演讲正式开始)
地点: Flow 流 (Flow Cafe)
ok, thanks
On 3/4/09, agentzh agen...@gmail.com wrote:
2009/3/4 Michael Zeng galaxy2...@gmail.com
想问下，自己 build和 直接从port distribution 安装有多大区别么？
自己装有什么好处么?
别人做的 perl 喜欢自己打补丁，记得前一阵子 redhat （好像是）就承认他们打的补丁让 Perl OO
代码慢了好多。许多发布也会启用一些扩展的功能，比如 ithread，而对于我自己来说，根本不需要，启用它只意味着开销。另外自己 build 的
use strict ;
print 5293.937 - 5292.239 ;
这个在5.8.8/5.8.9 下运行怎么会得到 1.698032 呢
这可是减法啊
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google 论坛“PerlChina Mongers 讨论组”论坛。
要在此论坛发帖，请发电子邮件到
perl 5.10.0 的源代码 是70M， 不知道编译完是多少
On 3/4/09, ck862 ck...@hotmail.com wrote:
On 3月4日, 上午9时44分, agentzh agen...@gmail.com wrote:
2009/3/3 Lee Duhem lee.du...@gmail.com
2009/3/3 ck862 ck...@hotmail.com:
如题。
我想在我的linux上安装，但是我的硬盘很小，所以希望perl越小越好。
自己编译一个。
嗯，下载 perl 5.10.0
什么是standard modules ?
这个问题挺奇怪的， 我以前从来没有碰见过
On 3/4/09, purl lamp lamp.p...@gmail.com wrote:
sure, unless you look for standard modules :)
2009/3/4 Michael Zeng galaxy2...@gmail.com
主要是我不明白啊， 这个简单计算 怎么会出这样的值
只能靠自己四舍五入了？
On 3/4/09, purl lamp lamp.p...@gmail.com wrote:
在哪个版本也都会是这个
网络安装，apt-get source -b perl 是很不错的方法。
2009/3/4 Michael Zeng galaxy2...@gmail.com
perl 5.10.0 的源代码 是70M， 不知道编译完是多少
On 3/4/09, ck862 ck...@hotmail.com wrote:
On 3月4日, 上午9时44分, agentzh agen...@gmail.com wrote:
2009/3/3 Lee Duhem lee.du...@gmail.com
2009/3/3 ck862 ck...@hotmail.com
Haskell 是干啥的， 大牛解释一下
On 3/5/09, smallfish perluo...@gmail.com wrote:
说不准你的英语表达方式已经影响到周围的同事咯 :)
2009/3/5 agentzh agen...@gmail.com
2009/3/4 Michael Zeng galaxy2...@gmail.com
没办法，有时候自己写的程序 过了2个月 自己都看不懂
这让我想起从前上初中的时候，我刚开始尝试用英语来写日记，结果发现没过几天就看不懂自己写的究竟是啥了，但我还是坚持了很长一段时间，呵呵。如今，我经常很自恋地反复
这么难， 有空也去看看
On 3/5/09, xu zhou redic...@gmail.com wrote:
有可能是你java，c，python，perl之类的学多了
脑筋一下子不好转过来
2009/3/5 smallfish perluo...@gmail.com:
定义函数的方式很有意思的说，看来不是我的智商问题啊。刚看了一天多 :)
pugs貌似就是用这个写的
2009/3/5 agentzh agen...@gmail.com
2009/3/5 smallfish perluo...@gmail.com
好像是下周末 3月14号吧
2009/3/6 jesse newday.je...@gmail.com
明天周末有聚会吗？
On 3月5日, 上午10时01分, 老邪 swansu...@gmail.com wrote:
呵呵，我改投上海阵营算了，安排在周末，时间挺好的 :)
2009/3/4 purl lamp lamp.p...@gmail.com
在北京这个周四的聚会之后，我们也可以再来一次，这次的主题恰巧也是 Catalyst 相关的 DBIx :D
时间可以定在这个月14日下午两点，地点仍然在人民广场附近，有合适的地点请推荐。
yes, seems it is impossible to change the key
without adding new keys , so a new hash
is necessary , because the key of hash is used to
point to a value , so if the key changed , one must
tell the hash again the key has changed, and point to
the same value
use strict ;
use
是的， 问题
是人都有第一次的么， 我当时也觉得这个很费解
反正 就是修改key是很麻烦的事情
On 3/8/09, rorot yang.li...@gmail.com wrote:
On Sunday 08 March 2009 23:01:59 Leeo wrote:
谢谢！我搞懂了！
这个问题不是仅仅需要解决如何修改散列表的键值的问题。问题的本质是散列表的键值是和散列表的索引也就是查找值的方法相关联的。所以这种企图直
接修改散列键值的想法就不对。这是我的想法，请熟悉散列内部结构的人补充。
--
Yours
东西只是一个形式（出门的理由）而已。讨论的话题也希望大家积极提交，可以说锻炼大家演讲的热情和能力才是关键，只不过恰巧我们都有些
perl 的背景而已。
2009/3/13 PIG addm...@gmail.com
想吃。。可惜不在上海。。。
2009/3/13 purl lamp lamp.p...@gmail.com:
还是中午在老地方（干锅居）碰头吧，大家见面之后可以再考察附近更好的地点。主题仍然是数据库相关的一些 ORM
组件，未来讲座的需要我们还是会优先选择宽敞有投影的地方。
2009/3/13 Michael Zeng galaxy2
thanks a lot
2009/3/13 purl lamp lamp.p...@gmail.com
OK, we can push it to next month.
2009/3/13 Michael Zeng galaxy2...@gmail.com
sorry i have no time tomorrow , maybe next month is ok
2009/3/13 purl lamp lamp.p...@gmail.com
any people can take notebook there this time?
my own
perl 5足够学一阵子了， perl 6 还没那么急
On 3/14/09, purl lamp lamp.p...@gmail.com wrote:
http://zh.wikipedia.org/wiki/Perl6
now we can see zh.wikipedia at shanghai.
2009/3/13 Okàjn okajn...@gmail.com
THX，我也是看这本书入门的，目前还没完全脱离这本书呢。。。努力学习中。。。
2009/3/14 xsir317 xsir...@163.com
发本书。。。
看来你对perl 6真是搞的清楚，我还是没看明白
2009/3/14 Okàjn okajn...@gmail.com
多谢agentzh指点。。听君一席话，受益匪浅。。。学习ing...
2009/3/14 agentzh agen...@gmail.com
2009/3/14 Okajn okajn...@gmail.com
我接触Perl比较晚，也是去年12月做个项目有用到Perl才开始学习。。不过，一学上Perl，还是觉得Perl挺好玩，代码里符号一大堆，看起来
比较酷，就有点喜欢上Perl啦，
呵呵，记得我最早看到 Perl 代码是当年上高中时看
啥时候才能perl 6
快点啊， 省得我学perl 5了
On 3/19/09, anny raul annyr...@gmail.com wrote:
昨天就听hitsu说了，发布1.0咯
2009/3/19 Wan Chaowei wanmy...@gmail.com
Parrot是基于寄存器的开源虚拟机项目，由Perl社区启动，使用C语言开发，设计目的是高效的运行动态语言如Perl、PHP、Python和Ruby。Parrot一开始是为了运行Perl
6，Rakudo就是运行Parrot虚拟机的Perl 6规格实现。3月17日，Parrot
有意思啊，还有baidu，google的module
On 3/23/09, Fayland Lam fayl...@gmail.com wrote:
agentzh did a Baidu CPAN module:
http://search.cpan.org/~agent/WWW-Baidu-0.06/lib/WWW/Baidu.pm
you can view the source code.
Thanks.
On 2009-3-23 10:06, Leeo wrote:
use strict;
use LWP;
my
原来baidu.pm 是 agentzh 写的，牛啊
这是我见到的第一个 大陆人写的pm
On 3/23/09, hfahe hf...@163.com wrote:
lwp:: simple
get
http://www.baidu.com/s?wd=perl就好了
祝好
--
hfahe
2009-03-23
--
*发件人：* Fayland Lam
*发送时间：* 2009-03-23 10:20:57
*收件人：*
牛啊， 先能看懂再说
On 3/23/09, agentzh agen...@gmail.com wrote:
2009/3/23 Michael Zeng galaxy2...@gmail.com
原来baidu.pm 是 agentzh 写的，牛啊
这是我见到的第一个 大陆人写的pm
呃。。。CPAN 上的 WWW::Baidu
是从前上大学的时候，为自动化从百度抓取人名和地名语料而搞的一个“副产品”，因为当时为了一个医院信息管理系统在做一个模式驱动的随机测试数据库生成器。。。
这个模块我已经不怎么维护了，如果有兴趣接手的哥们请写一封 email 给我哈
Mac OS 的 系列就是猫科动物啊
什么 Tiger， Leopard，
On 3/26/09, anny raul annyr...@gmail.com wrote:
就是那人，哈
2009/3/26 Luo, Yong yong@acs-inc.com
CU上的hitsubunnu？
兴会兴会
--
anny raul annyr...@gmail.com
http://annyraul.blogspot.com
--
Yours Sincerely
Zeng
好像还是文本处理吧
网络方面 我不太清楚
On 3/31/09, 小飞侠 jackson1...@gmail.com wrote:
我想在做的是公司产品的维护和升级，公司的这个EIP产品在十年前做的，用的是cgi-perl技术，为了能够维护，我们学了一段时间perl，但
是我们都知道cgi-perl技术已经落伍了，那么perl呢，目前在业界，有那些领域perl是无可替代的呢，或者说是perl的优势领域，是日志分
析和报文提取吗？
望高手不吝赐教
--
Yours Sincerely
Zeng
请好好学习 learing perl，很多都是基本问题
On 3/31/09, Yuan Jiang sleetd...@gmail.com wrote:
-_-
...
http://perldoc.perl.org/functions/defined.html
2009/3/31 xsir317 xsir...@163.com
$teststr = abc 12 3;
print teststr bf: $teststr \n;
$teststr =~ s/\s+//g;
print teststr af: $teststr
不错啊，靠近人民广场么
On 4/1/09, purl lamp lamp.p...@gmail.com wrote:
需要有 notebook 纸和笔，但是 projector 和 blackboard 也是可能的。
因为我知道一个地方有可以免费使用的教室，是否可以使用的问题周五就能确定下来。
2009/4/1 xsir317 xsir...@163.com
我去听讲。。哈哈哈。。。
适合讲座的环境需要黑板、投影仪么？
2009-04-01
--
xsir317
: shanghai perl meetup
应该是南京西路站，与人民广场一站的距离，
一号线也可以在陕西路下车走过来，公交49和112可以到达。
具体地址是：
茂名北路148号威海大厦7层
2009/4/1 Michael Zeng galaxy2...@gmail.com
不错啊，靠近人民广场么
On 4/1/09, purl lamp lamp.p...@gmail.com wrote:
需要有 notebook 纸和笔，但是 projector 和 blackboard 也是可能的。
因为我知道一个地方有可以免费使用的教室，是否可以使
eval $a
On 4/15/09, dajiaolv lilu...@gmail.com wrote:
各位大虾，请问如何让一个包含四则运算表达式的标量自动把值算出来，例如：
$a = (4*3)+5-1
如何让$a自动把值算出来。
注意：$a是变量，并不是固定的上述字符串。
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google
讲的是5.10的更新吧， 其实从第3版开始， 每版变化不大
On 4/17/09, raul annyr...@gmail.com wrote:
老早就出来的拉。。。呵呵
http://annyraul.blogspot.com
2009/4/17 xsir317 xsir...@163.com
http://topic.csdn.net/u/20090415/22/b872971f-3910-4364-aac4-e46d447803a6.html?seed=1542945128
现在还是只有英文版。。。
谁说的，好像有的， perl 5.8 最后一版是 5.8.9
On 4/17/09, 独孤九剑 wxlfh2...@gmail.com wrote:
好像没有5.12版本吧？5.10应该是Perl5最后一个版本了。
On 4月17日, 上午10时03分, Michael Zeng galaxy2...@gmail.com wrote:
等到5.12 的时候要出第6版了
On 4/17/09, xsir317 xsir...@163.com wrote:
哦。。。原来是这样。。
选看5.10那部分就好了
很简单啊，通过猎头招聘的啊
On 4/20/09, xsir317 xsir...@163.com wrote:
说话不清不楚含含糊糊的招聘广告多次发送是不是不太好啊？
留的电话经Google发现是陕西智联招聘的。
2009-04-20
--
xsir317
--
*发件人：* Lucille_gao
*发送时间：* 2009-04-20 15:45:10
*收件人：* PerlChina Mongers 讨论组
*抄送：*
*主题：*
你说在regex里面？用 \ 即可，或者放到 [] 里面， 不过 [] 里面有时候也需要 \ 的
On 5/5/09, agentzh agen...@gmail.com wrote:
2009/5/4 mark zhusheng...@163.com
有没有人知道，屏蔽元字符（即将元字符当作普通字符处理）。
quotemeta?
-agentzh
--
Yours Sincerely
Zeng Hong
d 吧
On 5/8/09, raul(smallfish) annyr...@gmail.com wrote:
A + C
--
╭⌒ ⌒╮
╭ · · ╮ - hello :)
╰━━0━━╯
---
blog : http://annyraul.blogspot.com
old : http://hi.baidu.com/smallfish7788
---
对的啊，就是这样的
， 是典型的列表环境
. 是用于连接字符串，当然是标量环境
你如果显式的想用 标量环境，请用scalar @rocks
2009/5/10 Jacky Xu x2x4...@gmail.com
@rocks = qw(talc quartz jade obsidian);
print I have , @rocks , rocks!\n; #显示列表环境
print I have . @rocks . rocks!\n; #显示标量环境
为什么？ , . 有什么区别？
--
有 sub DESTROY { } 这个 解构函数啊
2009/5/12 cnhack TNT cnhack...@gmail.com
使用内置的函数 undef 即可
2009/5/12 smallfish smallfish...@gmail.com
置为undef，也有delete的
对perl的gc不了解，飘过。纯属精神支持下
--
http://twitter.com/smallfish_xy
http://hi.baidu.com/smallfish7788
2009/5/12 小飞侠 jackson1...@gmail.com
use Win32::OLE
可以直接对word doc操作的
2009/5/15 allen allen...@gmail.com
假设现在已有一个doc格式的文档模板，需要读取模板中的表格信息.
表格信息如 地名 人名 地址 邮编 ==
我现在就只想把这些信息读进perl就行
请大家推荐一下相关的module
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
好像这2本书 都没有中文版啊
2009/5/20 钟声 gh00920...@163.com
对着屏幕看书，真的很不爽。。
在2009-05-20，xsir317 xsir...@163.com 写道：
你去装个电驴，搜一下，全都有的。不是在verycd的站里搜哦，是电驴的那个搜索～
2009-05-20
--
xsir317
--
*发件人：* q2...@gmail.com
*发送时间：* 2009-05-20
你如果想提高，可以看
intermediate perl
mastering perl
advanced perl programming
perl best practice
oop perl
书多呢
2009/5/22 Michael Zeng galaxy2...@gmail.com
很有用的，不过 已经绝版了
你可以搜索一些pdf ，chm看看好了
其实该书 讲的太多，有些东西不看也不要紧的
2009/5/22 li yzhk...@gmail.com
走的够远的哈。我在大连。这里倒是 有卖实体书的。。
2009/5/22
很有用的，不过 已经绝版了
你可以搜索一些pdf ，chm看看好了
其实该书 讲的太多，有些东西不看也不要紧的
2009/5/22 li yzhk...@gmail.com
走的够远的哈。我在大连。这里倒是 有卖实体书的。。
2009/5/22 sheng zhong gh00920...@gmail.com
许昌的,,现在海口。过断时间回去。
不知道这个小城附近有没perl社团，
好向大家学习[?]
2009/5/22 li yzhk...@gmail.com
大骆驼书的电子版在网上有。好不好自己评价。
享出来。
哪怕多琢磨那里面的很多冷笑话也是好的。
2009/5/22 li yzhk...@gmail.com
http://www.extmail.org/forum/thread-9162-1-1.html
这里有该书的pdf版下载。几MB而已。_
2009/5/22 Michael Zeng galaxy2...@gmail.com
很有用的，不过 已经绝版了
你可以搜索一些pdf ，chm看看好了
其实该书 讲的太多，有些东西不看也不要紧的
2009/5/22 li yzhk...@gmail.com
走的够远的哈。我在大连。这里倒是 有卖实体
$SIG{ INT } = sub { die \nInterrupt detected !!! we are exiting !! \n\n
;
for my $var ( @list ) {
system ( $var ) ;
}
效果要： 在执行任何一个程序的时候（即system运行的时候），按ctrl + C
能退出来， 并打印 Interrupt detected !!! we are exiting !! 这句话
但是按上面这么写， ctrl +C 很难 退出来啊，就是perl不知道 已经按了ctrl +C
要按好多下 才能 检测到
如果用
你们说是 检查 sytem返回值是吧
如果用 $SIG{ INT｝ 来抓 不行么？
我明天试试 ｗｉｎ３２下不好实验
2009/6/1 msmouse msmo...@gmail.com
检查system返回值是否为0即可
--
msmo...@ir.hit.edu.cn
msmo...@gmail.com
2009/5/31 Michael Zeng galaxy2...@gmail.com
$SIG{ INT } = sub { die \nInterrupt detected
照cpan的例子用的，怎么回报error呢：
can not use an undefined value as an array reference at
c:/Perl/site/lib/Spreadsheet/ParseExcel/Workbook.pm at line 70
Spreadsheet：：ParseExcel 是用ppm 安装的， perl 5.8 。8 或5.10， winxp
脚本如下:
use strict;
use Spreadsheet::ParseExcel;
my $parser =
还有 里面很多中文 被读出了 成了乱码
怎么办？
2009/6/2 Michael Zeng galaxy2...@gmail.com
照cpan的例子用的，怎么回报error呢：
can not use an undefined value as an array reference at
c:/Perl/site/lib/Spreadsheet/ParseExcel/Workbook.pm at line 70
Spreadsheet：：ParseExcel 是用ppm 安装的， perl 5.8 。8 或5.10， winxp
脚本如下:
use
照cpan的例子用的，怎么回报error呢：
can not use an undefined value as an array reference at
c:/Perl/site/lib/Spreadsheet/ParseExcel/Workbook.pm at line 70
这个问题，我打开那个excel，把那个sheetname 改成Sheet1 ,就好了
改回去（改成任意一个名字）也是好的， 这个不是模块的bug啊
2009/6/2 Michael Zeng galaxy2...@gmail.com
还有 里面很多中文 被读出了 成了乱码
怎么办
真的很奇怪， 一般cpan的module下载下来，直接照例子打，没有问题的
偏偏这个 有问题
2009/6/2 purl lamp lamp.p...@gmail.com
最好有个截图，否则不知道你说的是什么。
2009/6/2 Michael Zeng galaxy2...@gmail.com
照cpan的例子用的，怎么回报error呢：
can not use an undefined value as an array reference at
c:/Perl/site/lib/Spreadsheet/ParseExcel/Workbook.pm
这样
2009/6/2 purl lamp lamp.p...@gmail.com
那请记住，绝大多数的和字符集、语言相关的模块除外 :D
2009/6/2 Michael Zeng galaxy2...@gmail.com
真的很奇怪， 一般cpan的module下载下来，直接照例子打，没有问题的
偏偏这个 有问题
2009/6/2 purl lamp lamp.p...@gmail.com
最好有个截图，否则不知道你说的是什么。
2009/6/2 Michael Zeng galaxy2...@gmail.com
照cpan的例子用的，怎么
这些是干啥的
perl里 如果
$| = 1; 就能实现 flush的功能吧，就是直接输出到终端， 没有缓冲
2009/6/5 imxae imx365s...@gmail.com
请教高手,perl有没有类似php函数ob_flush();flush();这二个的perl函数!!
--
Yours Sincerely
Zeng Hong
--~--~-~--~~~---~--~~
您收到此信息是由于您订阅了 Google
多大的文件啊， perl处理 500M 左右的文件 都是可以的
加上硬件现在这么强大
2009/6/6 Qiang (James) shijia...@gmail.com
Gene wrote:
需求：有一批文件待处理，每个文件都比较大。需要筛选有用的数据到文件。
实现：想用多进程实现，主进程按文件数平均分配给10个子进程处理；子进程筛选需要的行PUSH到共享内存的数组里。处理完毕最终打印数组数据到文
件。
对perl的多进程和共享内存不是很了解。请大家帮忙提供下程序框架，谢谢~
使用 fork,
和c，c++，java的函数库类似
软件包
2009/6/10 梁舒华 suker...@gmail.com
perl新人问大家一个简单问题，不要见笑了。perl中的模块是有什么用的呢？
2009/6/10 辉郎 smart.wol...@gmail.com
非常感谢！cnhack TNT
2009/6/10 cnhack TNT cnhack...@gmail.com
抓取方面，可以参考选择以下模块：
WWW::Curl （推荐，性能比 LWP 好很多）
LWP::Curl
Web::Scraper （推荐，挺好用）
如果是想做专门的 spider，
直接用 Data::Dumper , Storable 试试
2009/6/11 Chancey chance...@gmail.com
恩 写了一个搜索Server，当索引文件大的时候，预加载很有问题。
现在的情况：
1.2M的索引文件 预加载后就占用25M的内存，之后分析是因为循环索引并构造HASH列表时产生的内存碎片过多造成的。
所以在生成索引程序中打算直接把整个结构转为一个字符串，并以二进制格式写入索引文件，这样在Server预加载的时候就不用构造HASH列表，省去了初始化HASH列表的时间、也减少了索引文件本身的大小。
中文版还可以吧， 是入门级的书
perl的中文书还可以的， 翻译的还行
2009/6/18 PIG addm...@gmail.com
看英文版的吧。术语不多。也是几十个小时可以看完的。
2009/6/18 Ericzhao82 ericzha...@gmail.com
呵呵，多谢几位给点意见。。
2009/6/18 xsir317 xsir...@163.com
其实还是赶鸭子上架比较有效。。。
一开始连perl是什么都不知道，要在2个月里面用perl做一大堆日志分析。。。各种日志都有。。。
然后就就。。。就会了。
原来readdir 比glob还有这个好处
我从来都是用glob的
不过benchmark 表明 opendir/readdir 比glob效率高
2009/6/19 xjdengz xjde...@gmail.com
2009/6/19 vincent pcwl.vinc...@gmail.com
20090611腾讯四面面经
1月11号面了腾讯，今天得到结果是fail，呵呵现在把面经写出来给大家分享一下。免得大家跟我一样变成炮灰~。
是吧，会出什么后果？
我一般都是文本 操作，
2009/6/19 Easun easun...@gmail.com
glob 不怎么建议使用,除非你能确认环境是你需要的那种..
不然也许会出现意想不到的结果 :)
2009/6/19 Michael Zeng galaxy2...@gmail.com:
原来readdir 比glob还有这个好处
我从来都是用glob的
不过benchmark 表明 opendir/readdir 比glob效率高
2009/6/19 xjdengz xjde...@gmail.com
, 下午9时25分, Michael Zeng galaxy2...@gmail.com wrote:
原来readdir 比glob还有这个好处
我从来都是用glob的
不过benchmark 表明 opendir/readdir 比glob效率高
2009/6/19 xjdengz xjde...@gmail.com
2009/6/19 vincent pcwl.vinc...@gmail.com
20090611腾讯四面面经
1月11号面了腾讯，今天得到结果是fail，呵呵现在把面经写出来给大家分享一下。免得大家跟
共有 249 项搜索結果，以下是第 1 - 100 matches
Mail list logo
