Eine Art und weise die Parameter auszulesen

[N.Bokov]

Hallo Leute,

wie macht Ihr die Parameter einer Funktion auszulesen. Ich mache es so:

8<------------------------8<

&SubRoutine($parameter_01, $parameter_02, $parameter_03);

sub SubRoutine {

my $Parameter_01 = $_[0];
my $Parameter_02 = $_[1];
my $Parameter_03 = $_[2];

}

8<------------------------8<

Vielleicht gibt's eine elegantere Lösung?

Danke vielmals!!!

[Jörg Peschke]

Hallo,

wie macht Ihr die Parameter einer Funktion auszulesen. Ich mache es so:

Mein Favorit:
sub subRoutine {
   my ($Parameter_01, $Parameter_02, $Parameter_03) = @_;
   ...
}

[Siechfred]

Tag Jörg.

wie macht Ihr die Parameter einer Funktion auszulesen. Ich mache es so:
sub subRoutine {
   my ($Parameter_01, $Parameter_02, $Parameter_03) = @_;
   ...
}

Ich hätte auch noch einen:

sub foo {
  my $bar = shift;
  my $loo = shift;
  ...
}

Ansonsten gibt perlsub weitere und detailliertere Auskünfte.

Siechfred

[Eternius]

Hallo,

  
  sub ()  
  {  
    my ($bla, $blub) = @_[2..4];  
  }  

auch gern gesehene Kandidaten sind grep und map

  
  sub foo  
  {  
    my @bla = map (clean($_), @_);  
  }  
  
  sub clean($)  
  {  
    my $val = shift;  
    $val =~ s/3//;  
    $val;  
  }  

gruss

[Eternius]

ups,

  

>   sub ()  
>   {  
>     my ($bla, $blub) = @_[2..3];  
>   }  

gruss

[Struppi]

wie macht Ihr die Parameter einer Funktion auszulesen. Ich mache es so:

8<------------------------8<

&SubRoutine($parameter_01, $parameter_02, $parameter_03);

Das mit den Parametern ham wir ja schon, aber der Aufruf von dir ist altertümlich.
Seit Perl 5 (oder?) ist es nicht mehr nötig '&' vor die Funktionen zu schreiben. Ganz im Gegenteil, es hat jetzt sogar eine spezielle Aufgabe, die du hier sicher nicht brauchst.

Struppi.