From perldoc Win32::API: 
The third parameter, the input parameter list, specifies how many
arguments the function wants, and their types. It MUST be passed
as a list reference. The following forms are valid:

    [a, b, c, d]
    \@LIST

[download]
so make up a reference to an anonymous list as: 
my $arr = [ pack("d",1), pack("d",1.5), pack("d",3) ];

# or as I would do it...

my $arr = [ map { pack 'd', $_ } ( 1, 1.5, 3 ) ];

[download]
The [] square brackets make an anonymous array so the scalar $arr (which you need to supply to the Call method of Win32::API) contains a reference to that array.

You could as easily do: 

my @arr = map { pack 'd', $_ } ( 1, 1.5, 3 );

[download]
and then pass a reference to the list (\@arr) - whichever you prefer.

Hope this helps 

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"

In reply to Re: Calling win32:api dll with pointer to array by larryk
in thread Calling win32:api dll with pointer to array by Anonymous Monk

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.