Permalink
Browse files

ericlee's bug was that he wasn't escaping the regex.

  • Loading branch information...
1 parent 75cf533 commit bb19c359d0c45e1df14931a07267b4489148b789 @jhannah committed Jul 7, 2009
Showing with 2 additions and 1 deletion.
  1. +1 −0 ericlee/list.txt
  2. +1 −1 ericlee/run.pl
View
1 ericlee/list.txt
@@ -8,6 +8,7 @@ gi|116438960|gb|EG481552.1|EG481552
gi|37430227|gb|CF653103.1|CF653103
gi|19802069|gb|AV783279.1|AV783279
gi|56086201|gb|BP561017.2|BP561017
+gi|164238161|gb|EL968856.1|EL968856
gi|59795832|gb|BP798325.1|BP798325
gi|59835057|gb|BP798978.1|BP798978
gi|2762235|gb|T45498.1|T45498
View
2 ericlee/run.pl
@@ -25,7 +25,7 @@
my $raw_seq = $seqobj->seq();
foreach my $item (@list)
{
- if ($item =~ /$id/i)
+ if ($item =~ /\Q$id\E/i)
{
push @raw_seq, ">$id\n$raw_seq\n";
last;

0 comments on commit bb19c35

Please sign in to comment.