Re: Arithmatic operation in PERL

[CharlesClarkson]

TIMTOWTDI

my %movies;
{
    local $/ = "\n\n";
    while ( <DATA> ) {
        next unless s/\*\s+Movie="([^"]+)"\s+show=(\d+)//;
        $movies{$1}{$2} += $_ for 0, grep $_ > 20, split ' ';
    }

    print Dumper \%movies;
}

__END__
* Movie="ABC" show=4
10 20 30 14 90 30
21 13 11 10 09 23
22 05 22 15 19 20

* Movie="XYZ" show=4
10 20 30 14 90 30
21 13 11 10 09 23
22 05 22 15 19 10

* Movie="abc" show=4
10 10 10 14 10 10
11 13 11 10 09 13
12 05 12 15 19 10

HTH,
Charles K. Clarkson


Language is the dress of thought.
- Samuel Johnson