File: script2.pl

package info (click to toggle)
libtfbs-perl 0.5.svn.20100421-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 920 kB
  • sloc: perl: 6,073; ansic: 604; makefile: 30
file content (7 lines) | stat: -rw-r--r-- 280 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
#!/usr/bin/env perl  -w 
use TFBS::DB::FlatFileDir; 
use TFBS::PatternGen::Gibbs; 
my $gibbs = TFBS::PatternGen::Gibbs->new (-seq_file=>'sequences.fa', 
					  -motif_length=>10); 
my $db = TFBS::DB::FlatFileDir->create('NewPatterns'); 
$db->store_Matrix($gibbs->all_patterns());