sub resolve {
my $strref = shift;
my $strpos = shift;
my $dictfh = shift;
return [] if length($$strref) == $strpos;
my $words;
my $reset_fh = tell($dictfh);
seek $dictfh,0,0;
while(defined(local $_ = <$dictfh>)){
chomp;
if( substr($$strref,$strpos,length) eq $_ ){
print "$_ at $strpos\n";
if( my $w =
resolve($strref,$strpos+length,$dictfh)
){
$words = [$_,@$w];
last;
}
print "<- $strpos\n";
}
}
seek $dictfh,$reset_fh,0;
return $words;
}
open my $dfh,'<','/usr/dict/words' or die $!;
my $string = 'whererangesarealltherage';
my $words = resolve( \$string, 0, $dfh );
print $words ? "@$words" : 'no words' , "\n";
close $dfh;
I've included some output that shows how the program "backtracks".
--
http://
fruiture.de