Check overlapping range with Perl
...print "tests in range $ranges->[0]:\n", join(", ", @$tests), "\n"; } else { print "range $ranges->[0] is empty\n"; } } el...2677 days ago
Plot the clock using Lastz -gerenal outfile
...open (my $fh2, $fileN) or die "Could not open file $fileN $!"; my (@allKeys, @allFreq); my %pHash; while() { chomp; next if /^$/; #next if empty my @arr = split("\t", $_);...2349 days ago
Perl script to read multi fasta sequence one by one
#!/usr/bin/env perl use strict; use warnings; #USAGE #perl rohanRun.pl seq.fa my $outfile='tmp.fa'; my $fastaSeq_ref = readfasta ("$ARGV[0]"); my %fastaSeq...2271 days ago
Perl subroutine for reading multifasta file !
sub readfasta { (my $file)=@_; my %sequence; my $header; my $temp_seq; #suppose fasta files contains multiple sequences; open (IN, "2194 days ago
Perl script to convert GFF 2 FASTA !
#!/usr/bin/perl use strict; use warnings; use Bio::Seq; use Bio::SeqIO; use Bio::DB::Fasta; $| = 1; # Flush output my $outfile_cds = Bio::SeqIO->new( -form...2189 days ago
2176 days ago
2084 days ago
1564 days ago
Onliner to convert multi line fasta to single line fasta !
#Oneliner to convert awk '/^>/ {printf("\n%s\n",$0);next; } { printf("%s",$0);} END {printf("\n");}' < file.fa > fileres.fa #Then delete the first empty line tail -n +2 fileres.fa > fileout.fa978 days ago
349 days ago