试试 这个
（我没试过）
在 2010年5月7日 上午10:11，wd <wd@wdicc.com> 写道：
> 打印前设置好 header
>
> 在 2010年5月7日 上午6:54，camelbbs <camelbbs@gmail.com>写道：
>>
>> 我有一个小程序，需要用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 访问此网上论坛。
博文
没有评论:
发表评论