Shell Programming and Scripting

./scriptname inputfile

[root@localhost ~]# cat aaaa
312009 1 0620233743 0620233748 20090620235854 20.7.22.14 aaa
312009 2 0620233743 0620233748 20090620235854 20.7.22.14 aaa
312009 3 0620233743 0620233748 20090620235854 20.7.22.14 aaa
312009 5 0620233743 0620233748 20090620235854 21.7.22.14 aaa
312009 2 0620233743 0620233748 20090620235854 20.7.22.14 aaa
[root@localhost ~]# cat a.pl
#!/usr/bin/perl
use strict;
use warnings;
my %x;
my @F;
open(my $FB, "/root/aaaa") or die "$!";
while (<$FB>) {
  my @F = split;
  $x{$F[5]} += $F[1];
}
print map "$_ $x{$_}\n", sort { $x{$b} <=> $x{$a} } keys %x;
close $FB;
[root@localhost ~]# ./a.pl
20.7.22.14 8
21.7.22.14 5
[root@localhost ~]#

If I would like to have the result of:
20.7.22.14 8 4
21.7.22.14 5 1
Total: 13

##############
4 and 1 is kind of "cat aaaa | grep 20.7.22.14 | wc -l".
Total: 13 is 8+5=13.

[root@localhost ~]# cat a.pl
#!/usr/bin/perl
use strict;
use warnings;
my %x;
my %xx;
my @F;
open(my $FB, "/root/aaaa") or die "$!";
while (<$FB>) {
my @F = split;
$x{$F[5]} += $F[1];
$xx{$F[5]} += 1;
}
print map "$_ $xx{$_} $x{$_}\n", sort { $x{$b} <=> $x{$a} } keys %x;
close $FB;

++$xx{$F[5]};