How to search a word from a text using perl

[Vinodhg]

Hello Sir/Madam,
I am writing a perl script to find a word from a file..

#!/usr/local/bin/perl
unless (open(VINODH, "vinodh.txt")) { die("Cannot open input file vinodh.txt")        }
$line=<VINODH>;
$count = 0;
while ($line ne "") {
    chop($line);
    @words = split(/ +/, $line);
    print ("@words \n");
        $count += @words;      
        $line = <VINODH>;
        }
print ("Total no. of words: $count \n");
 

In this program I want print the @words array out of the while loop so that i will proceed with the follwing steps:

$count1 = 0;
if($count1<=$count && $words[$count1] =~ /^<table>$/){
$count1 += $count1;
}
print("$count1");
 

what should i do now..

[wunderpants]

So what exactly is your input/desired output? Do you want to input a word, such as "foobar" and then output the positions that the word occurs in the text?

If so, using regular expressions would be a much simpler way to do this than what you have done so far.

Reply with more info and we can help you better :)

[numberwhun]

So what exactly is your input/desired output? Do you want to input a word, such as "foobar" and then output the positions that the word occurs in the text?

If so, using regular expressions would be a much simpler way to do this than what you have done so far.

Reply with more info and we can help you better :)

Agreed! More information (specifically a better description of exactly what you are trying to do) along with a sample of the data you are referencing would be wonderful and extremely helpful.

Regards,

Jeff