#----------------------------- |
use String::Approx qw(amatch); |
if (amatch( "PATTERN" , @list )) { |
# matched |
} |
@matches = amatch( "PATTERN" , @list ); |
#----------------------------- |
use String::Approx qw(amatch); |
open (DICT, "/usr/dict/words" ) or die "Can't open dict: $!" ; |
while (<DICT>) { |
print if amatch( "balast" ); |
} |
ballast |
balustrade |
blast |
blastula |
sandblast |
#----------------------------- |