Check overlapping range with Perl
...print "tests in range $ranges->[0]:\n", join(", ", @$tests), "\n"; } else { print "range $ranges->[0] is empty\n"; } } el...2645 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", $_);...2317 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...2239 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, "2162 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...2157 days ago
2144 days ago
2052 days ago
1532 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.fa946 days ago
317 days ago