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

Owner: Nobody in particular
Requestors: leipzig [...]

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 [...]
From: Jeremy Leipzig <leipzig [...]>
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 infrastructure.

Please report any issues with to