Results for "extract"
Bio-Scripts
....1/bin/perl - --notest -l $PERL_BASE/perl-5.24.1 App::cpanminus JSON::Parse XML::Parser XML::Simple LWP LWP::Simple LWP::Protocol::https Archive::Extract Archive::Tar Archive::Zip CGI...2144 days ago
- ...the value of the variable and its length my $DNAlength = length($modifiedDNA); print "Modified DNA: $modifiedDNA has length $DNAlength\n"; #extract the second codon in $modified...
2917 days ago
Extract a random sequence from a file
#!/usr/local/bin/perl -w use strict; use warnings; use autodie; use List::Util qw/ shuffle /; my $outputfile = 'randomoutput.txt'; open my $in_fh, '', $o...2915 days ago
- ...position # From here: https://www.biostars.org/p/6156/ my $chr = shift; my $pos = shift; my $size = shift; my $usage = "Example: perl extract_seq_from_ucsc.pl 14 482780 10...
2910 days ago
Perl script to extract lines with matching ids !!
#!/usr/bin/perl use strict; use warnings; my %patterns; #USAGE: perl extactByIds.pl Idsfile1 file2 > Result # Open file and get patterns to search for open(my $fh2,"2875 days ago
Perl script to extract fasta sequence by matching name/ids !!
...use strict; use warnings; use Text::Trim qw(trim); #Usage perl extractSeqbyID.pl ids.txt seq.fasta Result.fasta $ARGV[2] or die "use extractSeqbyID.pl LIST FASTA OUT\n";...2875 days ago
Blast script to index and extract sequence !!
# look at the file $ head EC4115.fa >NC_011353.1 Escherichia coli O157:H7 str. EC4115 chromosome, complete genome. AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAA...2852 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->n...2627 days ago
BASH script for SelfBLAST a genome
...lled in your system #Author: Jitendra Narayan #USAGE: ./selfBlast.sh extract #USAGE: ./selfBlast.sh all...-in $FASTAFILE -parse_seqids -dbtype nucl -out $MYDB fi if [ $1 = "extract" ] then echo "Extracting...2652 days ago
Extract ids from file with perl
#!/usr/bin/perl use strict; use warnings; my $fh=read_fh("fin.txt"); my %idHash; my $lastKey; while () { chomp $_; my @cells = split /\t/, $_; $idHash{...2608 days ago
