#!/usr/bin/perl
#*
# Sum up total estimated (lecture) time. Each time estimate is written
# in braces with a minute sign appended (e.g. '(10")' ); these values
# are extracted and added up to write the total.
#
# USAGE:
#     $0 paskaitų-planas/paskaita-01.txt
#     $0 paskaitų-planas/paskaita-0*.txt
#     $0 < paskaitų-planas/paskaita-01.txt
#
# INPUT:
#     sh$ head paskaitų-planas/paskaita-01.txt | tail -n1 
#     1. Bendras įvadas, prisistatymas, kurso tikslai (10")
#
# OUTPUT:
#     sh$ ./scripts/sum-time paskaitų-planas/paskaita-01.txt 
#     LECTURE TIME:	90"
#**

use strict;
use warnings;

my $sum = 0;

while(<>) {
    while( /\((\d+)"\)/g ) {
        $sum += $1;
    }
}

print "LECTURE TIME:\t", $sum, "\"\n";