免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › CGI中如何才能避免在文件没上传成功前产生CGItemp***** ...
最近访问板块 发新帖
查看: 2998 | 回复: 6
打印 上一主题 下一主题

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？ [复制链接]

the0crat

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2003-07-19 22:48 |只看该作者 |倒序浏览
如题

example:


  2. #!/usr/bin/perl
  3. #upload file

  5. use strict;
  6. use  CGI;

  8. sub up
  9. {
  10. print  "Content-type:  text/html\n\n";
  11. my $ggg = new CGI;
  12. my $rand=$ggg->;param('randnum');
  13. my $rand2=$ggg->;param('randnum2');
  14. if($rand==$rand2)
  15. {&}
  16. else
  17. {
  18. print "验证码错误！";
  19. exit;
  20. }
  21. }

  23. sub upload {
  24. my $message;
  25. my $upfilecount  =  1;
  26. my $maxuploadcount  =  1;  #限制上传文件的最大数
  27. my $basedir  =  "";  #上传的文件存放地址
  28. my $allowall  =  "no";  #是否不限制文件后缀上传
  29. my @theext  =(".mp3");  #没有被限制的文件后缀名

  31. while  ($upfilecount  <=  $maxuploadcount)  {
  32. my  $req  =  new  CGI;
  33. my  $file  =  $req->;param("FILE$upfilecount");
  34. my  $info = $req->;param('info');
  35. if  ($file  ne  "")  {
  36. my  $fileName  =  $file;
  37. $fileName  =~  s/^.*(\\|\/)//;  #用正则表达式去除无用的路径名，得到文件名
  38. my  $newmain  =  $fileName;
  39. my  $filenotgood;
  40. if  ($allowall  ne  "yes")  {
  41. my $extname  =  lc(substr($newmain,length($newmain)  -  4,4));  #取后缀名
  42. for(my  $i  =  0;  $i  <  @theext;  $i++){  #这段进行后缀名检测
  43. if  ($extname  ne  $theext[$i]){
  44. $filenotgood  =  "yes";
  45. last;
  46. }
  47. }
  48. }
  49. if  ($filenotgood  ne  "yes")  {  #这段开始上传
  50. open  (OUTFILE,  ">;$basedir/$fileName");
  51. binmode(OUTFILE);  #务必全用二进制方式，这样就可以放心上传二进制文件了。而且文本文件也不会受干扰
  52. while  (my  $bytesread  =  read($file,  my  $buffer,  1024))  {
  53. print  OUTFILE  $buffer;
  54. }
  55. close  (OUTFILE);
  56. open(FILE1,">;>;upload.info");
  57. print FILE1 "$fileName"."!"."$info\n";
  58. close(FILE1);
  59. $message.=$file  .  "  已成功上传!<br>;<a href=upload.cgi>;返回</a>;<br>;\n";
  60. }
  61. else{
  62. $message.=$file  .  "  文件后缀不符合要求，上传失败!<br>;<a href=upload.cgi>;返回</a>;<br>;\n";
  63. }
  64. }
  65. $upfilecount++;
  66. }

  68. print  $message;  #最后输出上传信息
  69. }

  71. sub main {
  72. my $out;
  73. open(FILE,"<upload.info");
  74. my @line=<FILE>;;
  75. close(FILE);
  76. chomp(@line);

  78. my $randnumber=int(rand(9999));

  80. foreach (@line){
  81. my($filename,$fileinfo)=split(/!/,$_);
  82. $out.="<a href=http://www.host.com/$filename>;$filename</a>; <font color=red>;说明：$fileinfo</font>;<br>;";
  83. }

  85. print  "Content-type:  text/html\n\n";
  86. print qq~<html>;
  87. 已上传文件：<br>;$out
  88. <form method="POST" action="upload.cgi?up" ENCTYPE="multipart/form-data">;
  89. File:
  90. <input type="file"  name="FILE1">;<br>;
  91. 文件说明:<input type=text name=info>;
  92. <br>;
  93. 请输入验证码：<input type="text" name="randnum" size=5>; $randnumber
  94. <input type=hidden name=randnum2 value=$randnumber>;
  95. <br>;
  96. <br>;
  97. 注意：文件名不要有空格，也不要是中文字符，不然会出错...<br>;<input  type="submit"  value="Upload!">;
  98. </form>;
  99. </html>;~
  100. }

  102. my $action=$ENV{'QUERY_STRING'};
  103. if($action eq "up"){&}
  104. else{&}
复制代码


如何才能在判断所输验证码正确后才产生CGItemp*****文件？
hoowa

论坛徽章:
0
2楼 [报告]
发表于 2003-07-20 09:15 |只看该作者

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？

你是在win系统下跑的吗？

我没看你代码。不过我也遇到过产生CGITemp的这个问题。

我当时原因找到了，是因为我建立了两个文件的对象或Handle什么的。实际上我只存储了一个，另外一个就是CGITemp了。

我当时解决方法是，我自己写了一个POST解码。就OK了。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
the0crat

论坛徽章:
0
3楼 [报告]
发表于 2003-07-20 12:51 |只看该作者

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？

是在WIN下跑的

谢谢，我去试试POST解码
不过还有其他办法吗？多几种选择会更灵活点
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
hoowa

论坛徽章:
0
4楼 [报告]
发表于 2003-07-23 10:26 |只看该作者

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？

支持上载的POST编码自己写起来有些麻烦。
谁有就贴一个过来吧。

我的代码放在家里了。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
djq1976

论坛徽章:
0
5楼 [报告]
发表于 2003-09-25 16:20 |只看该作者

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？

我也是在win2k下用的，不知如何才能在上传成功后删除cgitemp文件，请指点，不胜感激。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
梦恋情人

论坛徽章:
0
6楼 [报告]
发表于 2003-09-28 13:19 |只看该作者

CGI中如何才能避免在文件没上传成功前产生CGItemp*****文件？

希望下面这个对你有用





############### 处理表单
sub MANAGE_URL_LENGTH{


my (@pairs,$pair,$name,$line,$value,$boundary,$buffer,$real_file,@column,$dump);

        if($ENV{'QUERY_STRING'}) {
                        @pairs = split(/&/,$ENV{'QUERY_STRING'});
                        foreach $pair (@pairs) {
                                ($name, $value) = split(/=/,$pair);
                                $value =~ tr/+/ /;
                                $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                                $FORM{$name} = $value;
                        }
                       
                       
                       
                       
        }else{
                        binmode STDIN;
                        read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
                       
                        ($boundary=$ENV{'CONTENT_TYPE'}) =~ s/^.*boundary=(.*)$/$1/;
                        @pairs=split(/--$boundary/, $buffer);
                       
                        for $pair (@pairs)  {
                                ($dump,$line,$value) = split(/\r\n/,$pair,3);
                                if($line =~ /filename/) {
                                        $real_file = $line;
                                }
                                next if $line =~ /filename=\"\"/;
                                $line =~ s/^Content-Disposition: form-data; //;
                                (@column) = split(/;\s+/, $line);
                                ($name = $column[0]) =~ s/^name="([^"]+)"$/$1/g;
                               
                                if($#column >; 0) {
                                        ($dump,$dump,$value) = split(/\r\n/,$value,3);
                                }else {
                                        ($dump,$value) = split(/\r\n/,$value,2);
                                        next if $value =~ /^\s*$/;
                                        $FORM{$name} = $value;
                                        chop($FORM{$name});
                                        chop($FORM{$name});
                                        next;
                                }
                               
                                $FORM{$name} = $value;
                        }
        }
       
##return %FORM;

}##FILEDATA
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
ykredrum

论坛徽章:
0
7楼 [报告]
发表于 2008-12-15 18:36 |只看该作者
这个帖子好象有点早了
我每次都要将上传的句柄关闭了-----        close(句柄);
这样不会产生CGITEMP
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP