Hello Kind and Wise Monks:

I have a bit of code that I am attampting to use to get data out of a Bloomberg terminal. I think it is very close to working. And I know it can be done because I have other PERL code that works. But I do not have enough skills to see what I am doing wrong.

I get the following: 
-1
subMode: 1
Error: 0
$VAR1 = bless( do{\(my $o = 27151532)}, 'Win32::OLE::Variant' );
Not an ARRAY reference at tstblpSubscribe.pl line 42.

[download]
from this code: 
use Data::Dumper;
use Win32::OLE;
use Win32::OLE::Variant;


$blpData = Win32::OLE->new('Bloomberg.Data.1')  or die "can NOT load t
+he blpData" ;

print $blpData->Timeout   . "\n";

$aSec  =   Variant(VT_BSTR,  "IBM Equity");
$aFields = Variant(VT_ARRAY|VT_BSTR, 4 );

$aFields->Put(0,"NAME") ; 
$aFields->Put(1,"ID_SEDOL1") ; 
$aFields->Put(2,"ID_CUSIP") ; 
$aFields->Put(3,"ID_ISIN") ; 


$bbData = Variant(VT_EMPTY,1) ;
$plug = undef;

##@bbData = $blpData->GetHistoricalData($aSec,  $aFields,  $sDate, $eD
+ate );


$blpData->SetProperty("SubscriptionMode", 1);
print "subMode: " , $blpData->SubscriptionMode ;

$blpData->Subscribe( $aSec,3, $aFields, $plug, $plug,  $bbData);

##  $blpData->GetData($aSec, $aFields, @plug, @plug, 1000, @bbData);

print "\nError: " . Win32::OLE->LastError  . "\n";
  #print "Array Size: " , $bbData->Dim . "\n";
  #print "Returned: " . $bbData->Get(0)  . "\n";
  
print Dumper $bbData;



  for my $e (@$bbData)   {
     my $d = $e->[0];
     print "zero:  $d->[0] "  .  "   one:  $d->[1]  \n" ;
   

        #foreach $tmp (@aDim) {
        #   print $tmp
        #   
  }





print "Array Size: " , @$bbData->Dim   . "\n";

foreach $bbData (@bbData) {
   print $bbData
   
}

print  "end"  ;

[download]
I think I am close because Error = 0. Always a goood sign.

I think data was returned in $bbData.
How do I get at it? Need your kind assistance.

Many thanks.

KD

In reply to parsing Win32::OLE::Variant by kevind0718

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.