Skip to content

Instantly share code, notes, and snippets.

Avatar
💭
HackHackHack...

Martin Asser Hansen maasha

💭
HackHackHack...
View GitHub Profile
View prodigal_pfam_merger.rb
#!/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|
View gist:5567819
#!/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!!
View gist:5567720
#!/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!!
View gist:5567347
#!/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!!
View gist:5311657
#!/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";
View gist:5311599
my %names = ();
while (defined (my $line = <START>)) {
chomp $line;
$names{$line};
}
View gist:5151899
#!/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;
View gist:5151814
#!/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