[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl-Modules] Glue: working with reference forms



At 14:47 -0500 1999.09.09, Jefferson R. Lowrey wrote:
>I'm trying to work with the selection that's being returned to me by my
>favorite administrative application, netOctopus.
>
>If, in AppleScript, I do
>tell application "netOctopus"
>     get selection of Computers window
>end tell
>
>what I get back is:
>record id -1.062730013E+9 of window "Computers" of application "netOctopus"
>
>or
>{records from record id -1.062730087E+9 to record id 1.068117901E+9 of
>window "Computers" of application "netOctopus"}
>
>If I do:
>use strict;
>use Mac::Glue ':all';
>
>my $netOGlue = Mac::Glue->new('netOctopus');
>
>my $selection = $netOGlue->get($netOGlue->prop('selection', of
>=>'computers_window'));
>
>Of course, what I get in $selection is a hash ref.
>
>So, how do I work with the hashref, to access the individual items in the
>selection?

I would first try:

  use Data::Dumper;
  print Dumper $selection;

See what is in there.

Also, you may be able to use the "as" parameter to get the return value as
something more usable:

  my $s = $n->get($n->prop(selection => of => 'computers_window'), as =>
'???');

??? might be 'number' or 'string' or somesuch.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org