一篇好文,一本清茶,
一提起perl python,都是硝烟弥漫,给大家介绍一篇好文,犹如一次洗礼。 写的好,回复的也很绅士,气度。虽然英文,但是挺好读的。 http://www.revolves.net/2009/11/ ... n-the-final-battle/
作者: jidiyihao 发布时间: 05-14
请教个perl cgi脚本的问题.
my $child = fork; if ($child > 0){ print " 1 2 OK</br>"; exit; } setsid(); exec(childprocess); 复制代码 执行上边这段代码后父进程成为僵尸进程,浏览器直到子进程退出才收到1 2 ok的数据,对这个问题颇为不解
作者: 为什么删我id 发布时间: 05-13
请求解决:Perl发送邮件的中文乱码问题。。
各位好, 我用的是Net::SMTP来发送邮件,用Encode来解决乱码的问题。 发送邮件没有问题,可以正常发送,如果邮件中有中文则会呈现乱码。而Encode这个模块我不大会用,应该来说不知道怎么来用吧。 如下是我用的模块: use warnings; use strict; use Net::SMTP; use Encode; use Encode::CN; 复制代码 我的目的是想通过perl来发送邮件,接收客户端都是outlook2003或2007的,o...
作者: andy20008 发布时间: 05-13
想问有关grep的函数
数据类型是如下格式: A_Shanghai-Jinshan_13_2011 8 NSTA 0.8099 (9/9) +++ A_Shanghai-Jinshan_13_2011 22 NGTI 0.7020 (9/9) ++ A_Shanghai-Jinshan_13_2011 38 NATE 0.5016 (6/9) + 当第4列的数值大于0.5的时候,抓出第2列的数值,写程序逐行判断肯定没问题,但那样就不是perl的风格啦,我想用grep函数是不是可以实现呢? 但是正则表达式基础不是很好,也不知道该怎么弄...
作者: camus1984 发布时间: 05-13
请高手解说一下这几个sub
请高手解说一下 来解说下 分析下这几个sub sub asub { $_ && return 1 for @_; 0 } sub bsub { $_ || return 0 for @_; 1 } sub csub { $_ && return 0 for @_; 1 } sub dsub { $_ || return 1 for @_; 0 }
作者: cinanine 发布时间: 05-13
文件句柄
#!/usr/bin/perl #auth youcz 20110512 May Thursday twevfth open(HD1,'> ./test1.txt'); open(HD2,'> ./test2.txt'); open(HD3,'> ./test3.txt'); open(TR,"| tr '[a-z]' '[A-Z]'"); open(HD, '< test.txt'); while(<HD>){ print HD1 ; print HD2 ; print HD3 ; } 我想把HD 用 tr处理后写到 HD1 2 3 中,怎么写?
作者: youcz 发布时间: 05-12
请教:使用dbi::ODBC时如何忽略SQL语句中标量里的特殊字符?
如果sql 语句中的标量里含有特殊字符,比如“:”,就会出现执行错误。所以想知道怎样才能让Perl 关闭对SQL语句中标量里的字符进行检查? 谢谢~
作者: x9x9 发布时间: 05-11