promenna predana odkazem

[Jiri Polcar]

    Zdravim,

chtel bych napsat fci, ktera prijima jako parametr jeden skalar a to
bud jeho hodnotu, nebo odkaz na nej. 

        fce( $parametr )  NEBO  fce( \$parametr )

Fce by mela pracovat nezavisle na zpusobu predani parametru. Dal jsem do
hromady neco takoveho:

    sub fce {

        use vars qw( $input $scalar_input );

        $input = shift;

        if ( ref( $input ) eq 'SCALAR' ) {
            $scalar_input = ${$input};
        } else {
            *scalar_input = *input;
        } 
  
        # vlastni telo fce ( pracuje ze $scalar_input )
        print $scalar_input;
  
    }

Hlavni duvod, proc chci predavat odkaz je usetreni pameti. Muj dotaz
zni: usetrim timto zpusobem zkutecne? Tedy, bude obsah skalarni promenne
v pameti skutecne pouze jednou? 

-- 
JP