Header设置两个属性： 格式：“Content-type: application/xxx”可以是 force-download,file,zip,octet-stream等等 文件名：“Content-Disposition: attachment; filename=xxx” filename记得正确编 码，另外IE里有一个特定bug，不会遇到就算了。。
-----邮件原件----- 发件人: [email protected] [mailto:[email protected]] 代表 camelbbs 发送时间: 2010年5月7日 6:55 收件人: PerlChina Mongers 讨论组 主题: [PerlChina] 请问一个perl CGI输出文本的简单程序 我有一个小程序，需要用perl CGI 输出.txt index.html: [code] <html> <head><title>correlation database</title></head> <body> <form action="../cgi-bin/deal.cgi" method="post"> input gene：<br> <textarea name="gene" cols ="50" rows = "5"></textarea> <br> select：<br> <input type="checkbox" name="set1" value ="human-calgb-81s" >human 81 calgb samples<br> <br> <input type="submit" value="submit"> </form> </body> </html> [/code] 然后 deal.cgi是对传入的两个参数 gene 和 set1 进行处理，处理之后想直接生成一 个txt 文件，而不是在网页上显示出来，应该如 何写这个deal.cgi呢？ 我的deal.cgi是这样写的: [code] #!D:/perl/bin/perl use strict; use CGI; print "Content-type:text/plain\n\n"; my $cgi=new CGI; my $set1=$cgi->param("set1"); my $gene=$cgi->param("gene"); my $mir=$cgi->param("mir"); my $file='correlation-'.$set1; my $dir='all-correlation-result'; open(FILE,'../htdocs/'.$dir."\\".$file) or die; while(my $line=<FILE>){ chomp $line; my @dd=split /\t/,$line; my @tmp=split /--/,$dd[1]; if($tmp[1] eq $gene){ print "$line\n"; } } close(FILE); [/code] 这样只能在网页上显示，如何不显示这个网页，而是直接生成一个可供用户下载的文本 文件，谢谢！ -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论 坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问 此网上论坛。 -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
