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

Re: [MacPerl-Modules] Glue: Fun with reference forms again



At 15:41 -0500 1999.09.10, Jefferson R. Lowrey wrote:
>If, however, I try and use the Owner names to populate a hash
>for my $item (@selection) {
>	my $user = $netOGlue->get($netOGlue->obj(cell => 'Owner' => $item));
>	$report{$user}{'status'} = 'ready';
>	$report{$user}{'reason'} = undef;
>	print "report initialized for $user\n" if $debug;
>};
>
>by putting the result of the get into the scalar $user, I lose the list.

What do you mean, you lose the list?


>If I do this instead
>for my $item (@selection) {
>	my @result = $netOGlue->get($netOGlue->obj(cell => 'Owner' => $item));
>	foreach my $user (@result)	{
>		$report{$user}{'status'} = 'ready';
>		$report{$user}{'reason'} = undef;
>		print "report initialized for $user\n" if $debug;
>	};
>};
>
>It works just fine again.  So pay attention to list context when working
>with glue, I guess.

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