注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Bioinformatics home

 
 
 

日志

 
 

2010年10月20日  

2010-10-20 22:12:27|  分类: Perl |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

use strict;
use warnings;
use Spreadsheet::WriteExcel;
use DBI;
my $database = 'mirbase';
my $server= 'localhost';
my $user =  'root';
my $password =  'xxxxx';
my $dbh = DBI->connect ("DBI:mysql:$database:$server", $user, $password);
write2Excel("select auto_mirna as xx, mirna_acc as yy, mirna_id as zz, sequence from mirna","xxxx.xls", "miRNA");
sub write2Excel
{
  my $sql=shift;
  my $fileName=shift;
  my $sheetName=shift;
  # Create a new Excel workbook
  my $workbook = Spreadsheet::WriteExcel->new($fileName);
  my $worksheet = $workbook->add_worksheet($sheetName);
  my $query=$dbh->prepare($sql);
  $query->execute;
  my $fileds = $query->{'NAME'};
  my $numFields = $query->{'NUM_OF_FIELDS'};
  my $col = 0;
  my $row = 0;
  my $i;
  #output title
  for ($i = 0;  $i < $numFields;  $i++) {
   $worksheet->write(0,$col++, $$fileds[$i]);
  }
   
   $row=1;
   #output data
 while(my @array=$query->fetchrow_array())
 {
  $col=0;
     for ($i = 0;  $i < $numFields;  $i++) {
    $worksheet->write($row,$col++, $array[$i]);
  }
  $row++;
 }
}

  评论这张
 
阅读(456)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017