reading from text file

[Limeburner72]

Hi,
here is the code:

use warnings;
open(FILEHANDLE ,"school.txt ") or die"Couldn't open file:$!";
while ($line = <STDIN>)
{
while ($line =~ s/(\w+)(.*)/$2/)
{
$word = $1;
$wordHash{$word }++;
}
}
while (($word, $count) = each(%wordHash) )
{
$wordHash[$i] = "$word\t$count" ;
$i++;
print ("$word\n");
}
close(FILEHANDL E);

[Rykus]

Hi,
here is the code:

use warnings;
open(FILEHANDLE ,"school.txt ") or die"Couldn't open file:$!";
while ($line = <STDIN>)
{
while ($line =~ s/(\w+)(.*)/$2/)
{
$word = $1;
$wordHash{$word }++;
}
}
while (($word, $count) = each(%wordHash) )
{
$wordHash[$i] = "$word\t$count" ;
$i++;
print ("$word\n");
}
close(FILEHANDL E);

What do you need with this?
You haven't specified if you're having a problem, or if you're just sharing code...

[Limeburner72]

Hi,
I'd like to know where should I place a text file on my computer to be read from.The output from this code is always:Couldn't open this file.I don't know where I went wrong.