Notes


if ( $string =~ /[[:^ascii:]]/ ) {
print “String contains characters that are NOT pure ASCII”;
}
else {
print “Everything is good, string/pure is valid ASCII.”;
}


E.G.: If it contains bytes > 127, it’s not valid ASCII.

It allows you to get Perl pre-compiled packages. You can avoid installing a C compiler which is needed for some packages (KinoSearch for example).

http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/

Alternate packages repositories:
http://cpan.uwinnipeg.ca/PPMPackages/10xx/

KinoSearch is the winner

The following perl scripts index *.txt in the current folder and search for “TEST”. The first one is using Perl’s KinoSearch module and the other one is using Plucene. KinoSearch is alot faster then Plucene and also gives better results.

(right click to download)

KinoSearch.pl

Plucene.pl