社区
CGI
帖子详情
如何实现把perl程序嵌入.html中?
王释之
2000-09-04 02:57:00
有下面这个例子:
我把数据库中的东西取出在magazine.pl中,然后把她嵌入到magazine.html中,
如:
magazine.html=logo + magazine.pl + contact + img 等
请问如何实现?
谢谢!
...全文
428
7
打赏
收藏
如何实现把perl程序嵌入.html中?
有下面这个例子: 我把数据库中的东西取出在magazine.pl中,然后把她嵌入到magazine.html中, 如: magazine.html=logo + magazine.pl + contact + img 等 请问如何实现? 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
王释之
2000-09-07
打赏
举报
回复
能给出列子吗?
谢谢!
shines77
2000-09-07
打赏
举报
回复
scud和iamcloud说得都很对,用标识替换法就可以了 <!--ChangeHere-->, 此方法还是很爽的。
shines77
2000-09-07
打赏
举报
回复
#!/usr/bin/perl
############################
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
($name, $value) = split(/=/, $query);
$FORM{$name} = $value;
}
if ($FORM{'url'}) {
$url = "$FORM{'url'}";
$url =~ s/\&x//g;
$url =~ s/\+/ /g;
$url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$url =~ s/~!/ ~!/g;
$url =~ s/\%2F/\//g;
&checkempty($url,"未指定url");
}
else {
&error("未指定url");
}
if ($FORM{'file'}) {
$file = "$FORM{'file'}";
$file =~ s/\&x//g;
$file =~ s/\+/ /g;
$file =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$file =~ s/~!/ ~!/g;
$file =~ s/\%2F/\//g;
&checkempty($file,"未指定file");
}
else {
&error("未指定file");
}
if ($FORM{'mark'}) {
$mark = "$FORM{'mark'}";
$mark =~ s/\&x//g;
$mark =~ s/\+/ /g;
$mark =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$mark =~ s/~!/ ~!/g;
$mark =~ s/\%2F/\//g;
&checkempty($mark,"未指定mark");
}
else {
&error("未指定mark");
}
print "Location: $url\n\n";
open(MAIN,"$file");
@main = <MAIN>;
close(MAIN);
$check=0;
open(MAIN,">$file");
foreach (@main) {
if ($_ =~ /<!--$mark-->(.*)<!--$mark-->/) {
$clickcount=$1+1;
$check=1;
$_ =~ s/<!--$mark-->(.*)<!--$mark-->/<!--$mark-->$clickcount<!--$mark-->/g;
}
print (MAIN "$_");
}
close(MAIN);
if ($ckeck==0) {
&error("无法发现mark");
}
exit 0;
########
sub checkempty {
$checkvalue = $_[0];
$checkerror = $_[1];
$checkvalue =~ s/<br>//g;
$checkvalue =~ s/\n//g;
$checkvalue =~ s/ //g;
if ($checkvalue eq "") {
&error($checkerror);
}
}
########
sub error {
print "Content-type: text/html\n\n";
print "<html><head><title>错误</title></head>\n";
print "<body bgcolor=ffffff text=007700>\n";
print "<center><h2>\n";
print "错误:$_[0]\n";
print "</h2></center></body></html>\n";
exit 0;
}
本perl是把xxxx.dat中的"<!--smz-->2699<!--smz-->"替换,注意"$_ =~ s/<!--$mark-->(.*)<!--$mark-->/<!--$mark-->$clickcount<!--$mark-->/g;"一段,这只是个例子,看你的领悟能力了。
iamcloud
2000-09-06
打赏
举报
回复
ssi是一种方式,要看服务器支持与否,方法是在开始<!--#exec cgi="magazine.pl"-->
或者是建立好magazine.html文件,需要用数据库数据的地方采用一些特殊的标识,比方<!--NAME-->代表数据库中的名字字段数据,然后在magazine.pl中打开magazine.html文件,将要替换的字串替换输出。eg: ~s/\<!--NAME--\>/数据库字段/;
以上如有不明白,你寄我信箱问好了
王释之
2000-09-06
打赏
举报
回复
如果magazine.html很复杂,用程序都很费劲的.
请问如何具体操作?
scud
2000-09-05
打赏
举报
回复
用程序读出magazine.html,嵌入(可以在magazine.html里放一个特殊标志或者符号),替换标志或符号,输出就可以了亚
iamcloud
2000-09-05
打赏
举报
回复
用ssi
php-5.2.17-Win32-VC6-x86.zip
PHP,一个嵌套的缩写名称,是英文超级文本预处理语言(PHP:Hypertext Preprocessor)的缩写。PHP 是一种
HTML
内嵌式的语言,是一种在服务器端执行的
嵌入
HTML
文档的脚本语言,语言的风格有类似于C语言,现在被很多的网站编程人员广泛的运用。PHP 独特的语法混合了 C、Java、
Perl
以及 PHP 自创新的语法。它可以比 CGI 或者
Perl
更快速的执行动态网页。用PHP做出的动态页面与其他的编程语言相比,PHP是将
程序
嵌入
到
HTML
文档
中
去执行,执行效率比完全生成
HTML
标记的CGI要高许多;与同样是
嵌入
HTML
文档的脚本语言JavaScript相比,PHP在服务器端执行,充分利用了服务器的性能;PHP执行引擎还会将用户经常访问的PHP
程序
驻留在内存
中
,其他用户再一次访问这个
程序
时就不需要重新编译
程序
了,只要直接执行内存
中
的代码就可以了,这也是PHP高效率的体现之一。
perl
中
文手册 在线手册
原文出处:http://shouce.jb51.net/
perl
/index.
html
第零章
Perl
前言 第零章
Perl
前言 1. 追求幸福2. 这个版本有什么新东西3. 标准的发布版4. 在线文档5. 阅读标准手册页6. 搜索手册页7. 非
Perl
手册页8. 离线文档9. 其它资源 9.1 Web 上的
Perl
9.2
JSP 基础实战精讲(大神必经之路)
JSP全称Java Server Pages,是一种动态网页开发技术。它使用JSP标签在
HTML
网页
中
插入Java代码。标签通常以结束。JSP是一种Java servlet,主要用于
实现
Java web应用
程序
的用户界面部分。网页开发者们通过结合
HTML
代码、X
HTML
代码、XML元素以及
嵌入
JSP操作和命令来编写JSP。JSP通过网页表单获取用户输入数据、访问数据库及其他数据源,然后动态地创建网页。JSP标签有多种功能,比如访问数据库、记录用户选择信息、访问JavaBeans组件等,还可以在不同的网页
中
传递控制信息和共享信息。
perl
如何内嵌
html
近日在CSDN的CGI版看到有centuries (燃烧太阳)网友问如何在
Perl
中
内嵌
HTML
,这是在
Perl
WEB开发
中
经常遇到的一个问题,现在写出来,希望对大家有所帮助。我现在有一个
html
的网页代码,要将其改为
perl
程序
,如果只是单纯在其第一行加上"#!../
perl
/bin/
perl
",并将文件后缀名改为.cgi,会出现错误提示"You don’t have permissi
Perl
命令行应用
程序
详解
Perl
命令行应用
程序
详解 这篇文章主要介绍了
Perl
命令行应用
程序
详解,本文大量讲解了
perl
的命令行参数和一句话
实现
的一些功能,需要的朋友可以参考下
perl
- Practical Extraction and Report Language,
Perl
有很多命令行参数,通过它可以让你的
程序
更简练,并且可以写出很多只有一行命令的
perl
。在这
CGI
2,204
社区成员
4,518
社区内容
发帖
与我相关
我的任务
CGI
Web 开发 CGI
复制链接
扫一扫
分享
社区描述
Web 开发 CGI
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章