File Coverage

blib/lib/Search/Equidistance.pm

Criterion	Covered	Total	%
statement	9	39	23.0
branch	0	10	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	54	22.2

package Search::Equidistance;

use 5.008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Search::Equidistance ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw() ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(decode);

our $VERSION = '0.01';

# Preloaded methods go here.

sub decode {
croak("Usage: decode(string, max-skip, file) ") unless(@_ == 3);

my ($find, $MAXSKIP, $file) = @_;
my $rfind = reverse($find);
open F, $file or die "No such file $file: $!\n";

my $line = join "", ;
$line =~ s/(\W|\n)//g;

my ($sum_count, $n, $found, $sm, $i, $end, $match, $len, $pos, $count);

$sum_count = 0;
for $n (1..$MAXSKIP) {
	$found = 0;
	$sm = $n - 1;
	for $i (0..$sm) {
		$end = $sm - $i;
		$match = "\.\{0,$i\}\(\.{0,1}\)\.\{0\,$end\}";
		($_ = $line) =~ s/$match/$1/g;
		$len = length;
		$pos = 0;
		$count = 0;
		while (/$find|$rfind/i) {
			$found++;
			print "[Skip=$n]\n" if ($found == 1);
			$count++;
			print "<$i:$len>" if ($count == 1);
			$pos += length($`);
			print "$&($pos)";
			$pos += length($&);
			s/$`$&//;
		}
		print "\n" if ($count > 0);
		$sum_count += $count;
	}
}
print "\n=== String $find are found $sum_count times (forward & reverse) ===\n";

}

1;
__END__