sahrendt0

#!/usr/bin/perl -w
# Script: ps2a.pl
# Description: GEN220 homework set 2, questions 1-4
# Author: Steven Ahrendt
# email: [email protected]
# Due: 10.9.12
##############################
# [x]: Q1 (length of sequence & num of codons)
# [x]: Q2 (first start codon & length of 5' UTR)
# [x]: Q3 (first stop codon)

sahrendt0

#!/usr/bin/perl

use strict;
use warnings;

my $infile = shift;

my $num_utr3 = 0;
my (%GFF,%data,$ID,$gene_length,@exon,$gene_stop,$gene_start);
my($ex_start,$ex_stop,$ex_length);

sahrendt0

package Temperature;
use strict; use warnings;

sub f2c {
        my $f = shift;
        my $c = ($f - 32)*(5/9);
        return $c;
}
sub c2f {
        my $c = shift;

sahrendt0

#!/usr/bin/perl 
# Script: blast_parse.pl
# Description: GEN220, week 5, problem 4
# Author: Steven Ahrendt
# email: [email protected]
#####################################
## QUERY HIT EVAL LENGTH IDENT QSTART QEND HSTART HEND
############################################################
use strict;
use warnings;

sahrendt0

#!/usr/bin/perl
# Script: hw8.pl
# Description: Trim adapter, clean reads
# Author: Steven Ahrendt
# email: [email protected]
##################################
# Adapter: CTGTAGGCACCATCAAT
#  trim if it contains a perfect match to first 6 bases
##################################

sahrendt0

Test