RE: simple code

2001-11-12 Thread Henry Hung-Yung Wang
Hi everyone, Thanks for the advice. They were really helpful. I have tried a different way of approaching my problem and it's now working. However, I do appreaciate all the suggestions that you have provided me. Henry On Mon, 12 Nov 2001, mark crowe (JIC) wrote: > Hi Henry > > Have you looked

RE: simple code

2001-11-12 Thread mark crowe (JIC)
Hi Henry Have you looked at using substr to take each octamer from the start for the sequence? It's probably a lot more efficient than splitting it into an array and taking the first 8 bases each time (althought I'm pretty sure that was exactly the way I did my first DNA scripts too :-) Also, if

Re: simple code

2001-11-10 Thread John W. Krahn
Andrea Holstein wrote: > > Henry Hung-Yung Wang wrote: > > > > @dna=split (//, $dna); > > What's your regexp to split. > split //, $dna uses the last regexp used in the program. > Perhaps you meant split /\w/, $dna ?! Are you sure? $ perl -le'$_ = "This is a test of split."; print "Found" if /

Re: simple code

2001-11-10 Thread Andrea Holstein
Henry Hung-Yung Wang wrote: > I have just written some codes, but they are not doing what I wanted them > to do. Here are the codes: > > @motif= ('ACGTACGT', '', 'CCGGCCGG', 'GGCCGGCC'); > > print "Please enter sequences to be examined:\n\n"; > $dna=; chomp $dna; > > @dna=split (//, $dn

Re: simple code

2001-11-09 Thread John W. Krahn
Henry Hung-Yung Wang wrote: > > I have just written some codes, but they are not doing what I wanted them > to do. Here are the codes: > > @motif= ('ACGTACGT', '', 'CCGGCCGG', 'GGCCGGCC'); > > print "Please enter sequences to be examined:\n\n"; > $dna=; chomp $dna; > > @dna=split (//,