BOL: Wire posts tagged with 'PerlTrick'

Wire post by Shruti Paniwala

Shruti Paniwala — Wed, 26 Oct 2016 12:43:58 -0500

Slice on the fly with perl: my ($username, $real_name) = (split /:/, $str)[0, 4]; #Perl #PerlTrick #Split

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 Jit

Jit — Wed, 03 Aug 2016 09:36:26 -0500

Remove tab with comma in file: perl -lpe 's/\t/,/g' < flattened_line_0.fa.data > output.csv #PerlTrick #PerlO,liner #Perl #Tab #Comma

Wire post by Jit

Jit — Mon, 08 Feb 2016 13:09:15 -0600

Print all the values between 15 to 17. perl -ne 'print if 15 .. 17' file #Perl #PerlTrick #Range

Wire post by Jitendra Narayan

Jitendra Narayan — Thu, 09 Jul 2015 19:55:02 -0500

Print all possible 2 combination of words ( ATGC): $letter = join',','A','T','G','C'; @abc=glob "{$letter}{$letter}"; foreach (@abc) { print "$_\n"; } #Perl #PerlTrick #TipsOftheDay