On May 7, 3:27 am, 宇捷 <hf...@163.com> wrote:
> Header设置两个属性：
> 格式："Content-type: application/xxx"可以是
> force-download,file,zip,octet-stream等等
> 文件名："Content-Disposition: attachment; filename=xxx" filename记得正确编
> 码，另外IE里有一个特定bug，不会遇到就算了。。
>
> -----邮件原件-----
> 发件人: perlchina+bnccjlnysgfhxc5ky3fbboe4s1qng@googlegroups.com
> [mailto:perlchina+bnccjlnysgfhxc5ky3fbboe4s1qng@googlegroups.com] 代表
> 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 讨论组"论
> 坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至
> perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问
> 此网上论坛。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。
--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
2010年5月7日星期五
Re: 答复: [PerlChina] 请问一个perl CGI输出文本的简单程序
谢谢，已解决
订阅：
博文评论 (Atom)
博文
没有评论:
发表评论