2831 days ago
2831 days ago
Extracting FASTA sequences based on position with perl script !!
#!/usr/bin/env perl #Uses: perl sub-seq.pl input.txt range use strict; use warnings; my $end = pop; my $start = pop; local $/ = '>'; while () { chomp;...2760 days ago
Perl script to remove fasta sequences in multifasta file with certain length threshold
...nlen = shift or die "Error: `minlen` parameter not provided\n"; { local $/=">"; while() {...in "", @chunk; print ">$_" if($seqlen >= $minlen); } local $/="\n"; }2390 days ago
Perl script to find palindromic regions in DNA sequences
use strict; use warnings; my $pp = qr/(?: (\w) (?1) \g{-1} | \w? )/ix; my $filename = $ARGV[0]; open(my $fh, '2293 days ago
Perl script to run SATSUMA in loop !
#!/usr/bin/perl -w use strict; use File::Temp qw(tempfile); # Usage perl 1by1.pl for SATSUMA analysis # User need to set the reference multifasta file name her...2279 days ago
2266 days ago
Install Parrot Virtual Machine !
.......................done. init::install - Set up installation paths..........................done. init::hints - Load platform and local hints files................do...1676 days ago
Perl script to find palindromic pattern !
#!/usr/bin/perl use strict; use warnings; use strict; my %invert; @invert{ qw[ A C G T ] } = qw[ T G C A ]; my $in = do{ local $/; }; chomp $in; print $in; for my $p1 ( 1 .....2237 days ago
Install Python locally on shared Linux server !
#Install python to local directory #Firstly, I create a folder in my hom...ut of make command, by default it is in the /usr/local/ and we don't want that so we...install python packages After installing python locally as described in #the first...2236 days ago