promenna predana odkazem

[Jiri Polcar]

On Fri, Nov 01, 2002 at 02:50:27PM +0100, Honza Pazdziora wrote:
> 
> sub funkce {
> 	my $paramref;
> 	if (ref($_[0]) eq 'SCALAR') {
> 		$paramref = $_[0];	# zkopiruje se ta reference
> 	} else {
> 		$paramref = \$_[0];	# vyrobi se reference
> 	}
> 
> 	# a zde se pracuje uz vesele s $paramref
> 
> }

To je ono! Diky.

-- 
JP