note
ashish20092009
your code is write just remove the last code part::::::what are u doing here in last part.
take a look :
#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
open (INPUT, "<:utf8", "short.txt") or die "can't open";
open (INPUT2, "<:utf8", "woordelysEng.txt") or die "can't open";
open (OUTPUT, ">output.txt") or die "can't open";
my @words;
my @EN;
while (<INPUT>)
{
my $word = $_;
chomp $word;
@words = split(/ /, $word);
}
while (<INPUT2>)
{
my $word = $_;
chomp $word;
@EN = split(/ /, $word);
}
for(my $z = 0; $z <= $#EN; $z++)
{
for(my $y = 0; $y <= $#words; $y++)
{
if($EN[$z] eq $words[$y])
{
print OUTPUT "$EN[$z]\n";
}
}
}
1006184
1006205