BOL

Results for "PerlTrick"

Tags

• • Jitendra Narayan@admin

  

  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

  Tags: Perl, PerlTrick, TipsOftheDay

  3214 days ago

• • Jit@jit.aber

  

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

  Tags: Perl, PerlTrick, Range

  3000 days ago

• • Jit@jit.aber

  

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

  Tags: PerlTrick, PerlO, Perl, Tab, Comma

  2823 days ago

• • Poonam Mahapatra@poonam

  

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

  Tags: TRF, Tab, Space, Replace, Perl, PerlTrick, PerlOneliner

  2821 days ago

• • Radha Agarkar@radhaagarkar

  

  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

  Tags: Perl, PerlOneliner, PerlTrick, Extract, Ids, Fasta

  2779 days ago

• • Shruti Paniwala@shruti

  

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

  Tags: PerlTrick, PerlOneliner, Perl

  2780 days ago

• • Shruti Paniwala@shruti

  

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

  Tags: Perl, PerlTrick, Split

  2739 days ago