Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

DNA LIGATION PERL SCRIPT

by jimmyali
on Apr 28, 2012 at 10:02 UTC ( #967790=perlquestion: print w/ replies, xml ) Need Help??
jimmyali has asked for the wisdom of the Perl Monks concerning the following question:

can someone please send me a perl script to find solution of following problem:-

input a random DNA sequence , cut the DNA sequence randomly into three** fragmented sequence** ,from these fragmented sequence** retrace the DNA sequence** back.

for eg.

input string=AGCTAACCTTCAG

fragments= TAACC,AGCT,TCAG,CCTT

and then We want to retrace the original DNA sequence.

Comment on DNA LIGATION PERL SCRIPT
Re: DNA LIGATION PERL SCRIPT
by Anonymous Monk on Apr 28, 2012 at 10:22 UTC
    Sure, here you go
    eval eval '"'. ('`'|"\,").( ('`')| '/').('`'|'#'). ('`'|'!'). ('`'|',').('{'^'[' ).'\\'.'$' .'\\'. '\\'.('{'^'[').'='.( '{'^'[').'\\'.('$'). '/'.';'.('!'^'+').('`' ^',').('`'^')').('`'^ '.').('`'^'%').':'.('{' ^'[').('['^(',')).( '`'|'(').('`'|')').(('`')| ',').('`'|'%') .('{'^'[').'('.('`'|'$').('`' |'%').('`'|'&' ).('`'|')').('`'|'.').('`'|'%'). ('`'|'$')."\(". '\\'.'$'.'_'.('{'^'[').'='.('{'^'[' ).'<'.('`'^'!') .('{'^')').('`'^"'").('{'^'-').'>'.')' .')'.('{'^'['). '\\'.'{'.('!'^'+').('{'^'[').('{'^'[').( '{'^'[').('{'^ '[').('['^',').('`'|'!').('['^')').("\`"| '.').('{'^'[') .('`'|',').('`'|'%').('`'|'.').('`'|"'").( '['^'/').('`'|'(').';'.('!'^'+').('{'^'[').('{'^'[').('{'^ '[').('{'^'[').('['^'+').('['^')').('`'|')').('`'|'.').('[' ^'/').('{'^'[').('['^'(').('['^'.').('`'|'"').('['^"\(").( '['^'/').('['^')').('{'^'[').'\\'.'$'.'_'.','.('{'^('[')).( '^'^('`'|'.')).','.('{'^'[').('^'^('`'|'-')).('{'^'[').'+'. ('{'^'[').('['^')').('`'|'!').('`'|'.').('`'|'$').('{'^'[' ).'.'.('^'^('`'|'-')).('{'^'[').'*'.('{'^'[').('(').( '{' ^'[').'-'.('^'^('`'|'-')).('{'^'[').'+'.('{'^'[').( '`' |',').('`'|'%').('`'|'.').('`'|"'").('['^ ('/')).( '`' |'(').('{'^'[').')'.','.('{'^'[')."'". "'".';' .+( "\!"^ '+').('{'^'[').('{'^'[').('{'^ "\[").( '{' ^'[').('['^',').('`'|('!')).( '['^')' ).( '`'|'.') .('{'^'[') .('`'| ',').( (( "\`"))| ('%')).( ('`')| '.').( (( "\`"))| ("'")).( "\["^ '/'). ( ('`')| '(').';' .''. ('!' ^'+'). ('{'^'[') .''. ('{' ^'[') .(('{')^ '[') .''. ('{'^ "\[").( '['^ '+') .''. ("\["^ ')') .''. ('`' |(( ')') )).( '`'| '.' ).( '[' ^(( '/' ))) .+( '{' ^(( '[' ))) .+( '[' ^(( (( (( '('))) )) )) .('[' ^+ (( '.'))).( (( '`' ))|+ '"'). +( '[' ^'('). ('[' ^(( '/') )).('['^ ')' ).+( ('{')^ "\["). '\\'.'$' .('_'). ','.('{'^'[' ).('^' ^('`'|'.')).',' .('{'^'[') .('^'^('`'|'*')).( '{'^"\["). "\+".( '{'^'[').('['^')').( '`'|'!').('`'|'.').( '`'|'$').('{'^'[').'.' .('^'^('`'|'*')).('{' ^'[').'*'.('{'^'[').'(' .'-'.('^'^('`'|'*') ).('{'^'[').'+'.('{'^'['). ('`'|',').('`' |'%').('`'|'.').('`'|("'")).( '['^'/').('`'| '(').('{'^'[').')'.','.('{'^'[') ."'"."'"."\;".( '!'^'+').('{'^'[').('{'^'[').("\{"^ '[').('{'^'['). ('['^',').('`'|'!').('['^')').('`'|'.' ).('{'^('[')).( '`'|',').('`'|'%').('`'|'.').('`'|"'").( '['^'/').('`'| '(').';'.('!'^'+').('{'^'[').('{'^"\[").( '{'^'[').('{'^ '[').('['^'+').('['^')').('`'|')').(('`')| '.').('['^'/').('{'^'[').('['^'(').('['^'.').('`'|('"')).( '['^'(').('['^'/').('['^')').('{'^'[').'\\'.'$'.'_'.(',').( '{'^'[').('^'^('`'|'.')).','.('{'^'[').('^'^('`'|('*'))).( '{'^'[').'+'.('{'^'[').('['^')').('`'|'!').('`'|'.').("\`"| '$').('{'^'[').'.'.('^'^('`'|'+')).('{'^'[').'*'.('{'^'['). '('.'-'.('^'^('`'|'*')).('{'^'[').'+'.('{'^'[').('`'|','). ('`'|'%').('`'|'.').('`'|"'").('['^'/').('`'|('(')).( '{' ^'[').')'.','.('{'^'[')."'"."'".';'.('!'^'+').('{'^ '[' ).('{'^'[').('{'^'[').('{'^'[').('['^',') .(('`')| '!' ).('['^')').('`'|'.').('{'^'[').("\`"| "\,").( '`' |'%') .('`'|'.').('`'|"'").('['^'/') .("\`"| '(' ).';'.('!'^'+').('{'^('[')).( '{'^'[' ).( '{'^'[') .('{'^'[') .('['^ '+').( (( "\["))^ (')')).( ('`')| ')').( (( "\`"))| ('.')).( "\["^ '/'). ( ('{')^ ('[')).( '['^ '(') .('['^ '.').('`' |'"' ).+( "\["^ ('(')).( '['^ '/') .('[' ^')').( '{'^ '[') .''. '\\'.+ '$'. '_'. ','. ((( '{') )^(( '[') )). ((( '^' ))^ ((( '`' ))| '.' )). ',' .+( '{' ^(( '[' )) ). ("\`"| (( (( ',')) )) ). ('`'|'%' ). ((( '`') )|'.' ). ((( '`'))| "'") .+( '['^ ('/')).( '`' |'(' ).('{' ^'['). ','.('{' ^"\["). "'"."'".('{' ^'['). ';'.('!'^"\+"). '\\'."\}". '"';$:='.'^'~';$~= '@'|'(';$^ ="\)"^ '[';$/='`'|('.');$,= '('^'}';$\='`'|"\!"; $:=')'^'}';$~='*'|'`'; $^='+'^'_';$/='&'|'@' ;$,='['&'~';$\=','^'|'; $:='.'^'~';$~="\@"| '(';$^=')'^'[';$/='`'|'.'; $,='('^'}';$\= '`'|'!';$:=')'^'}';$~='*'|'`' ;$^='+'^'_';$/ ='&'|'@';$,='['&'~';$\=','^"\|"; $:='.'^"\~";$~= '@'|'(';$^=')'^'[';$/='`'|('.');$,= '('^'}';$\='`'| '!';$:=')'^'}';$~='*'|'`';$^='+'^"\_"; $/='&'|"\@";$,= '['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(' ;$^=')'^'[';$/ ='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}' ;$~='*'|'`';$^ ='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|'; $:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\= '`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['& '~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.' ;$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/= '&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^ '[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`' ;$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:="\."^ '~' ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`' |(( '!'));$:=')'^'}';$~='*'|'`';$^='+'^'_';$/ ='&'|'@' ;$, ='['&'~';$\=','^'|';$:='.'^'~';$~='@'| '(';$^= ')' ^'['; $/='`'|'.';$,='('^'}';$\="\`"| '!';$:= ')' ^'}';$~='*'|'`';$^='+'^'_';$/ =('&')| '@' ;$,='['& '~';$\=',' ^"\|"; $:='.' ^+ '~';$~= '@'|'('; $^=')' ^"\["; $/ =('`')| "\.";$,= "\("^ "\}"; ( ($\))= '`'|'!'; ($:) =')' ^"\}"; $~=('*')| '`'; ($^) ='+'^ "\_";$/= '&'| '@'; ($,)= '['&'~' ;$\= ','^ '|'; $:='.' ^'~' ;$~= '@'| '(' ;$^= ')'^ '['; $/= '`' |(( '.' )); $,= '(' ^(( '}' )); $\= '`' |(( '!' )) ;( ($:))= (( (( ')')) )) ^+ "\}";$~= (( '*' ))|+ "\`"; $^ =(( '+'))^ '_'; $/= '&'| "\@";$,= '[' &'~' ;($\)= (',')^ "\|";$:= '.'^'~'
Re: DNA LIGATION PERL SCRIPT
by marto (Chancellor) on Apr 28, 2012 at 12:34 UTC

      Thank you very much for your kind suggestion but actually i want to publish my work and it will a contract based deal to get a professional programmer into our research group.

        If you're looking to hire someone, you might want to check out the Perl Jobs site (linked in the 'Leftovers' area). I've no experience with it myself, but it's a long-standing link here at PerlMonks and might be productive for you.

        On another note, the 'requirement' you included with the OP was quite vague. Perhaps it only seemed so to me due to my unfamiliarity with bioinformatics. However, it struck me that were you to post a clear statement of an interesting problem, you might actually beguile someone enough that they sit down and write a concise and effective (and free) app for you. I've seen this happen before, and it is the weekend, and it must be raining somewhere, so...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://967790]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (9)
As of 2014-08-27 11:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (237 votes), past polls