BOL: Wire posts tagged with 'perloneliner'

Wire post by Abhimanyu Singh

Abhimanyu Singh — Mon, 13 Mar 2017 08:28:36 -0500

#Random #sequence generator with #perloneliner : $ perl -e '$x=int(rand(1000)); printf( "chr1\t%s\t%s", $x, $x + 10)'

Wire post by Shruti Paniwala

Shruti Paniwala — Wed, 01 Mar 2017 17:55:34 -0600

Remove all blank lines from file. perl -i.bak -n -e "print if /\S/" ../finalSample.fa #Perl #Tricks #PerlOneliner

Wire post by Radha Agarkar

Radha Agarkar — Fri, 16 Sep 2016 03:00:15 -0500

Extract sequence by using Ids file (assuming one ids in a line): perl -ne 'if(/^>(\S+)/){$c=$i{$1}}$c?print:chomp;$i{$_}=1 if @ARGV' ids.file fasta.file #PerlTricks #PerlOneliner #Perl #Extract #Ids #

Wire post by Radha Agarkar

Radha Agarkar — Fri, 16 Sep 2016 02:57:36 -0500

Extract fasta sequence by Ids: perl -ne 'if(/^>(\S+)/){$c=grep{/^$1$/}qw(id1 id2)}print if $c' fasta.file #Perl #PerlOneliner #PerlTrick #Extract #Ids #Fasta

Wire post by Shruti Paniwala

Shruti Paniwala — Thu, 15 Sep 2016 11:15:56 -0500

Rename the fasta name perl -ane 'if(/\>/){$a++; @foo = split /\s+/;$_ = join '_', @foo; print "$_\n"}else{print;}' your.fasta > new.fa #PerlTrick #PerlOneliner #Perl

Wire post by Poonam Mahapatra

Poonam Mahapatra — Fri, 05 Aug 2016 04:08:30 -0500

Replace space with tab: perl -lpe 's/\s/\t/g' < trf_file.dat > outfile.txt #TRF #Tab #Space #Replace #Perl #PerlTrick #PerlOneliner

Wire post by Neel

Neel — Wed, 09 Mar 2016 08:23:46 -0600

Delete space from FASTA header: perl -pe 's/>\S+\K.+//' < file.fasta > new_file.fasta #PerlOneLiner #Trick #Perl #Space #Fasta

Wire post by Rahul Nayak

Rahul Nayak — Mon, 07 Sep 2015 12:14:57 -0500

Search and replace the string 'this' with the string 'that' in the file filename. perl -p -i -e 's/this/that/g' filename #Perl #Trick #PerlOneLiner #Tipsoftheday #Replace #FindandReplace

Wire post by Jit

Jit — Wed, 11 Jun 2014 03:54:53 -0500

Count the number of occurrence of pattern in a file using Perl. perl -e '$_ = <>; print scalar ( () = m/needle/g ), "\n"' #Perl #Perloneliner #Count #Occurrence

Wire post by Rahul Nayak

Rahul Nayak — Sun, 11 May 2014 10:16:51 -0500

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

Wire post by Abhimanyu Singh

Abhimanyu Singh — Tue, 01 Oct 2013 07:03:26 -0500

To print the matching pattern line perl -ne '/pattern/ && print' infile.gtf #Perloneliner #Tipsoftheday

Wire post by Jitendra Narayan

Jitendra Narayan — Sat, 10 Aug 2013 15:01:33 -0500

Write something at the bottom of the file without opening it. perl -p -i -e 'eof && s/$/\nWord/;' #Tipsoftheday #Perloneliner