[SOLVED] count

imran042 · 03-18-2012, 02:54 AM

what is the code for building a number pyramid using perl,
and what is the code to count a specific word in the text.

grail · 03-18-2012, 03:10 AM

What have you tried?

xeleema · 03-18-2012, 03:12 AM

Greetingz!

These kind of sound like homework questions...and asking forums for answers defeats the purpose of homework.
Google also returns a myrid of results for these questions (like this one), so I'm assuming you haven't googled for this either.

imran042 · 03-18-2012, 08:07 AM

Quote:

Originally Posted by grail

What have you tried?

-----------------------------
#!/usr/bin/perl -w

my $count=0;

my $path="/home/perl/field.txt";
open(IN, $path)|| die "INVALID PATH\n";

print "\nEnter word\n";
$word=<stdin>;
chomp($word);

while(<IN>)
{
my @field=split(',',$_);
if ("$_" =~ /$word/)

{
$count++;
}

}

print"\n'$word' appeared :$count times\n\n";

close(IN)

This is what i tried , but the count is not accurate

grail · 03-18-2012, 08:38 AM

hmmm ... first off, you can use [code][/code] tags to display your code properly.

Second, what does this code have to do with a "number pyramid"?

Lastly, without seeing what the format of field.txt and what your current and expected results are, it will be difficult to assist further.