Test
Steven Ahrendt sahrendt0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| # Script: hw8.pl | |
| # Description: Trim adapter, clean reads | |
| # Author: Steven Ahrendt | |
| # email: sahre001@ucr.edu | |
| ################################## | |
| # Adapter: CTGTAGGCACCATCAAT | |
| # trim if it contains a perfect match to first 6 bases | |
| ################################## |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| # Script: blast_parse.pl | |
| # Description: GEN220, week 5, problem 4 | |
| # Author: Steven Ahrendt | |
| # email: sahre001@ucr.edu | |
| ##################################### | |
| ## QUERY HIT EVAL LENGTH IDENT QSTART QEND HSTART HEND | |
| ############################################################ | |
| use strict; | |
| use warnings; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| package Temperature; | |
| use strict; use warnings; | |
| sub f2c { | |
| my $f = shift; | |
| my $c = ($f - 32)*(5/9); | |
| return $c; | |
| } | |
| sub c2f { | |
| my $c = shift; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl -w | |
| # Script: ps2a.pl | |
| # Description: GEN220 homework set 2, questions 1-4 | |
| # Author: Steven Ahrendt | |
| # email: sahre001@ucr.edu | |
| # 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) |