collect and count letter strings

[mythili123]

Hi
I have difficult undersating this problem

Read data from a I/P file.Ignore all lines that start with the literal string given as a command line argument. Otherwise, collect and count the letter strings, case
independently.

If the literal string is "foo" and a line starts
with "foo", ignore it. If a line does NOT start with foo
then the letter strings on it get counted (which might add to counts
from previous lines).

This is what i tried.I read the all the lines from file and ignored the lines starting with"foo".Rest of the part(collect and count the letter strings) I am not getting it.If any of u explain me I'll start working on that part of code.


Thank you
Mythili

[KevinADC]

lets see your current code.

[mythili123]

#!/usr/bin/perl
die:"Usage:$o infile outfile a string\n" if @ARGV!=3;
 
open(INFILE,"$ARGV[0]") || die"Cannot open infile!\n";
open(OUTFILE,">$ARGV[1]") || die"Cannot open infile!\n";
 
foreach (<INFILE>) {
    chomp;
    $astring = @ARGV[2];
    if ($_ !~ m/^($astring)/i) {
        @words = $_;
        #push(@all_lines,@words)
    }
    else{
        @nowords=$_;
    }
    # print "@words\n";
 

@words contains array of lines not starting with "this".
Next how can I collect and count the letter strings?

-Mythili

[KevinADC]

OK, your code can use some improvements, but since this looks like school/class work I won't make any changes to your existing code. Here is a sort of generic way to count words (or letter strings I guess) in a line, or array of lines:

@all_lines = ('foo bar baz','this is a test','a word');
foreach $line (@all_lines) {
   $count++  while $line =~ /\w+/g;
}    
print $count;

see if you can work that into your existing code.

[KevinADC]

more useful information:

http://perldoc.perl.org/perlfaq4.html

[mythili123]

Thanks for dode.I'll work on it.

-Myhtili