Re: Writing to file part deux

(It's "deux".)

but I don't know how to get the same series of bases in the substitution.

s/([actg]{6})/...$1.../
[download]

Also I need to capture the locus name and place it before the ^^

You should have gotten a warning saying you were matching against an undefined value.

my ($locus) = /LOCUS\s*(\w+)/;
[download]

Comment on Re: Writing to file part deux Select or Download Code

Replies are listed 'Best First'.
Re^2: Writing to file part deux by Anonymous Monk on Jul 23, 2009 at 23:25 UTC
I had tried `my ($locus) = /LOCUS\s*(\w+)/;` But it still doesn't capture it. I have just realized this is because the variable is being overwritten since it is searching line by line in the <$in>. How do I get around that?	[reply] [d/l]
Re^3: Writing to file part deux by ikegami (Patriarch) on Jul 23, 2009 at 23:28 UTC
`my $locus; while (...) { ... ($locus) = /.../; ... }` [download]	[reply] [d/l]
Re^4: Writing to file part deux by Anonymous Monk on Jul 24, 2009 at 00:24 UTC
I tried that but it still gives me initialized value $locus for each line of the <$in>...	[reply]
Re^5: Writing to file part deux by ikegami (Patriarch) on Jul 24, 2009 at 00:31 UTC