Results for "du"
Bio-Scripts
Check if your coputer ready to use BioPerl
#!/usr/bin/perl use strict; use warnings; #bioperl example code use strict; use warnings; #make the bioperl module (class) accessible to your program use Bio::Seq; print"ok - ready to use Bio::Seq";2920 days ago
Parse a genbank file using regular expressions
...- $cds_end\n"; } elsif (/(\/translation=")(.*)/) { # protein product begins print "Transl...} else { print "Problems: end of translation product not found.\n"; }...2920 days ago
- ...; # Figure out URL for the DAS server. Example: # http://genome.ucsc.edu/cgi-bin/das/calJac3/dna?segment=chr14:482280,483280 my $URL_gene ="http://genome.ucsc.edu/cgi-bin/das/papAnu2/dna?segme...
2913 days ago
Needleman-Wunsch Algorithm in Perl
#!/usr/bin/perl # USAGE: perl nw.pl HEAGAWGHEE PAWHEAE BLOSUM50.txt -8 # See: "Biological sequence anaysis" Durbin et al. ed. CUP 1998, Pg. 19 # Needleman-Wunsch global...2909 days ago
Perl script introduces control structures, arrays and hashes.
#!/usr/bin/env perl use strict; use warnings; my @first_array = ('DNA', 'ATGCGTGC', 5, 'RNA', 'AUGC'); print $first_array[0], "\n\n"; # Scalar gives actual...2865 days ago
- ...UTABLE ON YOUR SYSTEM. # System requirements: requires perl and perl modules # DB_File and GD.pm, avai...l -- no title appears If for some reason this program is disrupted during a run, restart with the...
2696 days ago
Perl script to remove the duplicate sequences from multifasta file
use strict; use Bio::SeqIO; my %unique; my $file = "myseqs.fa"; my $seqio = Bio::SeqIO->new(-file => $file, -format => "fasta"); my $outseq = Bio::SeqIO->ne...2693 days ago
picard tools command to get some insert statistics
#picard tools to get some insert statistics to see whether our reads seem to be in the correct place #module load picard/2.0.1 java -Xmx16g -XX:PermSize=8g -jar $PICARD_HOME/pic...1340 days ago
Read a tab delimited file and search with perl
use strict; use warnings; use Data::Dumper; use Text::CSV; use IO::Handle; my $file = "/home/urbe/Tools/Alienomics_v0.1/Alienomics/output/intermediate_files/rRNA/refGene.megablast"; open my $fh, "[0]\n"; warn Dumper $row; # To see the structure }2528 days ago
Genetic Algorithms demonstration with word DNA in Perl
...bits) use strict; use Data::Dumper; # individuals in the population my $pop...ived = 0; foreach my $individual (@$population) { # set...), probably all individuals have died" unless defi...shift @_; foreach my $individual (@$population) { # onl...2375 days ago
