Essbase Perl MDX

Обнаружил интересную вещь
– из Perl теперь можно получать результат MDX запроса и построчно обрабатывать

подобности в %Hyperion_home% products\Essbase\EssbaseServer\perlmod

&exec($dbh, “select { ([Year].[Qtr1], [Product].[100]) , ([Year].[Qtr2], [Product].[200]) } on columns from Sample.Basic where ([Measures].[Profit])”);

if($sts == 0 && $dbh->{NUM_OF_FIELDS})
{
# dump the output table
if($bMdx)
{
print &mdxtab($dbh);
}

$rec = $dbh->fetch_row();

while(defined($rec))
{
for ($col = 0; $col < $dbh->{NUM_OF_FIELDS}; $col++)
{
if ($dt->[$col] == 6) {
#format for characters
$str = sprintf ” %-19.19s”, $rec->[$col];
} else {
#format for numbers
$str = sprintf ” %19.19s”, $rec->[$col];
}

$tab .= $str;
}
$tab .= “\n”;
$rec = $dbh->fetch_row();
}