my $german = get_lang_hash('german.txt');
my $english = get_lang_hash('english');
my $french = get_lang_hash('french');
my $italian = get_lang_hash('italian');
my $new_text = '';
for my $word ( split /\b/, $text ) {
my $lang = check_word($word);
$new_text .= $lang ? qq!word! : $word;
}
sub check_word {
my ($word) = @_;
print "got $word\n";
return '' if $german->{$word};
return 'en' if $english->{$word};
return 'fr' if $french->{$word};
return 'il' if $italian->{$word};
return '';
}
sub get_lang_hash {
my $dict = shift;
my %hash;
open DICT, $dict or die $!;
while () {
chomp;
$hash{$_}++;
}
close DICT;
return \%hash;
}