Re: regular expressions


Do you know where your variables are?
	PerlMonks

Re: regular expressions

by si_lence (Deacon)

on Feb 01, 2005 at 18:14 UTC ( [id://426991]=note: print w/replies, xml )

Need Help??

in reply to regular expressions

hi
Use a total counter outside your loop and print it out at
the end.
Something along the lines of:

 use strict;
 use warnings;

 my $total;

 while(<DATA>) {
    my ($county, $year, $yr_tot) = split;
    $total += $yr_tot if $county =~ /26005/;
 }
 print "Total for county 26005: $total\n";

__END__
26005 2004 1
26005 2004 2
26005 2004 3
26004 2004 1
26003 2004 1
[download]

si_lence
update: typo