Nicht benötigte Argumente trotzem in eine Variable kopieren? - #188043 (Allgemeines zu Perl)

rosti

2018-02-24 18:40

User since
2011-03-19
3530 Artikel
BenutzerIn

Ja, die Vorbelegung ist manchmal ganz nützlich und geht auch so z.B.:

Code (perl): (dl )

sub dump_and_die{
   my $self = shift;
   my $ref  = shift || $self;
   die Dumper $ref;
}

Oder die Umkehrung der Vorbelegung, also Leerstring oder undef setzen:

Code (perl): (dl )

sub new{
   my $class = shift;
   my %cfg = (
      -name => '',
   @_);

   croak "-name ist zwingend erforderlich!!!" unless $cfg{-name};

}

MfG