Re: [PerlChina] perl兼职编程

2012-06-06 文章 Robin Lee
怎样的工作不透露下? 2012/6/7 Xusheng > 我们正在招聘一名perl兼职编程人员,可以利用业余时间做项目,这是一个长期的项目,一旦录用会有较长期的工作安排。工作方式为兼职。受聘人员在本人 > 所在地工作。工作时间有一定程度的灵活度。有兴趣者请将CV/Resume发到 xushengwan...@gmail.com > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮

Re: [PerlChina] perl兼职编程

2012-06-06 文章 Robin Lee
个人近期还没能抽出时间做兼职,只是好奇问问 2012/6/7 Xusheng Wang > 关于比较学术专业的程序。具体电话谈可以吗 > > Sent from my iPhone > > On Jun 6, 2012, at 8:26 PM, Robin Lee wrote: > > 怎样的工作不透露下? > > 2012/6/7 Xusheng < xushengwan...@gmail.com> > >> 我们正在招聘一名perl兼职编程人员,可以利用业余时间做项目,这是一个长期的项目,一旦录

Re: [PerlChina] 如何选择子例程返回值?

2012-07-01 文章 Robin Lee
要自己实现上下文相关的函数,就是靠 perldoc -f wantarray Perl 的函数实际上是无法返回 hash 值的,只能返回 scalar 和 list 。 return %hash; 实际上是 my @list = %hash; return @list; 所以,不要写返回 hash 的函数,要返回 hash 总是使用 reference。 2012/7/1 De-Jian Zhao > 各位好,请教一个问题。最近写了一个subroutine,**尝试了两种方法,主要区别是 子例程的返回值不同。一个是返回hash > reference(方法1),一个是直接返回 h

Re: [PerlChina] 一个坑,自己掉进去好几次了。。。

2012-08-07 文章 Robin Lee
$a $b 只在 sort 里是预设变量。在其它地方没有特别 2012/8/7 Anthony WU > 不是�@�} > 而是 $a�c$b都是�A�O��量……… > Original Message > Subject: Re: [PerlChina] 一个坑,自己掉进去好几次了。。。 > From: wd > To: perlchina@googlegroups.com > Date: 7/8/2012 10:55 > > if (not defined $a || $a == 0 ) > > 优先级问题,本意是 ( (not d

Re: [PerlChina] 一个坑,自己掉进去好几次了。。。

2012-08-07 文章 Robin Lee
不过,my $a 之后,一旦在它的lexical scope 里用 sort 就悲剧了。这样说来, my $a 的确是个坑 2012/8/7 Robin Lee > $a $b 只在 sort 里是预设变量。在其它地方没有特别 > > > 2012/8/7 Anthony WU > >> 不是�@�} >> 而是 $a�c$b都是�A�O��量……… >> Original Message >> Subject: Re: [PerlChina] 一个坑,自己掉

Re: [PerlChina] =()= 的使用

2012-10-26 文章 Robin Lee
没用过这种表达方式 my $count = split /:/, $line; 不就可以了吗? 如果要强制使用 List Context,应该推荐这样写: my $elements = @{[localtime]}; 2012/10/26 x2x4 > Hi 各位 > 最近在看Perl高效编程,其中的=()=让我疑惑 > > 书中说,split 函数返回结果有多少个元素可以用下面的方法 > my $count = ( ) = split /:/, $line; > > 但是我测试,发现$count的值只是为1 > > my $line = "

Re: [PerlChina] 大部分情况下不用使用 $ 就好了,my var = "a var"; 是否存在这样的变量定义的语言

2012-12-29 文章 Robin Lee
Perl里不带sigil默认是函数,也即是 func 等于 &func 而不是等于 $func On Sunday, December 30, 2012, 方及道 wrote: > Perl灵活,但要狂敲 $ 键。 > 是否有这样的语法的语言: > my var = "a var"; > 然后 $var == ${var} == var 呢。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要在网络上查看此讨论,请访问 https://groups.google.com/d/msg/perlchina/-/c

Re: [PerlChina] 蓝讯是Perl的大用户嘛

2013-01-31 文章 Robin Lee
感兴趣? 2013/1/31 blackjack xu > *在微博上看到的信息: > > 诚邀TCP优化工程师加盟蓝汛公司,如果您具备:熟悉 Linux 内核编程(网络子系统);掌握 TCP/IP 协议内核源码、熟悉相关 RFC、熟悉 > TCP 拥塞控制算法;熟练使用 Perl 或 Shell 脚本语言请和蓝汛招聘微博联系。* > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscr...@googlegroups.

Re: [PerlChina] 蓝讯是Perl的大用户嘛

2013-02-04 文章 Robin Lee
这个职位应该是后者 2013/2/4 Weiqiang > 蓝汛这是要优化分布式存储呢,还是要优化广域网tcp效率? :) > 在 2013-1-31 PM9:16,"Robin Lee" 写道: > > 感兴趣? >> >> >> 2013/1/31 blackjack xu >> >>> *在微博上看到的信息: >>> >>> 诚邀TCP优化工程师加盟蓝汛公司,如果您具备:熟悉 Linux 内核编程(网络子系统);掌握

Re: [PerlChina] perl网站后台与脚本沟通?

2013-03-14 文章 Robin Lee
简单的进程间交互可以用 XML-RPC (CPAN: RPC::XML),进程间做较大的数据交互可以用 Memcached,如果后台流程比较复杂,可以用 Gearman 可做工作管理 2013/3/15 胡 松涛 > 公司有个网站需求: > 1. 用户上传文件。 网页端。3D文件 > 2. 服务器脚本处理。perl, bash > 3. 显示处理结果。网页端。渲染图片 > > 2,3步不是很清楚要用到什么模块处理,请有经验的前辈指导一下。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要退订此论坛并停止

Re: [PerlChina] CN Perl Tutorial

2013-04-10 文章 Robin Lee
有一处 缺了右尖括号 2013/4/10 Fayland Lam > http://cn.perl5maven.com/perl-tutorial > > Many thanks to swuecho and terrencehan. we have some articles > translated and published. > > and we need more translators, please join us at > https://github.com/PerlChina/perl5maven.com/tree/main/sites/cn > > 翻译如有错

Re: Re: [PerlChina] 谁有Perl技术内幕中文版 ,带源码的

2010-11-23 文章 Robin Lee
文明用语文明用语 2010/11/23 张卓冰 > 那你说个毛. > 我也有这本书,就是没有相对的源码 > -- > 上班如果无聊的话, 就抛硬币, > 正面就上网聊天, > 反面就趴着瞌睡, > 竖起就工作, > 倾斜就努力工作, > 摔碎了就申请加班, > 如果摔出两枚, > 我靠---那就天天摔! > > 在 2010-11-23 13:33:07,"万朝伟" 写道: > > 我有Perl技术内幕中文版,这本书没有配套光盘。这本书不软让 > > 在 2010年11月22日 下午4:59,张卓冰 写道: > >> >> 另外,谁有Perl的小项目源码,作为我入门的学习.

Re: 回复: [PerlChina] 关于XP下面perl代码 生成中文目录?

2010-12-30 文章 Robin Lee
如果源文件是用UTF-8编写,这样就可以: use utf8; use Encode qw(encode); mkdir "d:/lcr/" . encode("euc-cn", "中文"); 如果源文件是用GBK编写,那可以直接运行: mkdir “d:/lcr/中文”; 2010/12/30 Shu Cao > use Win32::API; > Win32::API->Import( > 'Kernel32', 'BOOL CreateDirectoryW(LPWSTR lpPathNameW, VOID *p)', > ); > > > > 2010/1

Re: 回复: 回复: [PerlChina] 关于XP下面pe rl代码生成中文目录?

2010-12-30 文章 Robin Lee
';”我写路径的时候就出现乱码了! > 但是我写TK界面的时候,需要这句“use encoding 'euc_cn';”,就是有没有什么方法能让这句存在而不用其它字符编码。 > > -- > > > <http://sighttp.qq.com/cgi-bin/check?sigkey=ef3f1d0a590d1e6443cee4265a7919039ee5018b70c3188a2277e86ec7806dfe> > > > > --

Re: [PerlChina] 辞旧迎新

2010-12-31 文章 Robin Lee
元旦快乐! 2010/12/31 cnhack TNT > 拽着旧年的尾巴,向大家道一声:新年快乐! > :-) > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlch...@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮件至 > perlchina+unsubscr...@googlegroups.com > 。 > 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-

Re: [PerlChina] 新手求解惑:while语句

2011-01-13 文章 Robin Lee
while() {chomp; print "$_$&\n" if /L..y/; } 这样的话就能输出你所估计的结果。 2011/1/13 方伟 > use warnings; > while() > {print if /L..y/; > print $& if /L..y/; > } > __DATA__ > My name is Lucy. > My name is Jack. > My name is Lily. > > 打印结果是: > My name is Lucy. > LucyMy name is Lily. > Lily

Re: [PerlChina] 文件句柄打开以后只能用一次吗?

2011-01-29 文章 Robin Lee
seek(FILE, 0, 0); 可以将句柄的读取点复位 详见 perldoc -f seek 2011/1/29 方伟 > 我在XP系统上写了一个查字典的小程序: > use warnings; > open FILE,'E:\dictionary'; > while(1){chomp($word=); >while(){print if /$word/;} > } > close FILE; > 上面的程序不能够实现查完一个单词后接着查下一个单词,然后我修改了一下就可以了: > use warnings; > while(1){open

Re: [PerlChina] 兔年快乐!

2011-02-02 文章 Robin Lee
同学们新春愉快 2011/2/2 Liang Guo > 新年快乐~~~ > > 2011/2/2 Fei Ni : > > 同学们: > > 新年来到,感谢大家的帮助。祝大家新年快乐,身体健康,阖家幸福! > > -- > > Feiny > > Achieving dream takes time and patience.Great careers don't happen > overnight > > ,and take years of hardwork.But every step along the road can get you > closer > > to yo

[PerlChina] Shipwright 无法运行

2011-02-21 文章 Robin Lee
安装了 Shipwright-2.4.19 运行: $ shipwright create 显示: Base class package "Shipwright::Base" is empty. (Perhaps you need to 'use' the module which defines that package first, or make that module available in @INC (@INC contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5 /u

Re: [PerlChina] Shipwright 无法运行

2011-02-21 文章 Robin Lee
似乎根本没有这个模块 2011/2/22 rochelle hsu > 很明显的提示,你检查shipwright:base模块安装了没有。 > 在 2011-2-22 上午2:54,"Robin Lee" 写道: > > > 安装了 Shipwright-2.4.19 > > > > 运行: > > $ shipwright create > > > > 显示: > > Base class package "Shipwright::Base"

Re: [PerlChina] Perl 能否像emacs那样进行更智能一些的文本替换?

2011-02-28 文章 Robin Lee
谁会不在乎可读性呢? 而“短”的标准是代码的表达力和执行效率,而不是代码的行数或字符数。 2011/2/28 Kermit > On Mon, 2011-02-28 at 13:13 +0800, Michael Zeng wrote: > > 看的累啊, 有时候 regex 过于复杂 看的真累, > > OT一下,我觉得Perl好像不怎么在乎可读性,相对与其他语言,它更是以短 > 为美,不知到这个理解对否? > > B.R > Kermit > > > > > 2011/2/28 cnhack TNT > > > > 结合一下正则替换和 y 操作符: >

Re: [PerlChina] 如何不让Tie::Handle::CSV 在字符串外加双引号""?

2011-03-10 文章 Robin Lee
因为有空格,所以加双引号是规范的做法,试试写成 FOOBAR,Name,Type, 也就是逗号后不加空格 2011/3/10 许高飞 : > 请教一下大家,我在用Tie::Handle::CSV模块处理CSV文件时,发现其输出时会在字符串外加双引号""。 > 例如: > FOOBAR, Name, Type, > 输出会变成: > FOOBAR," Name"," Type"," " > 有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗? > 代码例子见附件。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers

Re: Re: [PerlChina] Perl有没交互式的shell

2011-03-15 文章 Robin Lee
perl -de 1 可以用 \ 来换行 $ perl -de 1 Loading DB routines from perl5db.pl version 1.33 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(-e:1): 1 DB<1> for (1..3){\ cont: print; \ cont: } 123 2011/3/2 Achilles Xu : > 语法有点变化。主要是前缀不变,其他的perl5语法

Re: [PerlChina] 请问一个perlxs的问题

2011-03-24 文章 Robin Lee
这种程度的XS应该不用涉及内部数据类型,看了perlxstut的第二个例子就应该能实现这个功能了 2011/3/24 胡松涛 : > > 建议可以在perl中过虑文本,毕竟这是perl的专长。 > > 狐狸 > > 在 Thu, 24 Mar 2011 16:22:16 +0800,cnhack TNT 写道: > >> 请问为啥不直接在 perl 中进行清理呢? >> >> 2011/3/24 长歌门-肖头 [CGM]sgxiao >> >>> 假设我目前有一个perl里面的字符串 >>> >>> my $str = 'blablabla blabla blablabalbalb

[PerlChina] 将UTF8字符串按编码写出

2011-03-24 文章 Robin Lee
比如输入 "abc中cba",就输出"abc%E4%B8%ADcba"。 主要用于改写URL。 也即是,如果字符是在ASCII范围,则直接输出,否则就按其UTF8编码的16进制输出。 我现在这样来实现: #!/usr/bin/perl use warnings; use utf8; use Encode; $s = "abc中cba"; for (split('',$s)){ if (ord($_) < 128){ print; }else{ printf('%%%X',ord($_)) for (split('', encode('UT

Re: [PerlChina] 将UTF8字符串按编码写出

2011-03-24 文章 Robin Lee
噢,谢谢啊 2011/3/25 Jeova Sanctus Unus : > 你需要的uri escape > $ perl -le 'use URI::Escape; print uri_escape("abc中cba")' > abc%E4%B8%ADcba > > 在 2011年3月25日 下午12:17,Robin Lee 写道: >> 比如输入 "abc中cba",就输出"abc%E4%B8%ADcba"。 >> 主要

Re: [PerlChina]

2011-04-12 文章 Robin Lee
CPAN 那个图有点震撼 2011/4/13 Hao Wu : > 讲perl发展史的幻灯片 www.iinteractive.com/yapc/slides.html > > 幻灯片制作也很漂亮。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 > 若有更多问题,请通过 http://group

Re: [PerlChina] 字符串chinese only?

2011-04-18 文章 Robin Lee
我想到可以用 Unicode 字符区来写正则: /^[\p{Block: CJK_Unified_Ideographs} \p{Block: CJK_Unified_Ideographs_Extension_A} \p{Block: CJK_Unified_Ideographs_Extension_B} \p{Block: CJK_Unified_Ideographs_Extension_C}]+$/x 当然,要先正确decode要匹配的字符串。 perluniprops 里列出所有可用的 block 。 2011/4/19 钟声 : > 想准确点应该是根据自己的编码

Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
试下运行 /usr/local/perl/bin/perl -V 看输出什么信息 2011/5/4 xzherryjerry : > 大家好! > 我第一次发帖,不要拍砖啊! > 是这样的: >我将perl.tar.Z解压到minix2.04的/usr/local/perl,但是我怎么 > 能够用这perl命令执行perl脚本呢? >谢谢! > > > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina

Re: Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
ls -l /usr/local/perl/bin 看看 再试试 ls -l /usr/local/bin 2011/5/5 xzherryjerry : > 还有,我用的是:minix2.04 perl5 > > > > > -原始邮件----- >> 发件人: "Robin Lee" >> 发送时间: 2011年5月4日 星期三 >> 收件人: perlchina@googlegroups.com >> 抄送: >> 主题: Re: [PerlChin

Re: Re: Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
给perl添加可执行权限: chmod +x /usr/local/perl/bin/perl 然后再运行一下 /usr/local/perl/bin/perl -V 2011/5/5 xzherryjerry : > Robin Lee: > 您好! > 我 输入 ls -l /usr/local/perl/bin > perl1.pl【这是我的perl脚本】后,按Enter键后,屏幕显示:-rw-r--r- 1 root operator 24 May 4 23:19 > perl1.pl

Re: Re: Re: Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
那看来你的 perl 摆放的位置不对,应该把解压缩出来的东西上移一层文件夹 mv /usr/local/perl/bin/perl /usr/local/bin/ mv /usr/local/perl/lib/perl5 /usr/local/lib/ 然后可以删除那个多余的文件夹: rm -fr /usr/local/perl/ 然后就可以用 /usr/local/bin/perl 来运行了 甚至直接可以输入 perl perl1.pl 2011/5/5 xzherryjerry : > Robin Lee: >您好! >

Re: Re: Re: Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
不知道LZ为什么要用Minix而且是这么老的版本。 Perl 也是远古的 5.004 版 2011/5/5 xzherryjerry : > Robin Lee: >您好! >非常感谢您的帮助,我在minix里面输入: chmod +x > /usr/local/perl/bin/perl,按Enter键后, >然后输入 /usr/local/perl/bin/perl -V,按Enter键后,显示信息如下: >Can't l

Re: Re: Re: Re: Re: [PerlChina] minix2.04上执行perl

2011-05-04 文章 Robin Lee
加油!学好Perl!学好 Unix! 如果想把Unix当作日常系统来用,那还是推荐Linux 2011/5/5 xzherryjerry : > Robin Lee: > 您好! > 非常感谢您的帮助,我已经能够正常运行了! > 我用minix2.04,是因为我正在学习《操作系统:设计与实现》; > 我原先在xp上学习过Perl脚本,我想将perl应用到操作系统上, > 这个老的

Re: [PerlChina] cpanm 元数据库反向代理

2011-05-10 文章 Robin Lee
噢,鼓励! 我一直都是 alias cpanm='cpanm --mirror http://mirrors.xmu.edu.cn/CPAN/ --mirror-only' 2011/5/10 cnhack TNT : > 鉴于我们伟大的(土啬),很多架构在 GAE 上的站点都访问不到,可怜的 cpanmetadb.appspot.com 也被关照了,直接导致 cpanm > 安装模块使用不畅。:-( > 因此帮 cpanmetadb 开了个小洞,大家如果在用 cpanm 安装模块时也遇到 “Finding XXX on cpanmetadb > failed." 类似的错误,可以用以下

[PerlChina] Perl 5.14.0 正式发布

2011-05-14 文章 Robin Lee
详见: http://search.cpan.org/~jesse/perl-5.14.0/pod/perldelta.pod 基本上是标题党,因为目前还没用上。看完 delta 后列两个个人比较喜欢的新特性: 1. 新的正则替换选项 /r 一直来正则替换(s///)都是直接作用于操作变量。要想原操作变量不变,只想要把替换后的结果保存要另一个变量,要这样写: my $old = "cat"; my $new = $old; $new =~ s/cat/dog/; 有了 /r 选项后,就可以这样写 my $old = "cat"; my $new = $old =~ s/cat/dog/

Re: [PerlChina] Re: 我的工作环境是win32的,我想学习perl,但是发现困难重重!郁闷,真憋屈,我自己也是懂些bat,AU3之类的脚本语言的,但是为什么对perl就束手无策呢,恳请高人指路!

2011-06-10 文章 Robin Lee
LZ能不能清楚说说您的问题? 2011/6/10 Matthew : > 应该是在等我输入,我随便输入hello,回车后返回hello,因为对这个代码还不懂,不知道是不是就是这样执行的 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > To view this discussion on the web visit > https://groups.google.com/d/msg/perlchina/-/8z8NBJG76G0J. > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegro

Re: [PerlChina] 有没有TX用perl做开源项目的啊!

2011-06-11 文章 Robin Lee
CPAN上大把 2011/6/11 <123456fuzh...@sohu.com>: > > RT,闲来无事哦,有没有TX做开源项目的呢?想加入啊! > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 > 若有更多问题,请通过 http://groups.google.com/group/perl

[PerlChina] 分享一个小脚本 pquota.pl -- 强行关闭那些在一天内运行了太久的程序

2011-06-16 文章 Robin Lee
quota (以分钟计,默认为 120 分钟) 3. 把 pquota.pl 加入到 .bash_profile 或 .profile ,让它在登录时自动运行 哎呀!写这个邮件用了我今天快一个小时的 quota 了! Robin Lee -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 若有更多问题,请通过

[PerlChina] 求一份暑期实习

2011-06-20 文章 Robin Lee
* 中山大学硕士研究生二年级,逻辑学专业 * 编程语言: Perl/Python/C/C++ * Web应用框架: Mojolicious/Django/CGI.pm/Catalyst/Zope2 * Fedora packager,对开源软件世界有较广的视野 * 知识面广,思考力强 * 乐于学习,善于学习 * 擅长统筹资源 * 不足:除Web开发和Linux基础配置外,并没有多少计算机技术相关实践经验;未曾考取任何计算机技术证书 * 实习可用时期:7月和8月 * 意向地点:不限,广州则本人有住处 * 意向最低报酬:2000 Robin 'cheese' Lee -- 您收到此邮件

Re: [PerlChina] Re: 请教一个关于蛋白质序列的 perl语言程序

2011-06-23 文章 Robin Lee
太热闹了,在Perl列表里谈论生物信息 2011/6/23 xiumu : > 谢谢大伙了・让这个沉下去吧 > > On 6月23日, 上午11时12分, xiumu wrote: >> FASTA是生物信息数据库的常用存储方式,了解FASTA格式的含义,用perl编写程序分离注释行内容,分离蛋白质序列,并转变成氨基酸三字母表示 >> 方式。说明使用的perl数据结构和程序的变量转换过程,解释含义。 >> >> 承认这是个作业・ 谢谢各位老大了・・・时间比较紧急 明天就交了・・ 程序于简单越好 >> >> >1A23:A|PDBID|CHAIN|SE

Re: [PerlChina] 想问下诸位高手,用perl处理20几个G的文件现实否?

2011-07-01 文章 Robin Lee
用 while(<>) 就没问题啦 2011/7/2 mandova : > 在内存是2G的小PC上。是逐行处理。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 > 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网

Re: [PerlChina] 请问哪位用perl写过解方程组的脚本?

2011-07-05 文章 Robin Lee
试看看 PDL 2011/7/5 Hydraphenix : > 要做一些数据的计算,使用math-assistant中的Solve_Det函数,要求系数矩阵必须是正方形矩阵。我的数据中不能保证是正方形矩阵。 > 但计算前可以判断矩阵的秩与未知数的个数相等。在网上搜索了半天,都没有好的思路,希望有朋友能指点下。 > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 > 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 > 要取消订阅此网上论坛,请发送电子邮件至 perlchin

Re: [PerlChina] Re: 请问哪位用perl写过解方程组的脚本?

2011-07-05 文章 Robin Lee
我只是知道这个名字,呵呵 2011/7/5 Hydraphenix : > pdl中的包也不是很熟悉,不知道解方程组的是用什么函数。 > 能指点详细点吗? > > On 7月5日, 下午4时57分, Robin Lee wrote: >> 试看看 PDL -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@goo

Re: [PerlChina] File::System的使用

2011-08-02 文章 Robin Lee
对象好像都没创建 2011/8/3 Phillip Huang : > Hi 各位, > 本人最近在尝试用Perl写一个文件管理脚本,想使用File::System模块。可是按照CPAN的文档(和File::System::Object的),我始终无法执行以下操作,如: > #!/usr/bin/perl use strict; use warnings; use File::System::Object; my $obj > = 'File::System::Object'; my $file = $obj->root; root@athens:/tmp# perl 1.pl > Can

Re: [PerlChina] Ask help for Perl sort customized function

2011-09-19 文章 Robin Lee
my @b = sort{ if ($a !~ /^\d+$/) { return 1; } elsif ($b !~ /^\d+$/) { return -1; } else { return $a <=> $b; } } @a; 2011/9/19 Fangyuan : > 大家好,请教一个自定义sort函数的问题。 > 有一个数组,@a = (1..20, "10+"),我想对这个数组排序,排序的规则是:1)数字优先, "10+"排在数字后面;2)数字按从小到大 > 我自己写了一个代码,

Re: [PerlChina] system 调用外部命令无法执行

2011-10-14 文章 Robin Lee
改用 die "cannot excute the proram: $!" 看看有什么系统错误信息 2011/10/15 Yisong Zhen : > 诸位,一个小问题: > > 该脚本运行在Fedora15上面:但是无法执行system里面的程序。但是,程序不用借助perl外部调用可以正确执行。 > 即,我直接在linux命令行敲入:dialign2-2 -fn promoter.out -n promoter.seq > 可以执行程序。 > > 起初我觉得是路径不对,我输出了路径,发现是正确的,而且所需的DIALIGN2_DIR变量也设置正确。 > 代码如下: > > #!/usr/

Re: [PerlChina] system 调用外部命令无法执行

2011-10-15 文章 Robin Lee
Yisong Zhen : > 没有什么额外的信息,只是说程序的第9行: > die cannot excute the proram: at temp.pl line 9. > > 一松 > > 2011/10/15 Robin Lee : >> 改用 >> die "cannot excute the proram: $!" >> 看看有什么系统错误信息 >> >> 2011/10/15 Yisong Zhen : >>> 诸位,一个小问题: >>&

Re: [PerlChina] Perl的web框架 - Mojolicious

2011-10-18 文章 Robin Lee
已经接触了一段时间,欢迎交流 2011/10/18 truncatei : > http://mojolicio.us/ > > 终于有这样的框架出来了 > > A next generation web framework for the Perl programming language. > Back in the early days of the web, many people learned Perl because of > a wonderful Perl library called CGI. It was simple enough to get > started

Re: [PerlChina] Re: 打算重整perlchina社区

2011-11-01 文章 Robin Lee
绝对支持Xu老大! 也很希望能帮得上忙 我认为首先需要一个公共blog,类似 http://linuxtoy.org/ 或 http://www.ikde.org/ 那样。可以及时发布关于 Perl 社区的新闻。 基于 Perl 的内容管理系统(包括 wiki 系统)可以参考这个列表: http://en.wikipedia.org/wiki/Comparison_of_content_management_systems#Perl 2011/11/1 Fayland Lam : > both added. Thanks > > 2011/11/1 Achilles Xu >> >>

Re: [PerlChina] 问题:perl 语言编写的文件如何接收外部参数

2011-11-03 文章 Robin Lee
动态参数指的是什么? 2011/11/3 lhcsky2008 : > Hi,各位好! > > 我用perl语言编写了一个小程序,里面有一个 rpc.pl 的文件,我希望另外的系统在调用这个 rpc.pl > 文件执行的时候把参数动态的传递进来。但是我不知道该如何传递,也不知道 rpc.pl > 文件中该如何接收外部的动态参数。请各位帮忙提供一下案例或者资料,非常感谢! > > 2011-11-03 > > Mr.Liu > Email: lhcsky2...@gmail.com > 阳光下的微笑, 那么耀眼! 那么灿烂!

Re: [PerlChina] 急问!同样的程序不能say OUT到file但是可以say到screen这是为什么啊

2011-11-26 文章 Robin Lee
应该改成 STDOUT ? 2011/11/27 mandova > 改成print也不行,文件打开没有报错,就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上 > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。 要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。 若有更多问题,请通过 http://groups.google.com/group/

Re: [PerlChina] Re: 急问!同样的程序不能say OUT到file但是可以say到screen这是为什么啊

2011-11-27 文章 Robin Lee
t; On 11月27日, 下午3时26分, Robin Lee wrote: > > 应该改成 STDOUT ? > > > > 2011/11/27 mandova > > > > > > > > > 改成print也不行,文件打开没有报错,就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上- 隐藏被引用文字 - > > > > - 显示引用的文字 - > > -- > 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina

Re: [PerlChina] Perl Weekly

2012-04-20 文章 Robin Lee
subscribe 了,可惜用的还是 Python 写的 Mailman On Sat, Apr 21, 2012 at 12:45 PM, rochelle hsu wrote: > subscribe了。 > > > 2012/4/21 gavin > >> good idea. >> >> >> 2012/4/21 Fayland Lam >> >>> OK. 下周一我forward一份。Thanks >>> >>> 2012/4/21 wd : >>> > 或许可以直接发一份到这里?便于大家讨论,呵呵 >>> > >>> > 2012/4/20 Fayland Lam :

Re: [PerlChina] 请教一个逻辑处理问题

2012-04-24 文章 Robin Lee
my %line_count; while (<>) { $line_count{$_}++; } while (my ($line, $count) = each %line_count) { print "$count: $line" if $count > 1; } On Wed, Apr 25, 2012 at 11:51 AM, 李 ��(Zhen Li) wrote: > 用perl处理, > 举个例子, > 你可以准备一个hash,带2个key, > 一个key (line)记录每一行的内容,一个key (count)记录该行出现的次数。 > > 然后,