Skip to main content

Perl's text handling to the rescue....

There was a very interesting proble set forward at the Ingres forum, quoting :

"I have to use an Ingres Database to store my data which is in several languages (like french, german, and so on). In my web site, the user can use the function "search".
The problem are the special characters like éàèâ in french, or öäü in german. The user doesn't enter these characters, but it should be found anyway.

For example:
 
In the database is the word "château". The user types "chateau" (whithout â)
The program should find the "château", even if "chateau" was typed.
So all accents in the database should be replaced by something more
useful (like "_") 
Has someone an idea how to do that?
Ingres database version : 9.2.1 
 
Thanks a lot, Kakmael"

 and this is my attempt to tackle it,using Perl,of course


Ok you so you get the latin1 encoded string "Chateu" from your web form and you pass it to a CGI Perl script which does the following :

use charnames ':full';
use strict;
my $input_string="Chateau";
my @results;
my %mappings=( "\N{LATIN SMALL LETTER A}" => ["\N{LATIN SMALL LETTER A WITH GRAVE}","\N{LATIN SMALL LETTER A WITH DIAERESIS}"]);

@results=("'".$input_string."'");

foreach my $hash_key (keys %mappings) {
    foreach my $array_key ( @{$mappings{$hash_key}} ) {
        my $temp;
        ($temp=$input_string)=~ s/$hash_key/$array_key/;
        push @results, "'".$temp."'";
    }
}

my $search_string;
 {
local $"=",";
$search_string= 'SELECT * FROM test WHERE col2 in ' . '(' . "@results" . ')' ;
}

print $search_string;


basically you have a hash that maps the to be replaced characters to their counterparts by storing them into an anonymous array reference :

my %mappings=( "\N{LATIN SMALL LETTER A}" => ["\N{LATIN SMALL LETTER A WITH GRAVE}","\N{LATIN SMALL LETTER A WITH DIAERESIS}"]);

then you iterate through the nested data structure and you substitute the sought after character with its counterpart (the two foreach loops) and then you build the final string with a neat trick to get the right amount of commas correct
So the final $search_string will contain ('Chateu','Chàteu','Chäteu')

Of course this does not cover all possible cases (for example do you want all the 'a' replaced or just the first one??) since after all I don't know what the exact requirements are, and will need some tweaking, but you get the drift

Comments

Popular posts from this blog

Book Review : How To Create Pragmatic, Lightweight Languages

At last, a guide that makes creating a language with its associated baggage of lexers, parsers and compilers, accessible to mere mortals, rather to a group of a few hardcore eclectics as it stood until now.

The first thing that catches the eye, is the subtitle:

The unix philosophy applied to language design, for GPLs and DSLs"
What is meant by "unix philosophy" ?. It's taking simple, high quality components and combining them together in smart ways to obtain a complex result; the exact approach the book adopts.
I'm getting ahead here, but a first sample of this philosophy becomes apparent at the beginnings of Chapter 5 where the Parser treats and calls the Lexer like  unix's pipes as in lexer|parser. Until the end of the book, this pipeline is going to become larger, like a chain, due to the amount of components that end up interacting together.

The book opens by putting things into perspective in Chapter 1: Motivation: why do you want to build lan…

How Much Gameplay Can You Pack In Just 13K?

Given our expectations of Xbox games, you might consider writing a game within a 13K limit, which is the challenge for the annual js13K competition far too restrictive. Its results are now out and prove that it is possible to produce a game that is fun to play. 

Back in the tape loading days and on platforms the likes of Commodore64 games came in sizes of 4K or less. As proof of concept, here's a list of a few such 4K titles, copied over from Lemon64 's archive:
Alien SidestepBug CrusherDot GobblerClose EncountersDot Gobbler v2GridrunnerLaser CyclesMarios BrewerySpace ActionSpace RicoshayTank WarsHesmon64Retro Ball  Fast forward to now, at a time when Javascript's eating the world by making all sorts of applications or  games available to everyone through the medium of the browser, rendering the need of dedicated platforms and Operating systems obsolete, 13K is sufficient enough to pack both gameplay AND cool graphics due to the advanced browser engines and HTML5.

Hour of Code 2017 Introduces App Lab

t's the time of year when the world-class Hour of Code once more commences; just an hour for introducing coding to the uninitiated, having them complete self guided tutorials. But is a hour sufficient? What can a beginner actually code within this limit? The answer is a bit more complicated than that, so let's find out all about it! Integrated into the larger, worldwide, annual Computer Science Education week, this year taking place December 4-10, Hour of Code's novel mission has always been to get everybody coding, aged from 4 to 104, by providing: "a one-hour introduction to computer science, designed to demystify code, showing that anybody can learn the basics, and broadening participation in the field of computer science". But first of all, why this obsession with Computer Science, in particular in getting  kids as young as 4 to learn to code? The answer is simple. Nowadays code is everywhere around us, from desktop computers to mobile phones and, thanks to w…