Results for "Perl"
Bio-Scripts
Perl script to extract fasta sequence by matching name/ids !!
#!/usr/bin/perl use strict; use warnings; use Text::Trim qw(trim); #Usage perl extractSeqbyID.pl ids.txt seq...2859 days ago
- #!/usr/bin/perl #use strict; #use warnings; #Author: Santhilal...for RNAseq V1.3 #USAGE for sample input provided: perl rpkm_script_beta.pl sample_co...est.count 2:9 15 > sample_count_test.rpkm #USAGE: perl rpkm_script_beta.pl input_cou...
2855 days ago
Perl subroutine to read and write files
# Input output (InOut) the file # usage: # @array = InOut('read',$file) # $string = InOut('read',$file) # InOut('write',$file,\$string) # InOut('write',$file,\@a...2849 days ago
Perl script introduces control structures, arrays and hashes.
#!/usr/bin/env perl use strict; use warnings; my @first_array = ('DNA', 'ATGCGTGC', 5, '...array; # implicit way print "Scalar of array: $size_of_array\n\n"; print "Perl's index size of array: $#firs...2846 days ago
Extract a range from genome file with perl.
#!/usr/bin/perl use strict; use warnings; use Bio::SeqIO; my $in_file = $ARGV[0]; my $start_pos = $ARGV[1]; my $end_pos = $ARGV[2]; my $in = Bio::SeqIO->new (...2611 days ago
Perl script to insert sequence in contig !!
# sub signature: #insertSEQintoCONTIGatLOC( SEQ , CONTIG , LOC ) ; sub insertSEQintoCONTIGatLOC{ my ( $SEQ , $CONTIG , $LOC ) = @_; substr( $CONTIG , $LOC , -...2692 days ago
- #! /usr/local/bin/perl5.8.3 -w ### ### Script Name : calcN50.pl ### Description : This script calculates the N50 of a collection of sequences in a fasta file ### Input...
2688 days ago
- #!/usr/local/bin/perl -w # NOTE: YOU MUST CHANGE THE LINE ABOVE TO POINT TO # THE FULL PATH OF THE PERL EXECUTABLE ON YOUR SYSTEM. # System requirements: requires perl and perl modules # DB_File a...
2677 days ago
- #!/usr/bin/perl use strict;use warnings; my $i;my $j;my $a; open (FH1,'
2677 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->new...2674 days ago
