怎样的工作不透露下?
2012/6/7 Xusheng
> 我们正在招聘一名perl兼职编程人员,可以利用业余时间做项目,这是一个长期的项目,一旦录用会有较长期的工作安排。工作方式为兼职。受聘人员在本人
> 所在地工作。工作时间有一定程度的灵活度。有兴趣者请将CV/Resume发到 xushengwan...@gmail.com
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛,请发送电子邮
个人近期还没能抽出时间做兼职,只是好奇问问
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兼职编程人员,可以利用业余时间做项目,这是一个长期的项目,一旦录
要自己实现上下文相关的函数,就是靠 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
$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
不过,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] 一个坑,自己掉
没用过这种表达方式
my $count = split /:/, $line;
不就可以了吗?
如果要强制使用 List Context,应该推荐这样写:
my $elements = @{[localtime]};
2012/10/26 x2x4
> Hi 各位
> 最近在看Perl高效编程,其中的=()=让我疑惑
>
> 书中说,split 函数返回结果有多少个元素可以用下面的方法
> my $count = ( ) = split /:/, $line;
>
> 但是我测试,发现$count的值只是为1
>
> my $line = "
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
感兴趣?
2013/1/31 blackjack xu
> *在微博上看到的信息:
>
> 诚邀TCP优化工程师加盟蓝汛公司,如果您具备:熟悉 Linux 内核编程(网络子系统);掌握 TCP/IP 协议内核源码、熟悉相关 RFC、熟悉
> TCP 拥塞控制算法;熟练使用 Perl 或 Shell 脚本语言请和蓝汛招聘微博联系。*
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要退订此论坛并停止接收此论坛的电子邮件,请发送电子邮件到 perlchina+unsubscr...@googlegroups.
这个职位应该是后者
2013/2/4 Weiqiang
> 蓝汛这是要优化分布式存储呢,还是要优化广域网tcp效率? :)
> 在 2013-1-31 PM9:16,"Robin Lee" 写道:
>
> 感兴趣?
>>
>>
>> 2013/1/31 blackjack xu
>>
>>> *在微博上看到的信息:
>>>
>>> 诚邀TCP优化工程师加盟蓝汛公司,如果您具备:熟悉 Linux 内核编程(网络子系统);掌握
简单的进程间交互可以用 XML-RPC (CPAN: RPC::XML),进程间做较大的数据交互可以用
Memcached,如果后台流程比较复杂,可以用 Gearman 可做工作管理
2013/3/15 胡 松涛
> 公司有个网站需求:
> 1. 用户上传文件。 网页端。3D文件
> 2. 服务器脚本处理。perl, bash
> 3. 显示处理结果。网页端。渲染图片
>
> 2,3步不是很清楚要用到什么模块处理,请有经验的前辈指导一下。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要退订此论坛并停止
有一处 缺了右尖括号
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
>
> 翻译如有错
文明用语文明用语
2010/11/23 张卓冰
> 那你说个毛.
> 我也有这本书,就是没有相对的源码
> --
> 上班如果无聊的话, 就抛硬币,
> 正面就上网聊天,
> 反面就趴着瞌睡,
> 竖起就工作,
> 倾斜就努力工作,
> 摔碎了就申请加班,
> 如果摔出两枚,
> 我靠---那就天天摔!
>
> 在 2010-11-23 13:33:07,"万朝伟" 写道:
>
> 我有Perl技术内幕中文版,这本书没有配套光盘。这本书不软让
>
> 在 2010年11月22日 下午4:59,张卓冰 写道:
>
>>
>> 另外,谁有Perl的小项目源码,作为我入门的学习.
如果源文件是用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
';”我写路径的时候就出现乱码了!
> 但是我写TK界面的时候,需要这句“use encoding 'euc_cn';”,就是有没有什么方法能让这句存在而不用其它字符编码。
>
> --
>
>
> <http://sighttp.qq.com/cgi-bin/check?sigkey=ef3f1d0a590d1e6443cee4265a7919039ee5018b70c3188a2277e86ec7806dfe>
>
>
>
> --
元旦快乐!
2010/12/31 cnhack TNT
> 拽着旧年的尾巴,向大家道一声:新年快乐!
> :-)
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖,请发送电子邮件至 perlch...@googlegroups.com。
> 要取消订阅此网上论坛,请发送电子邮件至
> perlchina+unsubscr...@googlegroups.com
> 。
> 若有更多问题,请通过 http://groups.google.com/group/perlchina?hl=zh-
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
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
同学们新春愉快
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
安装了 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
似乎根本没有这个模块
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"
谁会不在乎可读性呢?
而“短”的标准是代码的表达力和执行效率,而不是代码的行数或字符数。
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 操作符:
>
因为有空格,所以加双引号是规范的做法,试试写成
FOOBAR,Name,Type,
也就是逗号后不加空格
2011/3/10 许高飞 :
> 请教一下大家,我在用Tie::Handle::CSV模块处理CSV文件时,发现其输出时会在字符串外加双引号""。
> 例如:
> FOOBAR, Name, Type,
> 输出会变成:
> FOOBAR," Name"," Type"," "
> 有什么办法不让Tie::Handle::CSV 在字符串外加双引号""吗?
> 代码例子见附件。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers
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语法
这种程度的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
比如输入 "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
噢,谢谢啊
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"。
>> 主要
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
我想到可以用 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 钟声 :
> 想准确点应该是根据自己的编码
试下运行 /usr/local/perl/bin/perl -V
看输出什么信息
2011/5/4 xzherryjerry :
> 大家好!
> 我第一次发帖,不要拍砖啊!
> 是这样的:
>我将perl.tar.Z解压到minix2.04的/usr/local/perl,但是我怎么
> 能够用这perl命令执行perl脚本呢?
>谢谢!
>
>
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina
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
给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
那看来你的 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:
>您好!
>
不知道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
加油!学好Perl!学好 Unix!
如果想把Unix当作日常系统来用,那还是推荐Linux
2011/5/5 xzherryjerry :
> Robin Lee:
> 您好!
> 非常感谢您的帮助,我已经能够正常运行了!
> 我用minix2.04,是因为我正在学习《操作系统:设计与实现》;
> 我原先在xp上学习过Perl脚本,我想将perl应用到操作系统上,
> 这个老的
噢,鼓励!
我一直都是
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." 类似的错误,可以用以下
详见: 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/
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
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
quota (以分钟计,默认为 120 分钟)
3. 把 pquota.pl 加入到 .bash_profile 或 .profile ,让它在登录时自动运行
哎呀!写这个邮件用了我今天快一个小时的 quota 了!
Robin Lee
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。
若有更多问题,请通过
* 中山大学硕士研究生二年级,逻辑学专业
* 编程语言: Perl/Python/C/C++
* Web应用框架: Mojolicious/Django/CGI.pm/Catalyst/Zope2
* Fedora packager,对开源软件世界有较广的视野
* 知识面广,思考力强
* 乐于学习,善于学习
* 擅长统筹资源
* 不足:除Web开发和Linux基础配置外,并没有多少计算机技术相关实践经验;未曾考取任何计算机技术证书
* 实习可用时期:7月和8月
* 意向地点:不限,广州则本人有住处
* 意向最低报酬:2000
Robin 'cheese' Lee
--
您收到此邮件
太热闹了,在Perl列表里谈论生物信息
2011/6/23 xiumu :
> 谢谢大伙了・让这个沉下去吧
>
> On 6月23日, 上午11时12分, xiumu wrote:
>> FASTA是生物信息数据库的常用存储方式,了解FASTA格式的含义,用perl编写程序分离注释行内容,分离蛋白质序列,并转变成氨基酸三字母表示
>> 方式。说明使用的perl数据结构和程序的变量转换过程,解释含义。
>>
>> 承认这是个作业・ 谢谢各位老大了・・・时间比较紧急 明天就交了・・ 程序于简单越好
>>
>> >1A23:A|PDBID|CHAIN|SE
用 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 访问此网
试看看 PDL
2011/7/5 Hydraphenix :
> 要做一些数据的计算,使用math-assistant中的Solve_Det函数,要求系数矩阵必须是正方形矩阵。我的数据中不能保证是正方形矩阵。
> 但计算前可以判断矩阵的秩与未知数的个数相等。在网上搜索了半天,都没有好的思路,希望有朋友能指点下。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
> 要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛,请发送电子邮件至 perlchin
我只是知道这个名字,呵呵
2011/7/5 Hydraphenix :
> pdl中的包也不是很熟悉,不知道解方程组的是用什么函数。
> 能指点详细点吗?
>
> On 7月5日, 下午4时57分, Robin Lee wrote:
>> 试看看 PDL
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@goo
对象好像都没创建
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
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)数字按从小到大
> 我自己写了一个代码,
改用
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/
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 :
>>> 诸位,一个小问题:
>>&
已经接触了一段时间,欢迎交流
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
绝对支持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
>>
>>
动态参数指的是什么?
2011/11/3 lhcsky2008 :
> Hi,各位好!
>
> 我用perl语言编写了一个小程序,里面有一个 rpc.pl 的文件,我希望另外的系统在调用这个 rpc.pl
> 文件执行的时候把参数动态的传递进来。但是我不知道该如何传递,也不知道 rpc.pl
> 文件中该如何接收外部的动态参数。请各位帮忙提供一下案例或者资料,非常感谢!
>
> 2011-11-03
>
> Mr.Liu
> Email: lhcsky2...@gmail.com
> 阳光下的微笑, 那么耀眼! 那么灿烂!
应该改成 STDOUT ?
2011/11/27 mandova
> 改成print也不行,文件打开没有报错,就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上
>
--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖,请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛,请发送电子邮件至 perlchina+unsubscr...@googlegroups.com。
若有更多问题,请通过 http://groups.google.com/group/
t; On 11月27日, 下午3时26分, Robin Lee wrote:
> > 应该改成 STDOUT ?
> >
> > 2011/11/27 mandova
> >
> >
> >
> > > 改成print也不行,文件打开没有报错,就是死活写不进文件啊~~~把OUT去掉就可以写在屏幕上- 隐藏被引用文字 -
> >
> > - 显示引用的文字 -
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina
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 :
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)记录该行出现的次数。
>
> 然后,
55 matches
Mail list logo