怎么用perl生成html网页

2023-02-19 07:30:01html-css033

怎么用perl生成html网页,第1张

最直接的就是print html code，当然比较繁琐，一般多用模块实现，比较常用的是CGI模块，例如：

#!/usr/bin/perl

use CGI

my $q = CGI->new

#print $q->header()

print $q->start_html('hello world')

print $q->h1('hello world')

print $q->end_html

输出：

<!DOCTYPE html

PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"

<html xmlns="

<head>

<title>hello world</title>

</head>

<body>

<h1>hello world</h1>

</body>

</html>

print $q->header()主要是为了CGI程序用，如果只是要生成html代码就不用了。

while($content =~ /(\<h3[^\>]*?\>(.+?)\<\/h3\>)/isg) #先把h3标签取出来

{

my $x = $2

$x =~ s/\<[^\>]*?\>//g #再去掉所有的html标签

print $x #剩下的就是标题的内容了

}

Perl是典型的脚本语言，短小精悍，非常容易上手，尤其适合处理文本，数据，以及系统管理。它在老一辈的生物信息学分析人员中非常流行，出于历史遗留原因大家肯定会或多或少地接触 Perl，即使你再怎么推崇Python或者GO等新兴编程语言。

1 入门资料

两个半小时入门指导：https://qntm.org/files/perl/perl.html

21天学完 perl，自己搜索下载PDF书籍吧！

大小骆驼书，建议都看完，以囫囵吞枣的方式阅读，只看基础知识来入门，难点全部跳过。

官网：https://www.perl.org/

函数如何用：都可以在http://perldoc.perl.org/perl.html 查到

论坛：http://www.perlmonks.org/

2 知识要点

在看书的同时，你必须记住和熟练使用的知识点是下面这些：

理解perl里面的三种变量表示方式

$ 表示单个变量

用单双引号区别，q(),qq()

@ 表示多个变量组成的数组，qw()

% 表示关系型变量-hash

变量不严格区分类型，没有int/float/double/char这样的概念

三种变量都有对应的操作技巧：

简单变量的操作函数

Numerical operators: <> >, <>>=, ==, !=, <=>, +, *

String operators:lt, gt, le, ge, eq, ne, cmp, ., x

数组操作(pop/push/shift/unshift/splice/map/grep/join/split/sort/reverse)

hash操作方式

(keys,values,each,delete,exists)

具体需要在实战里面体会：http://www.biotrainee.com/forum-90-1.html 生信人必练的200个数据处理任务(欢迎大家去练习)

变量内容交换，字符型转为数值型，字符串转为字符数组，字符串变量，heredoc，字符串分割，字符串截取，随机数生成，取整，各种概率分布数，多维矩阵如何操作，进制转换，hash翻转，数组转hash

上下文环境

这个比较复杂： http://www.perlmonks.org/?node_id=738558，就是需要理解你写的程序是如何判断你的变量的，你以为的不一定是你以为的。

正则表达式

这也是一个非常重要的一块内容，基础用法就是m和s，一个匹配，一个替换，比较有趣的就是1,2等等捕获变量。

内建变量

就是perl语言设计的时候定义了一大堆的全局变量($_ $, $0 $>$<$!="" $.="" @argv="" @f="" @_="" @inc="" %env="">)

。外表上看起来都是一个$ @ %符号后面加上一大堆的奇奇怪怪的字符，表示一些特殊变量，这也是perl语言饱受诟病的原因。但是有些非常重要，懂了它之后写程序会方便。下载一个表格，里面有近100个预定义变量需要学习的。

控制语句(循环/条件/判断)

if ... elsif ... else ...

unless/while/next/last/for/foreach

读写文件，脚本实战！

while(<>){

#do something !

}

这是我最喜欢的一个程序模板，读取文件，根据需要处理文件，然后输出。需要实现非常多的功能，然后就可以自己总结脚本技巧，也能完全掌握perl的各种语法。在生物信息学领域，需要实现的功能有！

perl 单行命令

我个人特别喜欢这个知识点，我也专门下载过一本书来学习，把这个教程看完就基本上能全明白：http://www.catonmat.net/blog/perl-one-liners-explained-part-one/。学习单行命令的前提是掌握非常多的奇奇怪怪的perl自定义变量和perl的基础语法，用熟练了之后就非常方便，很多生物信息学数据处理过程我现在基本不写脚本，都是直接写一行命令，完全代替了shell脚本里面的awk、sed/grep系列命令。(perl -p -a -n -a -l -i -F -M)

预定义函数

perl 是一个非常精简的语言，自定义的函数非常少，连min max这样常见的函数都没有，如果你需要使用这样的功能，要么自己写一个函数，要么使用加强版的包，perl的包非常多。

下面列出一些，我常用的函数：

程序必备： use/die/warn/print/open/close/<>/

数学函数：sin/cos/log/abs/rand/srand/sqrt

字符串函数：uc/lc/scaler/index/rindex/length/pos/substr/sprintf/chop/chomp/hex/int/oct/ord/chr/unpack/unencode

defined/undef

系统操作相关

perl语言是跨平台的，因为它的执行靠的是perl解释器，而perl的解释器可以安装在任何机器上面。所以可以用perl来代替很多系统管理工作。

系统命令调用

文件句柄操作(STDIN,STDOUT,STDERR,ARGV,DATA,)

系统文件管理(mkdir/chdir/opendir/closedir/readdir/telldir/rmdir/)