社区
CGI
帖子详情
如何实现把perl程序嵌入.html中?
王释之
2000-09-04 02:57:00
有下面这个例子:
我把数据库中的东西取出在magazine.pl中,然后把她嵌入到magazine.html中,
如:
magazine.html=logo + magazine.pl + contact + img 等
请问如何实现?
谢谢!
...全文
432
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
区别
perl
php,什么是
Perl
?
Perl
与PHP之间区别有哪些?
Perl
与PHP之间的区别是什么?下面本篇文章合肥PHP培训就来带大家了解一下
Perl
与PHP,介绍
Perl
与PHP之间的区别,希望对大家有所帮助。什么是
Perl
?
Perl
与PHP之间区别有哪些?什么是
Perl
?
Perl
是一种动态的,高级的、通用的编程语言,它没有任何官方缩写。它是纯粹使用C编程语言开发和
实现
的;它支持跨平台操作系统;它是根据GNU通用公共许可证授权的。它具有不同的文件扩展名,如....
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写文章