- 响应头204的应用2007-12-19 11:54:47
- 先看一个常见的CGI输出的例子:
#!/usr/bin/perl
print"Content-type:text/html/n/n";
print"<HTML><BODY>";
print"<H1>xyz</H1>";
print"</BODY></HTML>";
当我们在提交一份
- 用Perl语言进行Socket编程2007-12-19 11:54:47
- 网络编程是一门神秘且复杂的艺术,当然也十分有趣。Perl语言提供了丰富的TCP/IP网络函数,所有这些函数都
直接来源于C语言的socket库函数.
由于Perl语言和C语言的socket库函数在型式和使用方法上都是一样的,因此会使
- 在Apache服务器上运行mod_perl2007-12-19 11:54:40
- 现在网上已经有大量的关于成功运行mod_perl模块的介绍,该模块可以让Perl程序员更
好地控制Apache服务器。一旦Apache服务器中内置了mod_perl的Perl解释器,Perl脚
本就可以快速执行,使得你的网页的访问者无需等待。
- 单行代码的Perl程序2007-12-19 11:54:40
- 精简的代码,虽然可读性不好,但是绝对高效,发挥才思。
一些不同凡响的Unix狂的一个业余爱好就是研究怎样把程序压缩到单行来完成。那些精通Perl的程序员
能很好地做到这一点。例如一个测试素数的程序:
perl-le'pr
- Perl的经典用法:用Open()函数打开文件2007-12-19 11:54:33
- 打开文件的常用方法是:open(FH,"$filename")ordie"Couldn'topen$filenameforappending:$!";通过“ ”模式。open(FH," >$filename")ordie"Couldn'topen$filenameforreadingandwriting:$!";注意“ ”的区别,两者都可以
- 使用perldoc找文档2007-12-19 11:54:33
- Perl代有机器庞大的文档库,采用man形式存放。如果要查找某一特定的函数,手工查找会非
常困难。但是perldoc命令,可以帮你轻松找到所需要的资料:
假设我们要查找sort函数的手册,那么:
perldoc-fsort
就会告诉
- Perl的经典用法:用Sysopen()进行更多的控制2007-12-19 11:54:22
- 为了更好的控制文件的打开方式,可以使用sysopen()函数:useFcntl;sysopen(FH,$filename,O_RDWR|O_CREAT,0666)ordie"Can'topen$filenameforreading/writing/creating:$!";函数sysopen()带有四个参数,第一个是同open
- 执行mod_perl模块2007-12-19 11:54:22
- 执行mod_perl模块如果你正想要扩增你的Apache网页服务器的功能,你或许应该看看模块所能
带给你的是什么。模块,是一个已经经过整合的程序代码,它可以让网页工程师们增加
他们服务器的功能而不用更改服务器本身的程
- Perl的经典用法:读入多个记录2007-12-19 11:54:15
- 如果你调用,返回文件中剩余的记录。如果你处于文件尾,则返回空表:@records=;if(@records){print"Therewere",scalar(@records),"recordsread./n";}在下面的一步中,进行赋值和测试两项工作:if(@records=){print"T
- Perl的经典用法:读入单个记录2007-12-19 11:54:15
- 有一个容易的方法读入filehandles:用操作符。在标量内容下,它返回文件中的下一个记录,或者返回未定义出错信息。我们可以使用它来把一行读入到一个变量中:$line=;die"Unexpectedend-of-file"unlessdefined$line;在
- Perl的经典用法:用正则表达式对文件进行操作2007-12-19 11:54:08
- 一旦你有个包含了整个串的变量,你可以使用正则表达式,对整个文件进行操作,而不是对文件中的某个块进行操作。有两个有用的正则表达式标记/s和/m。一般,Perl的正则表达式对行进行处理,你可以这样写:undef$/;$lin
- Perl的经典用法:读入段落2007-12-19 11:54:08
- $/=""的写法是用来指示Perl读入段落的,段落是由两个或两个以上的换行符构成的文本块。这不同于设置为"/n/n",后者仅读入由两行组成的文本块。在这种情况下,将出现这样一个问题:如果有连续的空行存在,例如“text/
- PERL下的正则表达式2007-12-19 11:53:59
- 用Perl饼来替换文件中的字符串2007-12-19 11:53:59
- 我们知道sed可以用来替换文本,但是会产生副产品:第二个文件。
如果采用perl的-p-i-e参数,可以解决同样的问题:
perl-p-i-e's/originaltextstring/replacementstring/g'foo
- ADODB与PearDB的兼容部分2007-12-19 11:53:51
- PHP代码:PHP代码:
- proftpdlog文件实时分析,动态封禁/解封2007-12-19 11:53:51
- 构建一个Perl/CGI投票系统2007-12-19 11:53:43
- 许多Web部署的应用程序都是在精心设计的数据库驱动的服务器端开发框架中编写的,例如PHP和Java™servlet,但是对于一些简单的程序(例如,整个数据库要能够存放在Web服务器的RAM中)来说,使用加锁的DMB文件和P
- LINUX2007-12-19 11:53:43
- 摘要:生物信息学(Bioinformatics)生物信息学开始于科学家们将生物学数据以数字格式存放并且用程序来处理这些数据。很长一段时间以来,生物信息学都限制在序列的分析上。然而,随着构建分子的结构模型的重要性开始显
- Perl小技巧:文件操作2007-12-19 11:53:36
- opendirDIR,$path;@arr1=readdirDIR;@arr2=grep{-T"$path$_"}@arr1;#textfilesonly@arr3=grep{!-d"$path$_"}@arr1;#nodirectories@arr4=grep{-s"$path$_"<1024}@arr1;#lessthan1K代码解释:假如被测试的目录项是一
- Perl简介2007-12-19 11:53:36
- Perl简介Perl最初只是Unix系统管理员的一个工具,在工作日里被用在无数的小任务中。从那以后,它逐步发展成为一种全功能的程序设计语言,特别是在各种计算平台上,它被用作Web编程、数据库处理、XML处理以及系统管理
- Perl简单模块指南2007-12-19 11:53:29
- 下面是这个模块的内容:MyModule.pmpackageMyModule;usestrict;useExporter;usevarsqw($VERSION@ISA@EXPORT@EXPORT_OKEXPORT_TAGS);$VERSION=1.00;@ISA=qw(Exporter);@EXPORT=();@EXPORT_OK=qw(func1func2);EXPORT_T
- 如何使用strict和warnings2007-12-19 11:53:29
- 什么场合要用usestrict当你的程序有一定的行数时,尤其是在一页放不下时,或者是你找不到发生错误的原因时。为什么要用usestrict?众多的原因之一是帮你寻找因为错误拼写造成的错误。比如错误使用了'$recieve_date'变
- 《极限编程》前言及第一章2007-12-19 11:53:20
- 极限编程(ExtremeProgramming,以下简称XP)是软件开发中的一个方法学。它让用户、商人、程序员和计算机能够有效的沟通。Perl作为一种动态开发语言,给极限编程小组的有效沟通,带来了不可思议的改变。在这个婚姻里面
- 使用Maypole进行快速Web应用开发:第2部分2007-12-19 11:53:20
- 当我们
- PerlCookbook2介绍2007-12-19 11:53:10
- 摘要:SQL语言在标准数据库以外的应用问题:你想对一个非关系型数据库结构进行复杂的SQL查询。解决:使用CPAN上的DBD::SQLite模块useDBI;$dbh=DBI->connect("dbi:SQLite:dbname=/Users/gnat/salaries.sqlt","",""