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