Shell Programming and Scripting

B20080203-????

#!/usr/bin/perl
use strict;
use warnings;
@ARGV = <path/to/B2008*-*>;
my %counts = ();
while (<>) {
    chomp;
    chomp(my $count = <>);
    $count =~ tr/<>//d;
    $counts{$_}+=$count;
}	 	
print "$_=$counts{$_}$/" for (sort keys %counts);

#!/bin/ksh

ifile=0

# Pass 1: creating working files

for file in $*
do
        let ifile=$ifile+1

        grep -v "<" $file > $file.$$-1
        grep "<" $file | sed -e 's/<//g' | sed -e 's/>//g' > $file.$$-2

        pr -m -t -s= $file.$$-1 $file.$$-2 > $file.work.$$

        rm -f $file.$$*
done

# Pass 2: Creating 1st part of result file with counters names

cat *.$$ | cut -d= -f1 | sort | uniq > result$$.txt

# Pass 3: Getting values in $$ing files

cnt_list=$(cat result$$.txt)

for cnt in $cnt_list
do
        list=$(grep $cnt *.$$ | cut -d= -f2)
        list=$(echo $list | sed -e 's/ /+/g')
        val=$(echo $list | bc)
        echo $cnt=$list=$val
done

rm -f *.$$ result$$.txt

./script B20080203-15*
counter1=10+100=110
counter2=11+40=51
counter3=20=20