Skip Menu |
 

This queue is for tickets about the String-Approx CPAN distribution.

Report information
The Basics
Id: 57213
Status: new
Priority: 0/
Queue: String-Approx

People
Owner: Nobody in particular
Requestors: leipzig [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: seemingly incorrect indices returns from aindex
Date: Tue, 4 May 2010 16:47:04 -0400
To: bug-String-Approx [...] rt.cpan.org
From: Jeremy Leipzig <leipzig [...] gmail.com>
Download (untitled) / with headers
text/plain 510b
perl 5.8.8 String-Approx-3.26 #!/usr/bin/perl use String::Approx 'aindex'; print "correct\n"; testApprox("ATGCTACAATGTGCTCCCCCAACTTGATATTAATAACACTATAGACCACCGCCCCGAAGGGGACGAAAAATGGTTT","ACGAAAAATG"); print "incorrect\n"; testApprox("ACCTTTCTTTTTGGGGTAATTATACTCATCGCGAATATCCTTAAGAGGGCGTTCAGCAGCCAGCTTGCGGCAAAAC","TGCGGCAAAA"); sub testApprox{ my ($s1,$s2)=@_; my @inputs = ($s1); my @indices = aindex( $s2, [ "I0", "D0", "S0" ], @inputs ); print $s1."\n"; print ' ' x ($indices[0]); print $s2."\n"; }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.