> !/usr/bin/perl -w
> open (INPUTFILE, "inputfile") or die "No input file, I'm going to die
> now $!\n";
> $Line_number = 1;
> $. = 0;
> do { $LINE = <INPUTFILE> } until $. eq $Line_number || eof;
Why are you doing this? You only need the first line...
$line = <INPUTFILE>;
> for ( $LINE ) {
What is the purpose of the for loop? You only have one item...
($word1, $word2, $word3) = split( " ", $line);
Now, think about the problem, you need to associate a count with each one of
the
words, and increment the count every time the word appears in the following
lines.
Work on it some more and ask your instructor if you are having problems.
Good luck,
Tanton
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
