Flexibel Parametrisieren

[Kurt Z]

Hi Forum

obwohl das Flattening von Listen die Parametrisierung von Perlroutinen IMHO schwerer macht, kann man auch schicke Überladungseffekte erreichen

~~~"perl"

use strict;
use warnings;

use Data::Dumper;

my %default=(
 ich =>  "ICH",
 du =>  "DU",
);

sub named_arg{
 my %args=(%default,@_);
 print '%args: ', Dumper %args ;
}

my %standard=(
 ihr =>  'Forum',
);

my %Mr_Nerv=(
 ich =>  "Renate Beppo-Bautz geb. Nobbi",
 ihr =>  "Deppen",
);

named_arg(ich =>'Kurt');

named_arg(ich =>'Kurt', %standard);

named_arg(ich =>'Kurt', %standard, %Mr_Nerv);

\_\_DATA\_\_  
  
%args: $VAR1 = {  
          'ich' => 'Kurt',  
          'du' => 'DU'  
        };  
%args: $VAR1 = {  
          'ihr' => 'Forum',  
          'ich' => 'Kurt',  
          'du' => 'DU'  
        };  
%args: $VAR1 = {  
          'ihr' => 'Deppen',  
          'ich' => 'Renate Beppo-Bautz geb. Nobbi',  
          'du' => 'DU'  
        };