Parameter und Subroutinen (Prototypen, Referenzen?!) - #148956 (Allgemeines zu Perl)

moritz

2011-05-21 11:49

User since
2007-05-11
923 Artikel
HausmeisterIn

Guest Bob
Code: (dl )
1
2
3
4
5
sub array_to_string {
  my ($switch, @array) = @_;
  my $string = join($switch, @array);
  ...
}
Das funktioniert zwar (nach dem Motto: bitte nicht Anfassen), erfordert aber den Aufruf der Subroutine obligatorisch mit zwei Parametern.

Kurios, bei meinem Perl funktioniert das wunderbar mit nur einem:

Code: (dl )

use strict;
use warnings;
sub array_to_string {
    my ($switch, @array) = @_;
    my $string = join($switch, @array);
    print "string: '$string'\n";
}
array_to_string('foo');
__END__
Ausgabe:

string: ''

Ansonsten kann Perl 6 sowas explizit:

Code: (dl )

sub array-to-string($switch, *@array) {
     my $string = join $switch, @array;
     ...
}

Perl 6 - Perls Zukunft