Re^2: problem spellchecker

[Anonymous Monk]

The problem is that is an exercice and I can't use subroutines or modules.

That sounds unbelievable -- sure modules, if part of the exercise is reinventing this particular wheel, but subroutines? the fundamental unit of reusable code? I'd ask for my money back.

[Anonymous Monk]

LoL however.. I got it in this way. I think the problem was the first foreach loop..

    
else {  
                    $line2 =~ s/$word/$correct[$user]/;  
                    $word = $error;  
                    @words = grep { $_ ne $error } @words;  
                }

I made a substitution in line, then I copied $word in another scalar, $error, and then I created again the @words array without $error !