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

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



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) );
  }

-- 
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