Shell Programming and Scripting

I have two files. one files contain counts and second contain string. Now i have to compare two string . if two string are same i have to add count. If strings are same more than once i have to display final output.
like this

>Count.txt
1
3
12
4
5
6
1

>strings.txt
AA
BB
BB
BB
CC
CC
DD


here is my code what i am trying right now but its not give me correct out. please help me in this.

open(pr, "<", "count.txt");
my @count = <pr>;
close(pr);

open(pr1, "<", "string.txt");
my @st = <pr1>;
close(pr1);


for ($i = 0 ; $i <= $#id; $i++)
{
$j = $i + 1;
if ($st[$i] eq $st[$j])
{
$sa = $count[$i] + $count[$j];
print "$sa\n";
}

else
{
$sa = $count[$i];
print "$sa\n";
}
}



I can also merge these files. I need to add count based on string. And string file is sorted.

like this

1 AA
3 BB
12 BB
4 BB
5 CC
6 CC
1 DD

Hi pjlotiya,

One way using perl:

Code:

$ cat count.txt 
1
3
12
4
5
6
1
$ cat strings.txt 
AA
BB
BB
BB
CC
CC
DD
$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 <count-file> <strings-file>\n] unless @ARGV == 2;

open my $cfh, qq[<], shift or die qq[Cannot open file: $!\n];
open my $sfh, qq[<], shift or die qq[Cannot open file: $!\n];

my (%output);

while ( my $cl = <$cfh>, my $sl = <$sfh> ) {
        map { s/\A\s+//; s/\s+\Z// } $cl, $sl;
        $output{ $sl } += $cl;
}

for ( sort keys %output ) {
        printf qq[%d %s\n], $output{ $_ }, $_;
}
$ perl script.pl count.txt strings.txt 
1 AA
19 BB
11 CC
1 DD

Regards,
Birei