Chinaunix首页 | 论坛 | 博客

zfwslf的ChinaUnix博客zfwslf.blog.chinaunix.net

首页　| 　博文目录　| 　关于我

zfwslf

  • 博客访问： 80550
  • 博文数量： 28
  • 博客积分： 579
  • 博客等级： 中士
  • 技术积分： 245
  • 用 户 组： 普通用户
  • 注册时间： 2011-09-30 18:17
文章分类

全部博文（28）

文章存档

2012年（1）

2011年（27）

我的朋友
最近访客
推荐博文
相关博文
perl，留言板，脚本

分类： Python/Ruby

2011-12-05 14:04:08

  1. board.html

  3. <HTML>
  4. <FORM METHOD="POST" ACTION="/cgi-bin/board.pl">
  5. <P>你的姓名:<INPUT NAME="name" SIZE="20"></P>
  6. <p>你的电子邮件地址:<INPUT NAME = "email" SIZE="30"></P>
  7. <p>你的意见:</p><p><TEXTAREA NAME="suggest" COLS=30 ROWS=4></TEXTAREA></p>
  8. <INPUT TYPE="submit" value="执行">
  9. <INPUT TYPE="reset" value="取消">
  10. <br>
  11. <P><center><a href="index.html">返回首页</a>
  12. <a href="data.html">观看留言</a></center></p>
  13. </FORM></HTML>

board.pl

 

  1. #!/usr/bin/perl
  2. $|=1;
  3. print "Content-type:text/html\n\n";
  4. read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
  5. @pairs=split(/&/,$buffer);
  6. foreach $pair(@pairs){
  7. ($name,$value)=split(/=/,$pair);
  8. $value=~s/\+/ /g;
  9. $value=~s/%40/@/g;
  10. $value=~s/%0D%0A/<br>/g;
  11. $value=~s/%0d%0a/<br>/g;
  12. $value=~s/%0a/<br>/g;
  13. $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
  14. $FORM{$name}=$value;
  15. }
  16. print "留言板";
  17. print "

    留言板


    "    ;
  18. foreach $check(values%FORM){
  19. if($check eq ""){
  20. print "
    "    ;
  21. print"

    不能有空白字段!

    "    ;
  22. print"
    "    ;
  23. exit;
  24. }
  25. }

  27. $filename="/usr/local/apache2/htdocs/data.html";
  28. open(FILE,">>$filename") or die "Can't Open $filename!";
  29. print FILE "我的名字:$FORM{'name'}
    \n"    ;
  30. print FILE "我来自:$ENV{'REMOTE_HOST'}($ENV{'REMOTE_ADDR'})
    \n"    ;
  31. print FILE "电子邮件地址：$FORM{'email'}

  32. ";
  33. print FILE "留言:

    $FORM{'suggest'}";

  34. print FILE "

    \n"    ;
  35. close(FILE);
  36. print "
    "    ;
  37. print "

    谢谢赐教！
    ";

  38. print "如果在留言板中没有看到你的留言，请按刷新按钮。
    "    ;
  39. print "观看留言板";

把board.html拷贝到html目录，board.pl拷贝到cgi目录（参考apache指南）                                                                                
然后给board.pl设置可执行，而且要设置一个对html目录可写的uid(否则，修改apache配
置里的user)，就可以使用留言板了。


阅读(1242) | 评论(0) | 转发(0) |
0

上一篇：perl，linux，win，模块，安装方法

下一篇：perl，文件属性，函数

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6