perlquestion
Jurafsky
<p> I've created a little spellchecker.
This script works in this way: <br>
After reading each line of the text, realizes some corrections
thanks to a comparison between a dictionary and the text itself. <br>
When it finds a word that doesn't exist in the dictionary, it corrects the words
(giving one or more suggestions) and pushes it into an array. <br> </p>
<p> Here there's my problem: </p>
<br>
I would like to give to the user the possibility to choose the correct word
among the words suggested. Something like this: <br>
We found the word "wlak" in your text which isn't correct. <br>
The suggested possibilities are: <br>
<li>1. walk </li>
<li>2. work </li>
<br> type the number associated to the word or 0 if you can't find the correct word.
<br> Then I would like to replace the correct word on the original text (creating a new .txt). <br>
<p>How can I do this? </p>
<code>
use diagnostics;
use warnings;
my ($file_dictionary, $word, $line, $line1, $alph, $elt, $w, $transposition, $letter1, $letter2);
my (@word, @altered_word, @filedictionary, @filetext, @dictionary, @addition, @replacement, @transposition, @removal);
$file_dictionary = "lexique.txt";
$file_text = "texte.txt";
#I create an array for the dictionary
open (L, "<", $file_dictionary);
while (defined( $line1 = <L>)) {
chomp($line1);
@filedictionary = split (/\s/, $line1);
push (@dictionary, @filedictionary);
}
#I create an array for the text
open (T, "<", $file_text);
while (defined( $line = <T>)) {
chomp($line);
@filetext = split (/(\s|\pP)/, $line);
for ($i = 0; $i < @filetext; $i++) {
if (!grep(/^$filetext[$i]$/, @dictionary)) {
push (@word, $filetext[$i]);
}
}
}
#then I create an array for each word
foreach $w(@word) {
@altered_word = split (//, $w);
#I create an array for the dictionary
open (L, "<", $file_dictionary);
while (defined( $line1 = <L>)) {
chomp($line1);
@filedictionary = split (/\s/, $line1);
push (@dictionary, @filedictionary);
}
#first operation --> "palrer" will be "parler"
for (my $i=0; $i < $#altered_word ; $i++)
{
@transposition = @altered_word;
$letter1 = $transposition[$i];
$letter2 = $transposition[$i+1];
$transposition[$i] = $letter2;
$transposition[$i+1] = $letter1;
$transposition = join "", @transposition;
if (grep(/^$transposition$/, @dictionary))
{
print "post transposition : $transposition\n";
}
}
foreach $elt (0 .. $#altered_word) {
#second operation --> parller will be parler
@removal = @altered_word;
splice(@removal, $elt, 1);
$removal = join "", @removal;
if (grep(/^$removal$/, @dictionary))
{
print "post enlevement : $removal\n";
}
#third operation --> parer will be parler
foreach $alph('a' .. 'z') {
@addition = @altered_word;
splice(@addition, $elt, 0, $alph);
$addition = join "", @addition;
if (grep(/^$addition$/, @dictionary)) {
print "post addition : $addition\n";
}
#last operation : mancer will be manger
@replacement = @altered_word;
splice(@replacement, $elt, 1, $alph);
$replacement = join "", @replacement;
if (grep(/^$replacement$/, @dictionary)) {
print "post replacement : $replacement\n";
}
}
}
}</code>
https://www.dropbox.com/s/t9fc2dk5mqbsb20/texte.txt <br> this is the text <br>
https://www.dropbox.com/s/717rczou0mkrp0s/lexique.txt" <br> this is the French Dictionary