maasha

#!/usr/bin/env ruby

require 'pp'

prodigal_file  = ARGV[0]
hmmsearch_file = ARGV[1]
hash_id        = {}

File.open(hmmsearch_file) do |ios|
  ios.each_line do |line|

maasha

#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Data::Dumper;

# Lea Benedicte Skov Hansen, Apr May 2013

# Variables that should eventually be defined by user!!

maasha

#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Data::Dumper;

# Lea Benedicte Skov Hansen, Apr May 2013

# Variables that should eventually be defined by user!!

maasha

#!/usr/bin/perl -w

use strict;
use Getopt::Long;
use Data::Dumper;

# Lea Benedicte Skov Hansen, Apr May 2013

# Variables that should eventually be defined by user!!

maasha

#!/usr/bin/perl -w

use strict;

# Filenames
my $start10 = 'start10.dat';
my $res10 = 'res10.dat';

# Opening the files
open (START, '<', $start10) or die "Could not read file\n";

maasha

my %names = ();
while (defined (my $line = <START>)) {
   chomp $line;
   $names{$line};
}

maasha

#!/usr/bin/perl -w

use strict;

# Lea Benedicte Skov Hansen, Mar 2013
# This program reads a table, sums the rows and create a histogram of the sums

my $input = 'test_count.txt';                      #'count.matrix.ratio_new';
my $output = 'row_sum_his.txt';
my $interval = 5;

maasha

#!/usr/bin/env perl

use warnings;
use strict;

use Data::Dumper;

# Lea Benedicte Skov Hansen, Mar 2013
# This program reads a table, sums the rows and create a histogram of the sums