社区
CGI
帖子详情
如何实现把perl程序嵌入.html中?
王释之
2000-09-04 02:57:00
有下面这个例子:
我把数据库中的东西取出在magazine.pl中,然后把她嵌入到magazine.html中,
如:
magazine.html=logo + magazine.pl + contact + img 等
请问如何实现?
谢谢!
...全文
434
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是将
程序
嵌入
到
HTML
文档
中
去执行,执行效率比完全生成
HTML
标记的CGI要高许多;与同样是
嵌入
HTML
文档的脚本语言JavaScript相比,PHP在服务器端执行,充分利用了服务器的...
perl
中
文手册 在线手册
原文出处:http://shouce.jb51.net/
perl
/index.
html
第零章
Perl
前言 第零章
Perl
前言 1. 追求幸福2. 这个版本有什么新东西3. 标准的发布版4. 在线文档5. 阅读标准手册页6. 搜索手册页7....
JSP 基础实战精讲(大神必经之路)
JSP是一种Java servlet,主要用于
实现
Java web应用
程序
的用户界面部分。网页开发者们通过结合
HTML
代码、X
HTML
代码、XML元素以及
嵌入
JSP操作和命令来编写JSP。 JSP通过网页表单获取用户输入数据、访问数据库及其他...
区别
perl
php,什么是
Perl
?
Perl
与PHP之间区别有哪些?
Perl
与PHP之间的区别是什么?下面本篇文章合肥PHP培训就来带大家了解一下
Perl
与PHP,介绍...它是纯粹使用C编程语言开发和
实现
的;它支持跨平台操作系统;它是根据GNU通用公共许可证授权的。它具有不同的文件扩展名,如....
perl
如何内嵌
html
近日在CSDN的CGI版看到有centuries (燃烧太阳...我现在有一个
html
的网页代码,要将其改为
perl
程序
,如果只是单纯在其第一行加上"#!../
perl
/bin/
perl
",并将文件后缀名改为.cgi,会出现错误提示"You don’t have permissi
CGI
2,204
社区成员
4,518
社区内容
发帖
与我相关
我的任务
CGI
Web 开发 CGI
复制链接
扫一扫
分享
社区描述
Web 开发 CGI
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章