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

["Jefferson R. Lowrey" <lowrey@mailbag.com>]

>At 8:34 -0500 1999.09.10, Jefferson R. Lowrey wrote:
>>tell application "netOctopus"
>>	set myList to selection of Computers window
>>	repeat with thisItem in myList
>>		set thisOwner to cell "Owner" of thisItem
>>		set OwnerList to OwnerList & thisOwner
>>	end repeat
>>end tell
>>
>>and get a list containing the owner names of the current selection.
>>
>>This is what I want to do in perl. Now, I could do something a little
>>different, I could access the pieces of the selection individually - get
>>first record of selection - but I'd rather slurp the selection into a
>>variable, and work with it  from there, as I do in the AppleScript.
>
>OK, how about this:
>
>  my @selection = $no->get( whateveryouputhere );
>  my @owner_list;
>  for my $item (@selection) {
>      push @owner_list, $no->get( $no->obj( cell => 'Owner' => $item) );
>  }

That works like a charm.  It's exactly what it should be, and I probably
should have tried something similar first.

-Jeff Lowrey



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