BOL

Count the total number of lines in a file. my $total=@{[<INFILE>]}; #Perl #Count #Number #Total #File

Remove the blank space from a fasta file. perl -nlwe 'tr/ //d; print if length' fileName #Delete #Space #Fasta #Perl #Oneliner

perl -nle 'if (/^>/) { $sl = 0; print; next } next if ($sl >= 200); $_ = substr($_, 0, 200-$sl) if ($sl + length($_) > 200); $sl += length($_); print;' file.fa >new.fa #Perl #Extract #Fasta

Force install a Perl module sudo PERL_MM_USE_DEFAULT=1 perl -MCPAN -e "CPAN::Shell->force(qw(install Nginx::Log::Entry))" #Perl #Install #Force #CPAN #Module

Use multi-core with Perl programs http://perltricks.com/article/61/2014/1/21/Make-your-code-run-faster-with-Perl-s-secret-turbo-module #Perl #MCE #Speed #Module

Perl scripts for Bioinformatics http://jura.wi.mit.edu/bio/bioinfo/scripts/ #Perl #Bioinformatics #Genetics #Scripts

Install Bioperl on ubuntu : sudo apt-get install bioperl #Bioperl #Install #Perl

perl -nle '$count += () = /XY[0-9]+/g; END {print $count}' inputfile #Count #Perl #Perloneliner

Perl module http://perlmaven.com/how-to-create-a-perl-module-for-code-reuse #Perl #Module #Package

Useful perl scripts collections http://raven.iab.alaska.edu/~ntakebay/teaching/programming/perl-scripts/perl-scripts.html #Perl #Scripts

Perl Regular expression http://raven.iab.alaska.edu/~ntakebay/teaching/programming/perl2nd/node1.html #Perl #RegularExpression

Perl Special Variables Quick Reference http://www.perlmonks.org/?node_id=353259 #Perl

Convert space separated data to tab separated: perl -p -i -e 's/\s+/\t/g' file.txt #Perl #Tipsoftheday #Perlonliner

GenBank to FASTA format conversion, Written By Junguk HUR http://tinyurl.com/ntp7w5v #Perl #FASTA #Genbank

Some useful tricks for next generation seq analyst http://chicken.genouest.org/ #Perl #R #C/C++