Форум программистов [Powered by Invision Power Board]

Цитата(pirojok @ 22.6.2010, 08:58)

Делаю выборку из БД:

Код


my $result=$sql_request->execute || die "Error while to execute the $sql";
while(my %RESULT=%{$sql_request->fetchrow_hashref})
                                {
                                push @out,\%RESULT;
                                }

на выходе имеем:
komanda     user      inc
______________________
com1           user1    inc1
com2           user3    inc2
com3           user1    inc3
com1           user1    inc4
com2           user3    inc5
com2           user3    inc6
com3           user1    inc7

Эти данные необходимо сгруппировать по полям komanda  и user (аналогично group by komanda,user  в SQL).
Получив,например массив хэшей вида:
komanda     user     count
______________________
com1            user1    2
com2            user3    3
и т.д.

Как это реализовать средствами perl ?
П.С. сделать группировку средствами ORACLE не удалось.

Код


my %hash;

my $res = db->prepare("SElECT * FROM bd_name");
$res->execute();
if ($res->err)
    {
    print "Ошибка ". $res->errstr;
    }
else
    {
    while (my @row = $res->fetchrow_array())
        {
        if (exists($hash{$row[0]}))
            {
            $hash{$row[0]}->[1] = $hash{$row[0]}->[1] + 1;
            }
        else
            {
            $hash{$row[0]}->[0] = $row[1];
            $hash{$row[0]}->[1] = 1;
            }
        }
    }    

# Вывод
foreach my $key (sort(keys(%hash)))
    {
    print "$key => ";
        for (my $i=0; $i<@{$hash{$key}};$i++)
            {
            print "$hash{$key}->[$i]";
            }
        print "\n";
    }