<![CDATA[BOL: BioGeek Fun]]> https://bioinformaticsonline.com/fun/view/9207/biogeek-fun? https://bioinformaticsonline.com/fun/view/9207/biogeek-fun Sun, 16 Mar 2014 06:33:31 -0500 https://bioinformaticsonline.com/fun/view/9207/biogeek-fun <![CDATA[BioGeek Fun]]> 1. A futuristic computational biology student was told to write "It is in my gene!!!" on the board 100 times as a punishment. here's his response -

use warnings;
for ($count=1; $count <=100; $count++) { print "It is in my gene!!!";}

I guess, he is gonna to be a real biogeek. Nice try though. Smart kid.

 

2. In some perl script I found this
 . . . . . .
 . . . . . .
# It works for me, only God understood how it is working
while (/(<\/[^>]+>)|(<[^>]+>)|(<[^>]+>)$|([^><]+)/go) {
            $startGene=$1;
            $beginChromosome=$2;
    
. . . . . .
 .. . . . . .
}

 

3. One more interesting message in Perl found …. It will must tickle you bone :)
open(my $fh, "<", "gene.txt")    or kill " Me if you think this is a mistake :$!";

 

4. From the Perl

  while () {  # "The Mothership Connection is here!"
    print “$_\n”; # Printing the offspring :)

 

5. Perl message
if ($1) { print “Just found a the error in chromosome !!!, yahoo…”; else { “That is not error, but mutation you moron!”;

 

6. One genome database curator walk in wine bar asked the bartender:
CREATE TABLE gene IF NOT EXISTS SexOnTheBeach;

]]> Jit https://bioinformaticsonline.com/fun/view/9207/biogeek-fun#item-annotation-2996 Tue, 09 May 2017 09:42:42 -0500 https://bioinformaticsonline.com/fun/view/9207/biogeek-fun#item-annotation-2996 <![CDATA[Comment by Jit]]> perl -e 's&&rob@cowsnet.com.au&&&split/[@.]/&&s&.com.&_&&&print'

;)

]]> Jit https://bioinformaticsonline.com/fun/view/9207/biogeek-fun#item-annotation-2849 Fri, 23 Dec 2016 09:06:41 -0600 https://bioinformaticsonline.com/fun/view/9207/biogeek-fun#item-annotation-2849 <![CDATA[Comment by Bulbul]]> How about this oneliner ;)

perl -ne 'chomp;if( />(.*)/){$head = $1; $i=0; next};@a=split("",$_); foreach(@a){$i++;if($_ eq "N" && $s ==0 ){print "$head\t$i"; $s =1}elsif($s==1 && $_ ne "N"){print "\t$i\n";$s=0}}' infile.fa
]]> Bulbul